Insert

[AgentAS]

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