错误,请帮忙解决!

snf 2003-07-20 11:28:58

我在一个DBLookupComboBox3中显示一个表的字段,这个表保存的是其他数据库的名称等信息.当DBLookupComboBox3触发click事件时一个 ADOConnection1 连接该数据库,一个
adoquery1 连接到 ADOConnection1上代码如下
var
dbname,curdir:string;
begin
CurDir := ExtractFilePath(Application.ExeName);
dbname:=DBLookupComboBox3.Text;
with ADOConnection1 do
begin
ConnectionString := 'Provider = MicroSoft.jet.OLEDB.4.0;'+
'Persist Security Info = False'+
'Data Source='+curdir+dbname+'.mdb;'+
'Mode = ReadWrite;'+
'Jet OLEDB:Database Password='';';
Connected := True;//Open DataBase
end;
adoquery1.Connection:=ADOConnection1;
adoquery1.Open;
end; 为什么老是调试不过去,请帮忙看一看,到底错在那了?

...全文

29 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

snf 2003-07-20

打赏
举报

不可能吧!这个驱动在 ado手工连接时的第三个呀!??

firetoucher 2003-07-20

打赏
举报

'Provider = MicroSoft.jet.OLEDB.4.0;'
没有这个的驱动

snf 2003-07-20

打赏
举报

错误提示: Format of the initialization string does not conform to the OLE DB
specifiation
to 无聊改后还是不行!

linzhisong 2003-07-20

打赏
举报

'Persist Security Info = False;'+

linzhisong 2003-07-20

打赏
举报

'Persist Security Info = False'+
file有没有方号？

WWWWA 2003-07-20

打赏
举报

错误信息？

jpyc 2003-07-20

打赏
举报

http://218.56.11.178:8020/web/index.aspx
->下载基地-》例程-数据库/报表-》在DBGRID中下拉列表的显示
仅供参考，ADO+ACCSEE写的，如果你没用过这两样东西或太菜，就不要下了，上次介绍给一位大虾，竟然看不懂！？哎，难做呀，想帮，但不一定就是帮的了。

snf 2003-07-20

打赏
举报

TO WWWWWA(aaaa)
谢谢你了!等会我建个坛子,你进去加分!

WWWWA 2003-07-20

打赏
举报

Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=d:\rscb\zw.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=True
心上是调试通过的代码

snf 2003-07-20

打赏
举报

加上分号以后,还是调试不出来!!!

baguli 2003-07-20

打赏
举报

我看了一下，是不是ConnectionString少了一个分号？应该如下：
ConnectionString := 'Provider = MicroSoft.jet.OLEDB.4.0;'+
'Persist Security Info = False;'+ //这里少了个分号
'Data Source='+curdir+dbname+'.mdb;'+
'Mode = ReadWrite;'+
'Jet OLEDB:Database Password='';';

snf 2003-07-20

打赏
举报

程序代码有问题吗？

WWWWA 2003-07-20

打赏
举报

到MS的网站下一MDAC安装试一下。

WWWWA 2003-07-20

打赏
举报

with ADOConnection1 do
begin
ConnectionString := 'Provider = MicroSoft.jet.OLEDB.4.0;'+
'Persist Security Info = False'+
'Data Source=D:\*.mdb;'+//数据库本地目录
'Mode = ReadWrite;'+
'Jet OLEDB:Database Password=*****;'// 加入密码
Connected := True;//Open DataBase
end;