我在一个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; 为什么老是调试不过去,请帮忙看一看,到底错在那了?
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; 为什么老是调试不过去,请帮忙看一看,到底错在那了?
file有没有方号?
specifiation
to 无聊 改后还是不行!
没有这个的驱动
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;
ConnectionString := 'Provider = MicroSoft.jet.OLEDB.4.0;'+
'Persist Security Info = False;'+ //这里少了个分号
'Data Source='+curdir+dbname+'.mdb;'+
'Mode = ReadWrite;'+
'Jet OLEDB:Database Password='';';
心上是调试通过的代码
谢谢你了!等会我建个坛子,你进去加分!
->下载基地-》例程-数据库/报表-》在DBGRID中下拉列表的显示
仅供参考,ADO+ACCSEE写的,如果你没用过这两样东西或太菜,就不要下了,上次介绍给一位大虾,竟然看不懂!?哎,难做呀,想帮,但不一定就是帮的了。