我想利用ADO控件来分别动态连接DBF文件，我找了一段原来用于ACCESS的代码，改了一下没通过，请问是什么问题？

Question

procedure TForm1.Button1Click(Sender: TObject);
const
mystr1='Provider=%s;Data Provider=%s;data source=%s';
myprovider='msdatashape.4';
mydataprovider='microsoft.jet.oledb.4.0';
var myfoxpro:string;
begin
myfoxpro:='F:\Jht\DQING\FRONT\shcs.dbf';
adoconnection1.connected:=false;
adoconnection1.connectionstring:=format(mystr1,[myprovider,mydataprovider,myfoxpro]);
adoconnection1.connected:=true;
end;

Answer 1

在线，在线
再给你一点，有时间到www.nxit.net/bbs玩；小小在线，由动态连接的例子
ADOConnection1.ConnectString := Provider=SQLOLEDB.1;Persist Security Info=False;User ID=ssssss;Initial Catalog=pubs;Data Source=(local)
-------------------------------------------------
www.nxit.net/bbs
愿于您一起交流

Answer 2

provider不对，应该是Microsoft.Jet.OLEDB.4.0

Answer 3

楼上说的是哪个PROVIDER呢？我不就是这么写的吗？

Answer 4

我好像把你的问题看反了
其实你只需要在属性浏览器里生成一个connectionstring，测试通过以后稍做修改即可。