Question

如何将数据从 Excel 导入到 SQL Server

Answer 1

举例如下：

在EXCEL中，按ALT+F11→插入→模块，在模块中输入以下代码：

Sub InsertData()
Dim conn As Object, rs As Object
Dim SQL 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
  '添加数据的SQL语句
  SQL = "Insert into  套餐 ( 品牌 ,套餐名称 ,套餐月费 ,协议期限 ,预存话费 ) " _
      & " values( 'Apple','156元3GiPhone 套餐',156.00,12,1980) "
  conn.Execute SQL
  MsgBox "数据添加成功!", vbInformation
Else
  MsgBox "数据添加取消", vbInformation
End If
conn.Close
Set conn = Nothing
End Sub

Answer 2

你用navicate客户端连接sqlService，在excel中按照表结构的循序排放，然后复制内容，在navicat中打开表，粘贴就可以把数据插入进去了。