ado连接问题

moyue 2002-02-25 10:24:47
Option Explicit
Public cn As New ADODB.Connection
Public Function DBConnect1() As Boolean

On Error GoTo OpenErr

Dim MSDatabase



cn.ConnectionString = "uid=admin;pwd=;DRIVER={Microsoft Access Driver (*.mdb) };DBQ=" & App.Path & "\Data\WNFMail.mdb"
Debug.Print cn.ConnectionString
cn.Open

DBConnect1 = True
Exit Function

OpenErr:

MsgBox "Error Opening " & MSDatabase & vbNewLine & Err.Description, vbCritical, "Open Database Error"
DBConnect1 = False


End Function

为是么我用这种方法连接时总是出现一下错误啊。
工作组信息文件丢失或已被其他用户已独占方式打开。我的access数据库在本地。但我用下面的代码连接时就没有这种问题。

Public cn As ADODB.Connection
Public Function DBConnect() As Boolean

On Error GoTo OpenErr

Dim MSDatabase

Set cn = New ADODB.Connection

MSDatabase = App.Path & "\" & "Data" & "\" & "WNFMail.mdb"
cn.CursorLocation = adUseClient
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
Debug.Print MSDatabase
cn.Open MSDatabase, Admin, 1980
DBConnect = True
Exit Function

End Function
...全文
54 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
memeno 2002-02-26
  • 打赏
  • 举报
回复
通过属性好象是CONNECTIONSTR属性。先选字符串连接,再选择需要的搜索引擎,如果没有选择odbc
通过odbc进行连接。
moyue 2002-02-25
  • 打赏
  • 举报
回复
我在ADODC控件中用密码测试时不能通过
最上面的那种我测试时数据库没设密码。
moyue 2002-02-25
  • 打赏
  • 举报
回复
用Jet引擎,如果数据库没有密码,就一切正常
jett 2002-02-25
  • 打赏
  • 举报
回复
uid=admin;pwd=; <--->cn.Open MSDatabase, Admin, 1980 ????
不会是因为没写密码吧

moyue 2002-02-25
  • 打赏
  • 举报
回复
是不是我的VB有问题啊?
moyue 2002-02-25
  • 打赏
  • 举报
回复
现在又出现问题了用Jet引擎,如果数据库有密码,就又出现上面的错误了。我在ADODC控件中也不能测试成功。
dbcontrols 2002-02-25
  • 打赏
  • 举报
回复
先用ADODC控件连接好然后复制右键里面的连接串最标准.
40Star 2002-02-25
  • 打赏
  • 举报
回复
应该都是用的Jet引擎
不过我一直用你的下面的方法连接
因为ADO的Data控件连接时也适用的下面的连接字符串
moyue 2002-02-25
  • 打赏
  • 举报
回复
我试试
Kang哥 2002-02-25
  • 打赏
  • 举报
回复
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\test.mdb;user id=admin;jet oledb:database password=112378;Persist Security Info=true"这样成不成?

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧