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:

zusammenfalten · markieren

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

Hallo AgentAS,

dazu gibt es doch das INSERT Statement:

markieren

SQL-Code:

INSERT into NEWTABLE
SELECT * FROM OLDTABLE
WHERE ID > 100

Moin,

probier mal:

ADOTable.Post statt AdoTable.insert oder hab ich dich jetzt falsch verstanden??

MfG hEiHaChI

Moin,

probier mal:

ADOTable.Post statt AdoTable.insert oder hab ich dich jetzt falsch verstanden??

MfG hEiHaChI

Hi,

werde es mal ausprobieren. Danke erstmal für eure Antwort.

Gruss
AS

Hi nochmal,

also bei mir läuft ein SQL 8 Server. Wenn ich diesen SELECT übergebe bringt er mir eine
Fehlermeldung --> Syntax Fehler in der Nähe von IN.

markieren

Delphi-Quellcode:

SELECT * INTO DBTEST
  FROM [EGUB.txt] IN 'G:\ProgrammeINTERN' 'Text;'

Wenn ich diesen SELECT an ACCESS übergeb macht er es, aber leider löscht er mir jedesmal die vorhanden Tabelle, anstatt die Daten anzufügen.

Gruß AS