求助Update在excel中的应用！

@。@

之前看了赵版的update的使用，挺好的，但是自己还是没领会到精髓，求助帮我把附件的例子用update完成！送今天晚上的鲜花！
赵版的帖子http://club.excelhome.net/thread-941210-1-1.html，希望能取之用在我这个例子上！

@。@

今晚在线坐等了！{:soso_e115:}

zhaogang1960

你的这个要求比较简单，不需要两表连接更新：

1. Sub 宏1()
   
2. '引用Microsoft ActiveX Data Objects 2.x Library
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim SQL$, arr, i&
   
5.     arr = [a1].CurrentRegion
   
6.     cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName '连接数据库
   
7.     For i = 2 To UBound(arr)
   
8.         SQL = "update [" & arr(i, 1) & "$] set 值=" & arr(i, 3) & " where 主键=" & arr(i, 2)
   
9.         cnn.Execute SQL
   
10.     Next
    
11.     cnn.Close
    
12.     Set cnn = Nothing
    
13. End Sub
    
14. 
    

复制代码

zhaogang1960

你的这个要求比较简单，不需要两表连接更新：

1. Sub 宏1()
   
2. '引用Microsoft ActiveX Data Objects 2.x Library
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim SQL$, arr, i&
   
5.     arr = [a1].CurrentRegion
   
6.     cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName '连接数据库
   
7.     For i = 2 To UBound(arr)
   
8.         SQL = "update [" & arr(i, 1) & "$] set 值=" & arr(i, 3) & " where 主键=" & arr(i, 2)
   
9.         cnn.Execute SQL
   
10.     Next
    
11.     cnn.Close
    
12.     Set cnn = Nothing
    
13. End Sub
    
14. 
    

复制代码

zhaogang1960

请看附件
求助Update在Excel中的应用.rar (18.58 KB, 下载次数: 24)

2013-9-14 16:09 上传

点击文件名下载附件

@。@

zhaogang1960 发表于 2013-9-14 16:09
请看附件

赵老师，为什么我把值换成非数字的时候出错啊？错误报告是至少一个参数没有指定值。

        主键        值
a        1        f
b        5        3
c        7        4
把值为f的那个换成数字就正常，把数字换成别的就出错？

@。@

zhaogang1960 发表于 2013-9-14 16:09
请看附件

在检查错误的时候，我发现SQL的值也是传递过去的，请看图片，不知道啥原因？

@。@

zhaogang1960 发表于 2013-9-14 16:07
你的这个要求比较简单，不需要两表连接更新：

赵老师，如果ado对这个有限制，不能对字符更新，那有什么其他的方法么？如果我需要更新的数据比较多，如果一个一个的对比，用循环往上填的话，那样岂不是很慢的。请教赵老师有啥其他的快捷的方式么？

zhaogang1960

@。@ 发表于 2013-9-16 15:39
赵老师，如果ado对这个有限制，不能对字符更新，那有什么其他的方法么？如果我需要更新的数据比较多，如果 ...

常规法：

1. Sub 宏1()
   
2.     Dim arr, i&, c As Range
   
3.     arr = [a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         Set c = Sheets(arr(i, 1)).Range("a:a").Find(arr(i, 2), , , 1)
   
6.         If Not c Is Nothing Then c.Offset(, 1).Value = arr(i, 3)
   
7.     Next
   
8. End Sub
   

复制代码

zhaogang1960

请看附件
求助Update在Excel中的应用(Find方法).rar (19.21 KB, 下载次数: 12)

2013-9-16 15:47 上传

点击文件名下载附件