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 :wall: .

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

[MrSpock]

Hallo AgentAS,

dazu gibt es doch das INSERT Statement:

SQL-Code:

INSERT into NEWTABLE 
SELECT * FROM OLDTABLE
WHERE ID > 100

[hEiHaChI]

Moin,

probier mal:

Delphi-Quellcode:

ADOTable.Post

statt

Delphi-Quellcode:

AdoTable.insert

oder hab ich dich jetzt falsch verstanden?? :roll:

MfG hEiHaChI

[hEiHaChI]

Moin,

probier mal:

Delphi-Quellcode:

ADOTable.Post

statt

Delphi-Quellcode:

AdoTable.insert

oder hab ich dich jetzt falsch verstanden?? :roll:

MfG hEiHaChI

[AgentAS]

Hi,

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

Gruss
AS

[AgentAS]

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.

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