ado操作mysql数据库步骤_⽤ADO操作MYSQL数据库
⽤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数据库的连接
mysql下载odbc失败
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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。