关于VBS连接MySQL与连接Excel_MySQL

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了关于VBS连接MySQL与连接Excel_MySQL，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2506字，纯文字阅读大概需要4分钟。

内容图文

实现过程：

1.连接数据库

首先要去MySQL官网下载个ODBC数据源。

安装之后，即可在控制面板-管理工具-ODBC数据源-添加，中看到MySQL驱动名称：

'连接数据库
StrCnn="Provider=MSDASQL.1;Persist Security Info=True;Extended Properties='Driver=MySQL ODBC 5.3 Unicode Driver;SERVER=188.1.1.132;UID=grute;PWD=grute;DATABASE=grute;PORT=3307'"
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open strCnn
'查看是否连接成功，成功状态值为1
If Cnn.State = 0 Then
	msgbox  "连接数据库失败"
	wscript.quit 
End If

2.连接Excel

'连接Excel
dim oExcel,oWb,oSheet 
Set oExcel= CreateObject("Excel.Application") 
oexcel.Workbooks.Add()

3.输入SQL语句，从MySQL中查找数据

strQuery = "select * from test"
Set rs = Cnn.Execute(strQuery)

4.把MySQL的查询结果循环放入Excel

'i为Excel行号，k为列号 

Dim i i=0 arr_column = array("序号", "姓名", "用户名", "密码", "权限") If Not rs.BOF Then Do While Not rs.EOF i = i + 1 For k = 1 To 5 '循环5次 oExcel.Cells(i, k).Value = rs(arr_column(k - 1)) Next rs.MoveNext Loop Else wscript.echo "失败" End If

5.保存Excel

oexcel.ActiveWorkbook.SaveAs("C:\Users\Administrator\Desktop\test.xlsx")

6.退出

oExcel.WorkBooks.Close 
oExcel.Quit 

rs.Close
Cnn.Close
Set Cnn = Nothing
msgbox "导入完成"

以上，

完全代码如下，要求本机安装MySQL数据源，且188.1.1.132机器上MySQL用户名为grute、密码为grute、库名为grute、表名为test、test的列名分别为（序号,姓名,用户名,密码,权限），保存为后缀名VBS即可运行。

'定义变量
Dim Cnn
Dim Rst
Dim strCnn
Dim i
i = 0
arr_column = array("序号", "姓名", "用户名", "密码", "权限")

'连接数据库
StrCnn="Provider=MSDASQL.1;Persist Security Info=True;Extended Properties='Driver=MySQL ODBC 5.3 Unicode Driver;SERVER=188.1.1.132;UID=grute;PWD=grute;DATABASE=grute;PORT=3307'"
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open strCnn
'查看是否连接成功，成功状态值为1
If Cnn.State = 0 Then
	msgbox  "连接数据库失败"
	wscript.quit 
End If
'连接Excel
dim oExcel,oWb,oSheet 
Set oExcel= CreateObject("Excel.Application") 
oexcel.Workbooks.Add()
'输入SQL语句
strQuery = "select * from test"
Set rs = Cnn.Execute(strQuery)
'i为Excel行号，k为列号
arr_column = array("序号", "姓名", "用户名", "密码", "权限")
If Not rs.BOF Then
	Do While Not rs.EOF
		i = i + 1
		For k = 1 To 5 '循环5次
			oExcel.Cells(i, k).Value = rs(arr_column(k - 1))
		Next
		rs.MoveNext
	Loop
Else
	wscript.echo "失败"
End If

oexcel.ActiveWorkbook.SaveAs("C:\Users\Administrator\Desktop\test.xlsx")
oExcel.WorkBooks.Close 
oExcel.Quit 

rs.Close
Cnn.Close
Set Cnn = Nothing
msgbox "导入完成"

内容总结

以上是互联网集市为您收集整理的关于VBS连接MySQL与连接Excel_MySQL全部内容，希望文章能够帮你解决关于VBS连接MySQL与连接Excel_MySQL所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端