HI! Ich habe eine Datenbank die ich mit hilfe von Records auslese. Nun möchte ich diese Datensatz für Datensatz in eine
Access-
DB mittels
ADO und
SQL übertragen. Aber ich bekomme immer wieder eine
SQL Syntax Error Message und weiß nicht woran es liegen könnte...
Delphi-Quellcode:
type
TARDRecord =
packed record
ID:
array[1..13]
of Char;
Anrede:
array[1..13]
of Char;
Art:
array[1..13]
of Char;
Kunde:
array[1..61]
of Char;
Name:
array[1..87]
of Char;
Strasse:
array[1..61]
of Char;
PLZ:
array[1..10]
of Char;
Ort:
array[1..41]
of Char;
Tel:
array[1..21]
of Char;
Mobil:
array[1..21]
of Char;
Buffer:
array[1..102]
of Char;
Datum:
array[1..16]
of Char;
Preis:
array[1..16]
of Char;
Feld1:
array[1..1]
of Char;
Feld2:
array[1..6]
of Char;
Anzahl:
array[1..6]
of Char;
Feld3:
array[1..61]
of Char;
Feld4:
array[1..61]
of Char;
end;
...
function TEDM.SyncData: Boolean;
var
SQL:
String;
begin
SyncData := TRUE;
AssignFile(ARDFile, '
D:\EvilBird\Kunden.ard');
Reset(ARDFile);
while not Eof(ARDFile)
do
begin
try
Clients.Close;
Clients.SQL.Clear;
Clients.SQL.Add('
INSERT INTO Clients ( ID, ClientNumber, Anrede, Name, Street, PLZ, City, HomePhone, MobilePhone) VALUES ( ''
''
, ''
' + ARDRecord.ID + '
''
, ''
' + ARDRecord.
Name + '
''
, ''
' + ARDRecord.Strasse + '
''
, ''
' + ARDRecord.PLZ + '
''
, ''
' + ARDRecord.Ort + '
''
, ''
' + ARDRecord.Tel + '
''
, ''
' + ARDRecord.Mobil + '
''
);');
Clients.ExecSQL;
except
SyncData := FALSE;
end;
end;
CloseFile(ARDFile);
end;
Bitte helft mir, ich komme hier einfach nicht weiter
