str:=' SQBH'; Query1.SQL.Add('insert into "e:\a.dbf" select * from "h:\b.dbf" where '+#39+str+#39+'like "33%"');
你这是从哪里想出来的创意?能这么用吗?如果是Fox系列的数据库至少也得先Use一下吧!!!你应该好好看一看有关SQL的书!!!如果要实现你需要的功能,使用SQL语句在Delphi中不能实现的!!!你可以使用表的方法变相实现!!!如果在FoxXXX中应该这样写: Set A Use E:\A.DBF Set B Use H:\B.DBF Insert Into A Select * From B ....
Query1.SQL.Add('insert into "e:\a.dbf" select * from "h:\b.dbf" where '+#39+str+#39+'like "33%"');
Set A
Use E:\A.DBF
Set B
Use H:\B.DBF
Insert Into A Select * From B ....