Hi Leute,
habe folgendes Problem. Ich möchte den Inhalt einer
Query direkt in eine Datenbank speichern.
Also OHNE folgende Routine. Bisher habe ich es immer so gemacht. Habe 2
Query genommen und in die erste die Daen eingelesen und die zweite als Insert verwendet.
Jetzt habe ich vor eine ADOTable Komponente zu verwenden um mir die ganze Schreibarbeit zu sparen.
Also die
Query mit den Daten ein DataSet zuweisen und eine ADOTable Komponente.Als MasterSource der ADOTable das DataSet zuweisen. Dann ADOTable.INSERT. Geht aber irgendwie nicht
.
Hier der Code:
Delphi-Quellcode:
// Textdatei in Query einlesen
hPfad := '
G:\Programme INTERN\Textdatei';
ADOQryImport.Close;
ADOQryImport.SQL.Clear;
ADOQryImport.SQL.Add('
SELECT *');
ADOQryImport.SQL.Add('
FROM [EGUB.txt]');
ADOQryImport.SQL.Add('
IN '+ QuotedStr(hPfad) +'
''
Text;''
');
ADOQryImport.Open;
// Vorher ADOTable über DataSet inhalt der Query zugewiesen
While not ADOTable.Eof
do
begin
ADOTable.Insert;
ADOTable.Next;
end;
Gruß AS