比如:ACCESS----SQLSERVER: procedure TForm1.Button1Click(Sender: TObject); var i:integer; code,name,insertstr:string; begin with adoquery1 do begin close; sql.Clear; sql.Add('select * from 常熟白雪店'); open; end ; for i:=0 to adoquery1.RecordCount - 1 do begin code :=adoquery1.Fields[7].AsString ; code:= copy(code,1,7) ; with adoquery3 do begin close; sql.Clear; sql.Add('select * from DianNei1 where ProductBarcode='''+code+''''); open; end; name:= adoquery1.Fields[5].AsString ; insertstr:='insert into DianNei values('''+code+''','''+name+''',2)'; if adoquery3.RecordCount <= 0 then begin with adoquery2 do begin close; sql.Clear ; sql.Add(insertstr); execsql; end; end; adoquery1.Next ; end; showmessage('OK'); end;
是要做成程序吗,要不要界面?
用ADO联上两个数据库,从Access里select出来,往Paradox里insert就是了,要界面进度条啥的,开个线程搞效果更好一点了
我有代码的
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
code,name,insertstr:string;
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 常熟白雪店');
open;
end ;
for i:=0 to adoquery1.RecordCount - 1 do
begin
code :=adoquery1.Fields[7].AsString ;
code:= copy(code,1,7) ;
with adoquery3 do
begin
close;
sql.Clear;
sql.Add('select * from DianNei1 where ProductBarcode='''+code+'''');
open;
end;
name:= adoquery1.Fields[5].AsString ;
insertstr:='insert into DianNei values('''+code+''','''+name+''',2)';
if adoquery3.RecordCount <= 0 then
begin
with adoquery2 do
begin
close;
sql.Clear ;
sql.Add(insertstr);
execsql;
end;
end;
adoquery1.Next ;
end;
showmessage('OK');
end;
大家有没有做过?