Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#6

Re: Datensatz über Record -> in Access über SQL, Fehler?

  Alt 20. Dez 2005, 19:59
Zitat von EvilCodein:
Delphi-Quellcode:
    ClientsQuery.SQL.Clear;
    ClientsQuery.SQL.Add('DELETE * FROM Clients');
    ClientsQuery.ExecSQL;
  while not Eof(ARDFile) do
  begin
    Read(ARDFile, ARDRecord);
    ClientsQuery.SQL.Clear;
    ClientsQuery.SQL.Add('INSERT INTO clients (ID, Anrede, Name, Street, PLZ, City, HomePhone, MobilePhone, Field3, Field4)');
    ClientsQuery.SQL.Add('VALUES (:var1, :var2, :var3, :var4, :var5, :var6, :var7, :var8, :var9, :var10)');

    DataArray[1] := ARDRecord.ID;
....
Ich danke euch fürs lesen und noch vielmehr für ideen, anregungen, vorschläge, oder gar hinweise...
Dein Delphicode sieht noch ziemlich anfängermässig aus.
Also: SQL-Anweisung sollten ausserhalb einer Schleife zusammengebaut werden.
Delphi-Quellcode:
    ClientsQuery.SQL.Clear;
    ClientsQuery.SQL.Add('INSERT INTO clients (ID, Anrede, Name, Street, PLZ, City, HomePhone, MobilePhone, Field3, Field4)');
    ClientsQuery.SQL.Add('VALUES (:var1, :var2, :var3, :var4, :var5, :var6, :var7, :var8, :var9, :var10)');

  while not Eof(ARDFile) do
  begin
    Read(ARDFile, ARDRecord);
    .......
    
    ClientsQuery.ExecSQL; // IN der Schleife nur noch benutzen
    ...
  end;
Andreas
  Mit Zitat antworten Zitat