怎样用VBA将数据导入到SQL数据库

可爱的巨刃 · 发表于 2011-12-5 16:19

求解怎样用VBA将EXCEl的数据导入到SQL数据库

lin_x · 发表于 2011-12-5 16:30

本帖最后由 lin_x 于 2011-12-5 16:34 编辑

要写代码的，而且如果数据库是在你们内部的服务器上，别人由于不能连你们内部的sql server 服务器，也帮不上忙，还是找个兼职帮你们弄吧，
或者，你服务器上应该有个叫studio mangement 的东东，用它也可以把excel 的数据导入sql server 数据库

可爱的巨刃 · 发表于 2011-12-5 16:35

lin_x 发表于 2011-12-5 16:30
要写代码的，而且如果数据库是在你们内部的服务器上，别人由于不能连你们内部的sql server 服务器，也帮不上 ...

恩，我知道要写代码，就是想知道怎么写的

zez · 发表于 2011-12-5 16:41

给个代码的例子：
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Long
Dim mydata As String, myTable As String, SQL As String
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
Set ws = wb.Sheets("sheet1")
mydata = "工资管理"
myTable = "基本信息"
Set cnn = New ADODB.Connection
With cnn
      .ConnectionString = "Provider=SQLOLEDB.1;" _
         & "User ID=sa;" _
         & "Data Source=THTFCOMPUTER;" _
         & "Initial Catalog=" & mydata
      .Open
End With
n = ws.Range("A65536").End(xlUp).Row
For i = 2 To n
      SQL = "select * from " & myTable _
      & " where 职工编号='" & Trim(ws.Cells(i, 1).Value) & "'" _
      & " and 姓名='" & Trim(ws.Cells(i, 2).Value) & "'" _
      & " and 性别='" & Trim(ws.Cells(i, 3).Value) & "'" _
      & " and 所属部门='" & Trim(ws.Cells(i, 4).Value) & "'" _
      & " and 工资总额=" & Trim(ws.Cells(i, 5).Value) _
      & " and 备注='" & Trim(ws.Cells(i, 6).Value) & "'"
      Set rs = New ADODB.Recordset
      rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
      If rs.EOF And rs.BOF Then
         rs.AddNew
         For j = 1 To rs.Fields.Count
            rs.Fields(j - 1) = Trim(ws.Cells(i, j).Value)
         Next j
         rs.Update
      Else
         For j = 1 To rs.Fields.Count
            rs.Fields(j - 1) = Trim(ws.Cells(i, j).Value)
         Next j
         rs.Update
      End If
Next i
MsgBox "数据保存完毕！", vbInformation, "保存数据"
rs.Close
cnn.Close
Set wb = Nothing
Set ws = Nothing
Set rs = Nothing
Set cnn = Nothing

可爱的巨刃 · 发表于 2011-12-5 16:51

zez 发表于 2011-12-5 16:41
给个代码的例子：
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

不能完全看懂，还要再研究下，多谢

lin_x · 发表于 2011-12-5 16:55

lz不是学编程的吧，如果工作上要用，还是建议找人做，毕竟不是自己的专业，会有点力不从心的，呵呵，一点小小的建议。

可爱的巨刃 · 发表于 2011-12-5 17:01

lin_x 发表于 2011-12-5 16:55
lz不是学编程的吧，如果工作上要用，还是建议找人做，毕竟不是自己的专业，会有点力不从心的，呵呵，一点小 ...

恩，不是学编程的，有一点Ｃ语言基础，刚毕业没多久，想多学点东西的

hfmei2000 · 发表于 2011-12-10 13:04

留下收藏，正在学习中…………

lj114021002 · 发表于 2011-12-11 09:42

顺带学习了下，不错

游戏辅助 · 发表于 2013-7-20 20:04

以实现先删除表中原有数据，已WID作为关键字，随后再插入数据。
下来要实现的就是可以在对话框中输入关键字，而不是要在代码中直接填写。因为每隔一段时间就要使用新的关键字了。还有就是数据库的用户名和密码也是要更换的。

Sub qqqQQQ1()
Dim conn As New ADODB.Connection
Dim conn2
Dim rs As New ADODB.Recordset
Dim i%, strTemp$, RowNum%, K%
Dim wkSheet As Worksheet
If MsgBox("确认要导入数据吗？", vbYesNo) = 7 Then Exit Sub
'建立与SQL的连接
conn.Open "Driver={SQL Server};server=.;uid=sa;pwd=dz;database=mainlogsql_cq;"
Set wkSheet = Worksheets("sheet2")
'删除表中原有数据，已成功
strTemp = "DELETE FROM JP_JXSJB WHERE WID='H38'"
conn.Execute strTemp
RowNum = Range("c65536").End(xlUp).Row
On Error GoTo 9
conn.BeginTrans
K = 0
For i = 2 To RowNum
If wkSheet.Cells(i, 1).Value <> 0 Then
'拼写INSERT语句的SQL语句
strTemp = "insert into JP_JXSJB(WID,SKNO,RID,DATE,TIME,ACTC,JXLX,XH,DEPTH,XDD,XDF,FWD,FWF,VDEPTH,X,Y,ZWY,ZFW,QJBHL,CLSJ,BZ) "
strTemp = strTemp & " values( '" & wkSheet.Cells(i, 1).Value & "' , '" & _
wkSheet.Cells(i, 2).Value & "' , '" & _
wkSheet.Cells(i, 3).Value & "' , '" & _
wkSheet.Cells(i, 4).Value & "' , '" & _
wkSheet.Cells(i, 5).Value & "' , '" & _
wkSheet.Cells(i, 6).Value & "' , '" & _
wkSheet.Cells(i, 7).Value & "' , '" & _
wkSheet.Cells(i, 8).Value & "' , '" & _
wkSheet.Cells(i, 9).Value & "' , '" & _
wkSheet.Cells(i, 10).Value & "' , '" & _
wkSheet.Cells(i, 11).Value & "' , '" & _
wkSheet.Cells(i, 12).Value & "' , '" & _
wkSheet.Cells(i, 13).Value & "' , '" & _
wkSheet.Cells(i, 14).Value & "' , '" & _
wkSheet.Cells(i, 15).Value & "' , '" & _
wkSheet.Cells(i, 16).Value & "' , '" & _
wkSheet.Cells(i, 17).Value & "' , '" & _
wkSheet.Cells(i, 18).Value & "' , '" & _
wkSheet.Cells(i, 19).Value & "' , '" & _
wkSheet.Cells(i, 20).Value & "' , '" & _
wkSheet.Cells(i, 21).Value & "')"
'执行INSERT语句
conn.Execute strTemp
K = K + 1
End If
Next
conn.CommitTrans '结束插入操作的事务
ThisWorkbook.Save
'显示已经插入的记录条数
conn.Close '关闭链接
Set rs = Nothing '释放内存
Set conn = Nothing '释放内存
Set wkSheet = Nothing
Application.ScreenUpdating = True
MsgBox "导入完毕！" & Chr(10) & Chr(10) & "已经插入的条数：" & K
Exit Sub
9:
'Conn.RollbackTrans
MsgBox Err.Description & "第" & i & "行导入出错"
End Sub

复制代码

还是要谢谢各位的帮忙啊。对excel的控件还不是很熟悉，继续钻研中。因为不是学编程的，只能看懂，所以都是在前人的基础上直接修改代码。呵呵。希望大家不要吐槽

		自动登录	找回密码
密码			免费注册

[求助] 怎样用VBA将数据导入到SQL数据库