6,210
社区成员
发帖
与我相关
我的任务
分享EXCEL 连接数据库连接不成功
Public Sub nckxr()
Dim cnn As New ADODB.Connection
Dim cnnstr As String, mydata As String
mydata = "nckxr" '指定数据库名称
cnnstr = "providet=SQLoledb;" _
& "user id=sa;" _
& "password=111;" _
& "date source=ZBS3;" _
& "initial catalog=" & mydata
cnn.connectionstring = cnnstr
On Error Resume Next
cnn.Open
On Error GoTo 0
If cnn.State = adstateopen Then
MsgBox "数据库连接成功!", vbInformation, "连接数据库"
Else
MsgBox "数据库连接失败!", vbInformation, "连接数据库"
End If
Set cnn = Nothing
End Sub
上面代码运行提示连接失败有高手帮看下么 用户名和密码都是对的
Dim cnn As New ADODB.Connection
Dim cnnstr As String, mydata As String
mydata = "nckxr" '指定数据库名称
cnnstr = "providet=SQLoledb;" _
& "user id=sa;" _
& "password=111;" _
& "date source=ZBS3;" _
& "initial catalog=" & mydata
cnn.connectionstring = cnnstr
On Error Resume Next
cnn.Open
On Error GoTo 0
If cnn.State = adstateopen Then
MsgBox "数据库连接成功!", vbInformation, "连接数据库"
Else
MsgBox "数据库连接失败!", vbInformation, "连接数据库"
End If
Set cnn = Nothing
End Sub
上面代码运行提示连接失败有高手帮看下么 用户名和密码都是对的
...全文
请发表友善的回复…
发表回复
nklfs 2011-08-17
- 打赏
- 举报
hehe ,
Public Sub nckxr()
Dim cnn As ADODB.Connection
Dim cnnstr As String, mydata As String
mydata = "nckxr" '指定数据库名称
cnnstr = "providet=SQLoledb;" _
& "user id=sa;" _
& "password=111;" _
& "date source=ZBS3;" _
& "initial catalog=" & mydata
set cnn = new ADODB.Connection
cnn.connectionstring = cnnstr
On Error Resume Next
cnn.Open
On Error GoTo 0
If cnn.State = adstateopen Then
MsgBox "数据库连接成功!", vbInformation, "连接数据库"
Else
MsgBox "数据库连接失败!", vbInformation, "连接数据库"
End If
Set cnn = Nothing
End Sub
baojianfei 2011-08-17
- 打赏
- 举报
[Quote=引用 2 楼 nklfs 的回复:]
用下面这种链接字符串，试试行不。
Driver={SQL Server};Server=服务器完整地址;Uid=用户名;Pwd=密码;Database=数据库名;
[/Quote]
这个怎么弄进去
你上面的代码报错了
Dim cnn As ADODB.ConnectionDim cnnstr As String, mydata As String
提示它语法错误
用下面这种链接字符串，试试行不。
Driver={SQL Server};Server=服务器完整地址;Uid=用户名;Pwd=密码;Database=数据库名;
[/Quote]
这个怎么弄进去
你上面的代码报错了
Dim cnn As ADODB.ConnectionDim cnnstr As String, mydata As String
提示它语法错误
nklfs 2011-08-17
- 打赏
- 举报
用下面这种链接字符串，试试行不。
Driver={SQL Server};Server=服务器完整地址;Uid=用户名;Pwd=密码;Database=数据库名;
Driver={SQL Server};Server=服务器完整地址;Uid=用户名;Pwd=密码;Database=数据库名;
nklfs 2011-08-17
- 打赏
- 举报
是不是这样呢？
Public Sub nckxr()
Dim cnn As ADODB.ConnectionDim cnnstr As String, mydata As String
mydata = "nckxr" '指定数据库名称
cnnstr = "providet=SQLoledb;" _
& "user id=sa;" _
& "password=111;" _
& "date source=ZBS3;" _
& "initial catalog=" & mydata
set cnn = new ADODB.Connectioncnn.connectionstring = cnnstr
On Error Resume Next
cnn.Open
On Error GoTo 0
If cnn.State = adstateopen Then
MsgBox "数据库连接成功!", vbInformation, "连接数据库"
Else
MsgBox "数据库连接失败!", vbInformation, "连接数据库"
End If
Set cnn = Nothing
End Sub
