Question

VB 程序打包后安装在其它电脑上,数据库无显示

Set CN = New ADODB.Connection
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
CN.Open
Adodc1.ConnectionString = CN
Adodc1.RecordSource = "文件管理"
Adodc1.Refresh
控件:DATAGRID显示数据库记录.但程序打包后,DATAGRID为空,看不到数据库记录,可以修改,删除,添加,,就是没有显示.怎么办?

Answer 1

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
这一名错了.找不到数据库,记录当然是空的了.你说的修改,删除,添加.是你的程序作了错误处理.没报错而已.
应是:
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+app.path+"db1.mdb;Persist Security Info=False"
大概这样子,N年没写VB了.呵呵

Answer 2

CN.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=db1.mdb";" & _
"DefaultDir=" & app.path & ";" & _
"UID=admin;PWD=;"