vba如何读取mysql数据_vba读取SQL数据库记录显示到Excel的例子

以下实例的内容是,通过VBA读取SQL数据库,将结果填充到Excel表。

希望本文对您有所帮助。

Dim i     As Integer, j       As Integer, sht       As Worksheet     'i,j为整数变量;sht   为excel工作表对象变量,指向某一工作表

Dim cn     As New ADODB.Connection       '定义数据链接对象   ,保存连接数据库信息;请先添加ADO引用

Dim rs     As New ADODB.Recordset         '定义记录集对象,保存数据表

Dim strCn     As String, strSQL       As String     '字符串变量

strCn = "Provider=sqloledb;Server=(local);Database=tywk;Uid=sa;Pwd=wkserver9;"    '定义数据库链接字符串

cn.Open strCn

FINALROW = Cells(65535, 1).End(xlUp).Row

Set sht = ThisWorkbook.Worksheets("更新数据库")

For i = 2 To FINALROW         '循环开始

strSQL = "insert   into   tywk.dbo.表名   values('" & sht.Cells(i, 1) _

& "' ,'" & sht.Cells(i, 2) & "' ,'" & sht.Cells(i, 3) & "' ,'" & sht.Cells(i, 4) _

& "' ,'" & sht.Cells(i, 5) & "' ,'" & sht.Cells(i, 6) & "' ,'" & sht.Cells(i, 7) _

& "' ,'" & sht.Cells(i, 8) & "' ,'" & sht.Cells(i, 9) & "' ,'" & sht.Cells(i, 10) _

& "' ,'" & sht.Cells(i, 11) & "' ,'" & sht.Cells(i, 12) & "' ,'" & sht.Cells(i, 13) _

& "' ,'" & sht.Cells(i, 14) & "' ,'" & sht.Cells(i, 15) & "' ,'" & sht.Cells(i, 16) _

& "' ,'" & sht.Cells(i, 17) & "' ,'" & sht.Cells(i, 18) & "');"

cn.Execute strSQL

Next

MsgBox "保存成功"

cn.Close

  • 0
    点赞
  • 1
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:数字20 设计师:CSDN官方博客 返回首页
评论

打赏作者

张钧琦

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值