根据工作表批量更新Access数据库并向数据库添加不存在的记录(不使用循环)

314000272

下载学习，谢谢赵老师。

gtwlren

那里有各种类型变量在SQL中怎么表示的帖子？

enoch2003

学习学习，感谢分享。

ming668

参照您的代码，我写了一个更新SQL数据库的代码，执行到cn.Execute sqlins时出错：第1行： ‘a’ 附近有语法错误,请帮忙修改下，谢谢！

1.   
   
2. 
   
3. Sub updateaddRecords2003()
   
4. ''引用Microsoft ActiveX Data Objects 2.x Library
   
5. Dim cn As New ADODB.Connection
   
6. Dim strCn As String, sqlins As String
   
7. Dim rs As New ADODB.Recordset
   
8. Dim myTable As String
   
9. Dim strTemp As String
   
10. Dim arrFields As Variant
    
11. 
    
12. strCn = "provider=sqloledb;server=192.168.2.8;database=Ttkq;uid=sa;pwd=;"
    
13. cn.Open strCn
    
14.     myTable = "kqll"
    
15.     On Error GoTo errmsg
    
16.     arrFields = Range("A1:G1") '工作表中的字段名写入数组
    
17.    
    
18.      '生成更新字符串，
    
19.     For i = 2 To UBound(arrFields, 2)
    
20.         strTemp = strTemp & ",a." & arrFields(1, i) & "=b." & arrFields(1, i)
    
21.     Next
    
22.    
    
23.     '生成更新SQL语句
    
24.     sqlins = "update " & myTable & " a,[Excel 8.0;Database=" & ActiveWorkbook.FullName & "].[数据$" _
    
25.         & Range("a1").CurrentRegion.Address(0, 0) & "] b set " & Mid(strTemp, 2) & " where a.ID=b.ID"
    
26.     cn.Execute sqlins
    
27. Set cn = Nothing
    
28. 
    
29.     Exit Sub
    
30. errmsg:
    
31.     MsgBox Err.Description, , "错误报告"
    
32. End Sub
    
33. 
    
34. 
    

复制代码

ming668

84楼代码写贴的时候出错，已改正，请帮忙修改

ming668

ming668 发表于 2015-8-7 11:35
参照您的代码，我写了一个更新SQL数据库的代码，执行到cn.Execute sqlins时出错：第1行： ‘a ...

可否将EXCEL表数据放到临时表，再用临时表进行更新，如果可以，代码要怎么写，谢谢。

zhaogang1960

ming668 发表于 2015-8-8 15:30
可否将EXCEL表数据放到临时表，再用临时表进行更新，如果可以，代码要怎么写，谢谢。

没有用过SQL数据库，感觉应该逐行更新
建议单独发帖求助，不要用我写的代码限制别人的思路

shun2233

如果想更新其本身字段，如何解决？
学生编号        姓名        性别        编号更正
100001        王兵        男        120001
100002        严匡斌        男        130002
100003        周天昊        女        120003
100004        王晓斌        女        170004
100005        李祯        女        160005
100006        韩迎        男        150006
100007        王鑫        女        180007
100008        王从波        男        190008
"update " & myTable & " a,[Excel 8.0;Database=" & ActiveWorkbook.FullName & "].[数据$" & Range("a1").CurrentRegion.Address(0, 0) & "] b set a.学生编号= B.编号更正 where a.学生编号=b.学生编号"

shun2233

zhaogang1960 发表于 2015-8-8 15:34
没有用过SQL数据库，感觉应该逐行更新
建议单独发帖求助，不要用我写的代码限制别人的思路

赵版，如何更新字段本身？

zhaogang1960

shun2233 发表于 2015-8-13 17:14
如果想更新其本身字段，如何解决？
学生编号        姓名        性别        编号更正
100001        王兵        男        120001

下面语句没有问题：
    SQL = "update " & myTable & " a,[Excel 8.0;Database=" & ActiveWorkbook.FullName & "].[数据$" _
        & Range("a1").CurrentRegion.Address(0, 0) & "] b set a.学生编号=b.编号更正 where a.学生编号=b.学生编号"