該樓層疑似違規已被系統折疊?隱藏此樓查看此樓

Dim strcn As String

Dim cn As New ADODB.Connection

'構造函數

Private Sub Class_Initialize()

strcn = "driver=mysql odbc 3.51 driver;" & _

"server=192.168.101.89;" & _

"database=mmtest;" & _

"uid=test;" & _

"pwd=test" & _

";Stmt=set names gb2312"

'";Stmt=set names gb2312" '連接字符串

cn.Open strcn

cn.CursorLocation = adUseClient

End Sub

'析構函數

Private Sub Class_Terminate()

cn.Close

End Sub

'執行sql語句，返回行數

Public Function ExecCmd(ByVal strSql As String) As Long

Dim N As Long

cn.Execute strSql, N

ExecCmd = N

End Function

'執行sql語句，返回Recordset

Public Function ExecRecordset(ByVal strSql As String) As ADODB.Recordset

Dim rd As Recordset

Set rd = cn.Execute(strSql)

Set ExecRecordset = rd

End Function

總結

以上是生活随笔為你收集整理的vba mysql连接字符串_分享一个VBA连接mysql数据库的方法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。