用ADO操作MYSQL数据库 VBE中请确定引用 microsoft activeX data objects xx 库连接及更新MYSQL数据库数据
代码如下: Sub updt() Dim strconnt As String strconnt = "" Set connt = New ADODB.Connection Dim sevip, Db, user, pwd As String '设服务器地址、所连数据,及登录用户密码 sevip = "localhost" '"192.168.*.*" Db = "samp_db" user = "root" pwd = "6901205" strconnt = "DRIVER={MySql ODBC 3.51 Driver};SERVER=" & sevip & ";Database=" & Db & ";Uid=" & user & ";Pwd=" & pwd & ";Stmt=set names GBK" ' connt.ConnectionString = strconnt connt.Open ssql = "UPDATE student SET student.name= 'kookboy' where student.name = 'kook'" connt.Execute ssql MsgBox "成功更新记录!" connt.Close Set connt = Nothing End Sub 按F5执行,执行前中后 界面如下
vba与mysql数据库的连接
Sub connect_数据库()
Dim strconnt As String
strconnt = ""
Set connt = New ADODB.Connection
Dim rs As Object
Set rs = New ADODB.Recordset
Dim sevip, Db, user, pwd As String
'设服务器地址、所连数据,及登录用户密码
sevip = "192.168.*.*"
Db = "***"
user = "***"
pwd = "****"
strconnt = "DRIVER={MySql ODBC 3.51 Driver};SERVER=" & sevip & ";Database=" & Db & ";Uid=" & user & ";Pwd=" & pwd & ";Stmt=set names GBK" '
connt.ConnectionString = strconnt
connt.Open
End Sub