连adoconnection

[黄昏2030]

mdbpath:=extractfilepath(application.Exename)+'wygl.mdb';
constr:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin Data Source='+ mdbpath;+
+'Mode=Share Deny None;'
'Extended Properties="";'
'Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";'+
'Jet OLEDB:Database Password="";'+
'Jet OLEDB:Engine Type=5;'+
'Jet OLEDB:Database Locking Mode=1;'+
'Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1;'+
'Jet OLEDB:New Database Password="";'+
'Jet OLEDB:Create System Database=False;'+
'Jet OLEDB:Encrypt Database=False;'+
'Jet OLEDB:Don+#39+t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;'+
'Jet OLEDB:SFP=False;'
请帮忙

[aiirii]

你都沒提問題, 就要人回答???

mdbpath;+
+'Mode=Share Deny None;'
修改如下:
mdbpath;+
+ ';Mode=Share Deny None;'

[lw549]

PromptDataSource

[hmzgz81]

老大你是什么问题啊！

[lonaerd]

不会吧，你连个MDB要这么麻烦！
connect.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'Papi.mdb;Mode=ReadWrite;Persist Security Info=False' ;
connect.ADOConnection1.Connected:=true;

这样就行了！

[hmzgz81]

(转载)

解决ADO连接带密码的ACCESS数据库问题
解决ADO连接带密码的ACCESS数据库问题
　　　　　　　　　　　　　　　　　高红岩(ghyghost)

　　笔者近日在写ADO连接带密码的ACCESS数据库时，当connected:=true;时，总是出现密码不对的对话框，最终
在研究了TADOConnection.ConnectionString的内容创建过程时得到灵感，现与大家分享。
　　1，新建Project。
　　2，在FORM中放入ADOConnection,ADOQuery,DataSource,Datagrid控件。
　　3，双击ADOConnection控件，然后点击Build...按钮，在“提供者”页中选择“Microsoft Jet 4.0 OLE DB
　　Provider”，然后点击“下一步”按钮，在“连接”页中选择要连接的Access数据库的路径和数据库的文件
名，这时如果点“测试连接”按钮时，出现“初始化提供者时发生错误，测试连接失败，密码无效”的错误提示。
　　4，这时点“所有”页，然后双击“Jet OLEDB:Database Password”，出现对话框，添入密码后，选择“连
接”页中的“测试连接”按钮，出现“测试连接成功”的对话框。把ADOConnection控件的LoginPromtp设为false.
　　5，设置连接完成。