同学让我帮忙看程序

Question

今天有一同学让我帮忙看他程序，刚传过来的：
我vb不太熟，代码中有：
Set cnn = New ADODB.Connection
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\study\vb作业\diary\diary.mdb;Persist Security Info=False"
cnn.open我本地运行提示“未发现数据源名称并且未指定默认驱动程序”
他那边好的，我这儿该怎么配啊？

Answer 1

strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\study\vb作业\diary\diary.mdb;Persist Security Info=False"改为：
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source =E:\study\vb作业\diary\diary.mdb;Jet OLEDB:DataBase"
就行了

Answer 2

要是有密码的话就这样就行了：
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source = " & App.Path & "\word.mdb;Jet OLEDB:DataBase password=１２３"

Answer 3

没对象吧,直接用strcnn能行吗?????

Answer 4

Data Source=E:\study\vb作业\diary\diary.mdb，你从同学那里拿过来的数据库也是这个路径吗？Set cnn = New ADODB.Connection
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\study\vb作业\diary\diary.mdb;Persist Security Info=False" ’路径一定要正确啊
cnn.open strcnn

Answer 5

那个被连接的库在你的机子上也是一样的路径吗
如果不是就把你机子上的那个库放到那个路径下拉
干什么不做一个动态的呢
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\diary.mdb;Persist Security Info=False"
把库放到你的工程相同的路径下就可以了
到别人机子上就不存在找不到库了

Answer 6

strcnn = "Provider=Microsoft.Jet.OLEDB.4.0";"Data Source=" & app.path & "\diary.mdb";"Persist Security Info=False"

Answer 7

路径问题，你同学用的是绝对路径。
最好使用相对路径，相对的是这个工程的路径。
app.path可以得到当前程序的路径。

Answer 8

其实他的问题就在没有Jet OLEDB　上面．加上就应该好使．不然就需要数据源

Answer 9

没有安装JET40,找不到JET40的驱动,建议安装MDAC25以上的版本.连接字符串正确

Answer 10

把连接字符串中的数据库的位置改成你机器中实际存在的位置就可以了。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习、交流、源码、工具下载网站，欢迎大家访问！
http://www.j2soft.cn/