如果 mysql的数据库为 T1,关键字为:ID1,最好为ID1建立索引;paradox的数据库为 T2,与T1对应的字段为 ID2;
你就可以按下面的方法做了:Query1 连到 T2, Table1 连到 T1;
begin
Query1.Active:=False;
Query1.Sql.Clear;
Query1.Sql.Add('Select * from T2 order by ID2');
Query1.Prepared;
Query1.Open;
Query1.First;
while not Query1.Eof do
begin
...读取T2表中的数据字段值...
if Table1.Active=False then Table1.Active:=True;
Table1.Setkey;
Table1.FieldByName('ID1').As类型:=Query1.FieldByName('ID2').As类型;
if Table1.GotoKey Then
begin
....修改记录的值或跳过操作....
end
else
begin
.....插入记录操作...
end;
Query1.Next;
end; //End while
Query1.Active:=False;
Table1.Close;
end;
你就可以按下面的方法做了:Query1 连到 T2, Table1 连到 T1;
begin
Query1.Active:=False;
Query1.Sql.Clear;
Query1.Sql.Add('Select * from T2 order by ID2');
Query1.Prepared;
Query1.Open;
Query1.First;
while not Query1.Eof do
begin
...读取T2表中的数据字段值...
if Table1.Active=False then Table1.Active:=True;
Table1.Setkey;
Table1.FieldByName('ID1').As类型:=Query1.FieldByName('ID2').As类型;
if Table1.GotoKey Then
begin
....修改记录的值或跳过操作....
end
else
begin
.....插入记录操作...
end;
Query1.Next;
end; //End while
Query1.Active:=False;
Table1.Close;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货