ado连接问题

moyue 2002-02-25 10:22:24
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
...全文
104 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
fontain 2002-02-25
  • 打赏
  • 举报
回复
你的provider不写怎么行呢,
cn.connection='provider=...'也可以,可以参照 dbcontrols(泰山__抛砖引玉) 生成一个connectionstring看看就知道了
dbcontrols 2002-02-25
  • 打赏
  • 举报
回复
先用ADODC控件连接好然后复制右键属性里面的连接串最标准.

7,785

社区成员

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

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