VBA 连接数据库-526互联

'需要的参数
Const MYPROVIDER = "Provider=sqloledb;"
Const MYSERVER = "Server=xxx.xxx.xxx.xxx;"
Const MYPORT = "Port=3306;"
Const MYDATABASE = "Database=xxxxxxx;"
Const MYUSER = "User ID=xxxxxxx;"
Const MYPASS = "Password=xxxxxxx;"
Public constr As String

Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cm As New ADODB.Command

constr = MYPROVIDER & MYSERVER & MYPORT & MYDATABASE & MYUSER & MYPASS
cn.ConnectionString = constr

'连接数据库
cn.Open

sql = "......."
'执行sql语句
cm.ActiveConnection = cn
cm.CommandText = sql
Set rs = cm.Execute '有结果返回的就在rs中，没有结果的就不需要用rs捕获单纯 cm.Execute即可
Set cm = Nothing

'关闭数据库
cn.Close