作者：绿色风
分类：
时间：2022-08-17
浏览：142
楼主
wise |
Q：如何使用VBA把Excel中的数据添加到SQL server中？
A:ALT+F11→插入模块，在模块中输入以下代码：- Sub InsertExcelData()
- Dim conn As Object, rs As Object
- Dim SQL As String
- Dim mystr As String, i As Long, Arr As String
- '***********************需要修改此处的SQL Server 数据库条件******************************
- MyServer = "WISE-THINK" '存放数据的SQL Server 服务器
- mydata = "VBA学习专用" '存放数据的SQL Server 数据库
- '***********************修改结束*********************************************************
- Set conn = CreateObject("ADODB.Connection") '建立ADODB连接对象
- Set rs = CreateObject("ADODB.recordset") '建立收集器对象
- conn.connectionstring = "Driver={sql server};" _
- & "server=" & MyServer & ";" _
- & "uid=;pwd=;" _
- & "database=" & mydata _
- & ";AutoTranslate=False"
- '服务器是:WISE-THINK
- conn.Open '打开连接SQL server
- If MsgBox("是否添加数据?", vbQuestion + vbYesNo) = vbYes Then
- '定义各个变量
- Arr = " ( 品牌 ,套餐名称 ,套餐月费 ,协议期限 ,预存话费 ) "
- '循环添加各个数据
- For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
- mystr = " Values( "
- mystr = mystr & "'" & Cells(i, 1) & "','" & Cells(i, 2) & "'," & Cells(i, 3) & "," & Cells(i, 4) & "," & Cells(i, 5) & ")"
- '添加数据的SQL语句
- SQL = "Insert into 套餐 " & Arr & " " & mystr
- '执行SQL语句
- conn.Execute SQL
- Next i
- MsgBox "数据添加成功!", vbInformation
- Else
- MsgBox "数据添加动作给取消", vbInformation
- End If
- conn.Close
- Set conn = Nothing
- End Sub
 |
2楼
纵鹤擒龙水中月 |
学习了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一