Eine .udl-Datei ist eine Datei, in der ein Benutzer seine Connection per "Datenverknüpfungseigenschaften" einstellen kann...
Dort werden alle notwendigen Parameter gespeichert.
Ich habe vorher den Datenbankzugriff über die Komponente TQuery - DataBaseName gesteuert... Aber das ist nicht möglich, weil die Benutzer des Programms alle andere Connections haben.
Diese müssen sie jeweils vorher eingeben. Da erschien mir der "Datenverknüpfungsmanager" von Windows eigentlich ganz passend...
Andere Ideen???
HIer ist die
SQL-Abfrage:
Delphi-Quellcode:
sql1 := 'CREATE VIEW Garantie_View AS ' +
'SELECT hs.vk_snr_cnr.ablaufdatum, hs.vk_beleg_pos.bf_pov_feld_5, ' +
'hs.vk_artikel.artikelnr, hs.vk_artikel.bezeichnung1, ' +
'hs.vk_snr_cnr.nr, hs.std_knd_lif.kl_nr, hs.std_knd_lif.bezeichnung, ' +
'hs.std_knd_lif.bf_kd_feld_1, hs.vk_beleg.belegnr, ' +
'hs.vk_beleg.belegart, hs.vk_beleg.belegdatum ' +
'FROM hs.std_knd_lif ' +
'INNER JOIN hs.vk_beleg ON (hs.std_knd_lif.kl_nr = hs.vk_beleg.kl_nr) ' +
'INNER JOIN hs.vk_beleg_pos ON (hs.vk_beleg.belegnr = hs.vk_beleg_pos.belegnr) ' +
'INNER JOIN hs.vk_artikel ON (hs.vk_artikel.artikelnr = hs.vk_beleg_pos.artikelnr) ' +
'INNER JOIN hs.vk_blgpos_snr_cnr ON (hs.vk_beleg.belegnr = hs.vk_blgpos_snr_cnr.belegnr) ' +
'AND (hs.vk_beleg_pos.zeilenschluessel = hs.vk_blgpos_snr_cnr.zeilenschluessel) ' +
'INNER JOIN hs.vk_snr_cnr ON (hs.vk_blgpos_snr_cnr.id_snr_cnr = hs.vk_snr_cnr.id) ' +
'WHERE (hs.vk_beleg.belegartgruppe = ''V40'') ' +
'AND (hs.std_knd_lif.kunde_lieferant = ''KD'')';
try
//View "Garantie_View" wird erstellt:
qryDatenbank.SQL.Text := sql1;
qryDatenbank.ExecSQL;
except
abort;
end;