Добрый день.
Появилась задача выгружать данные из одной базы в другую, для этого пока сделал демку на тестовых БД.
Код такой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
procedure TForm1.Button1Click(Sender: TObject);
var
fbdb: TpFIBDatabase;
fbtrans : TpFIBTransaction;
fbds: TpFIBDataset;
msdb: TZConnection;
msqr: TZQuery;
begin
fbdb:=TpFIBDatabase.Create(nil);
msdb:=TZConnection.Create(nil);
fbdb.connectparams.Username:='SYSDBA';
fbdb.connectparams.Password:='masterkey';
fbdb.DatabaseName:='D:\FDBase\Test.FDB';
fbdb.LibraryName:= 'fbclient.dll';
msdb.librarylocation:='C:\Program Files (x86)\Borland\Delphi7\Projects\libmysql.dll';
msdb.database:= 'test';
msdb.hostname:= 'smt4.slata.com';
msdb.password:= 'masterkey';
msdb.port:=3306;
msdb.protocol:='mysql-5';
msdb.user:='sysdba';
msdb.AutoCommit:=false;
fbdb.Connected:= true;
msdb.Connected:= true;
fbtrans:= TpFIBTransaction.Create(nil);
fbds:= TpFIBDataset.Create(nil);
msqr:= TZQuery.Create(nil);
msqr.Connection:=msdb;
fbtrans.DefaultDatabase:=fbdb;
fbds.Transaction:=fbtrans;
fbds.SelectSQL.Clear;
fbds.SelectSQL.Add('select ID, A1, A2, A3 from TABLE_1');
fbtrans.StartTransaction;
fbds.Open;
fbds.first;
memo1.Lines.Clear;
while not fbds.EOF do begin
memo1.Lines.add(fbds.FieldByRelName('ID').AsString + ' - '+ fbds.FieldByRelName('A1').AsString+ ' - '+ fbds.FieldByRelName('A2').AsString+' - '+ fbds.FieldByRelName('A3').AsString);
msqr.SQL.Add('INSERT INTO table_1(ID,A1,A2,A3) VALUE (:ID,:A1,:A2,:A3)');
msqr.ParamByName('ID').Value := fbds.FieldByRelName('ID').AsInteger;
msqr.ParamByName('A1').Value := fbds.FieldByRelName('A1').AsInteger;
msqr.ParamByName('A2').Value := fbds.FieldByRelName('A2').AsInteger;
msqr.ParamByName('A3').Value := fbds.FieldByRelName('A3').AsInteger;
msqr.ExecSQL;
msdb.Commit;
msqr.close;
fbds.Next;
end;
fbtrans.Commit;
fbtrans.Free;
fbds.Free;
end;
Доступ к базе:
Firebird - fib+, mysql - zeos, Delphi 7 классика.
при запуске получаю ошибку:
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EZSQLException with message 'SQL Error: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'INSERT INTO table_1(ID,A1,A2,A3) VALUE (3874,4088,3887,3163)' at line 1'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Что может быть?
