哪位有把excel数据导入SQLserver2005的经历

游戏辅助 · 发表于 2013-7-18 17:21

哪位有把excel数据导入SQLserver2005的经历，想实现先将对应server表中数据清除，然后对应列数据导入。请问是否要设置登录窗口，哪位同仁有这方面的例子？麻烦分享一下。

或者请朋友帮忙，把我这个自用表格的数据实时更新成数据库中对应的数据就好。

游戏辅助 · 发表于 2013-7-18 18:38

把模板表格导入数据库就行。excel和数据库中的列都是相对应的，只需要实现一个删除，一个导入就行。请问谁有这方面的实例啊，参考一下，初学者请见谅。

游戏辅助 · 发表于 2013-7-18 19:26

链接SQL server时候怎么设置一个可以手动输入的对话框呢

hnwxm · 发表于 2013-7-19 10:30

你可以设计一个输入界面，可有用Excel单元格实现，也可用窗体及一些控件来实现。

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

hnwxm 发表于 2013-7-19 10:30
你可以设计一个输入界面，可有用Excel单元格实现，也可用窗体及一些控件来实现。

我现在已决定只要实现最简单的功能就行，第一，链接sqlserver数据库，第二，清空对应数据表，第三，把excel中的数据复制到数据表中（所有的列数据都是想对应的）。
请问朋友有相关的代码吗？参考一下。呵呵。先谢谢了

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

游戏辅助发表于 2013-7-20 13:52
我现在已决定只要实现最简单的功能就行，第一，链接sqlserver数据库，第二，清空对应数据表，第三，把exc ...

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"
strTemp = "WHERE WID='HH12P110'"
RowNum = Range("c65536").End(xlUp).Row
On Error GoTo 9
conn.BeginTrans
K = 0
For i = 2 To RowNum
If wkSheet.Cells(i, 2).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

复制代码

代码如上。

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

游戏辅助发表于 2013-7-20 17:35
代码如上。

为何无法操作数据库，不能实现删除特定语句，也不能insert

hnwxm · 发表于 2013-7-21 08:50

你是想一次更新部分记录，还是要每次都更新全部记录。

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