fdatadm.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.ExeName)+'data\dmdata'+';Extended Properties=dBase 5.0;Persist Security Info=False'; with fdatadm.ADOQuery1 do begin close; sql.Clear; sql.Add('insert into zbzfjmx1(cymc,yl,dw,cydm) '); sql.Add('select cymc,yl,dw,cydm from zbzfjmx where dm=:k1 '); parameters.parambyname('k1').value:=fjdm; execsql; end;
with fdatadm.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('insert into zbzfjmx1(cymc,yl,dw,cydm) ');
sql.Add('select cymc,yl,dw,cydm from zbzfjmx where dm=:k1 ');
parameters.parambyname('k1').value:=fjdm;
execsql; end;
构造ado connection string
提供者选择 Microsoft Jet 4.0 OLEDB Provider
"所有"那里编辑 Extended Properties,
dbf文件的话设置为dBase 5.0(注意dBase和5.0之间必须有空格,最好拷贝过去粘贴)
db文件的话设置为Paradox 7.X
(dbf就是dbase或Vfox数据库,db就是paradox数据库)
“连接”那里的“数据库名称”输入的是目录名,不能包含文件名,
比如你的文件是 c:\temp\aaa.dbf ,那么输入c:\temp
同时CursorLocation 设置为: clUseServer还可以:
如果直接连的话,ADO的连接字串设为:
adoConnection1.ConnectionString:='Provider=MSDASQL.1;Extended Properties="Driver={Microsoft Visual Foxpro Driver};SourceType=DBF;SourceDB=c:\mydb"';
如果是用ODBC,先在ODBC中设一个DSN连接到该DBF库,然后,在ADOConnection中设置连接ODBC的连接字串即可(可以用向导帮助完成)