儿童专业理发店加盟:在EXCEL中使用VBA通过Connector/ODBC连接MySQL服务器 - 信息技术...

来源：百度文库编辑：偶看新闻时间：2024/05/06 23:51:11

在EXCEL中使用VBA通过Connector/ODBC连接MySQL服务器

详细信息请参考《MySQL 6.0 Reference Manual》的以下章节
28.1.5.7. Connector/ODBC Programming
28.1.5.7.1. Using Connector/ODBC with Visual Basic Using ADO, DAO and RDO

首先当然是安装MySQL ODBC Connector，然后是在VBA中添加引用
Microsoft ActiveX Data Objects 2.8 Library
Microsoft ActiveX Data Objects Recordset 2.8 Library

Sub Export2Mysql()
'将Excel当中的数据转入数据库中
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
Set conn = New ADODB.Connection
'这里要换成你的服务器库名用户名密码
conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=server_ip;" & " DATABASE=dbname;" & "UID=user_id

WD=password; OPTION=3"
conn.Open
'准备创建表
conn.Execute "drop table if exists test"
'注意这里的各列类型设定
conn.Execute "create table test(name text,pass text)"
'按行导入,这里假设第一列存的是name，第二列存的是pass
For i = 1 To 20
      conn.Execute "insert into test(name,pass) values('" & Cells(i, 1).Text & "','" & Cells(i, 2) & "')"
Next i
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
'使用下面的代码验证
rs.Open "select * from test", conn
rs.MoveFirst
Do Until rs.EOF
      For Each fld In rs.Fields
         Debug.Print fld.Value,
      Next
      rs.MoveNext
      Debug.Print
Loop
rs.Close
conn.Close
End Sub

Excel VBA中EXCEL对象？如何使用VBA启动Excel 在excel的VBA中计算某列中数据的最大值！！！！通过excel的vba使用ado进行数据库操作一问 excel中VBA的问题可否提供vba程序在excel中自动打开其它的excel表格？关于在powerpoint中使用vba的问题在VBA模拟器中怎么设置使用手柄呢在VBA模拟器中怎么设置使用手柄呢？？ excel vba 中如何得到一串文件名 Excel中如何封装VBA 代码求excel 中VBA的学习资料 Excel VBA Excel VBA vba excel 我想在excel中打开、保存、再关闭另一个工作薄，其vba代码怎么写在哪可以找到excel vba 视频教程在Excel中用VBA编写一个程序请问我在powerpoint 2000中使用vba编程，打包后vba程序能不能运行？如果不行应该怎么办？如何使用vba调入其它EXCEL文件中的数据如何使用excel vba获得当前电脑的信息？如何使用visio的vba调用excel文件？在EXCEL中如何使用RNAK函数在EXCEL中怎么快速使用乘法