vba访问局域网mysql_分享一个VBA连接mysql数据库的方法

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

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