excel連接mysql失敗怎么辦

九三
461
2021-01-05 08:27:45
欄目: 云計(jì)算

excel連接mysql失敗怎么辦

excel連接mysql失敗的解決方法

當(dāng)excel連接mysql失敗時(shí)可以在excel中添加以下代碼即可連接到MySQL。

Public Sub nckxr()
Dim cnn As ADODB.ConnectionDim cnnstr As String, mydata As String
mydata = "nckxr" '指定數(shù)據(jù)庫(kù)名稱
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 "數(shù)據(jù)庫(kù)連接成功!", vbInformation, "連接數(shù)據(jù)庫(kù)"
Else
MsgBox "數(shù)據(jù)庫(kù)連接失敗!", vbInformation, "連接數(shù)據(jù)庫(kù)"
End If
Set cnn = Nothing
End Sub

0 踩