如何在EXCEL里往ACCESS添加数据？

穿越哥

标准成本系统.rar (30.12 KB, 下载次数: 20)

2012-10-27 11:09 上传

点击文件名下载附件

1. Sub 添加物料()
   
2.     Dim myData As String, myTable As String
   
3.     Dim arr As Variant
   
4.     Dim cnn As ADODB.Connection
   
5.     Dim rs As ADODB.Recordset
   
6.     arr = [a1].CurrentRegion
   
7.     myData = ThisWorkbook.Path & "\系统.accdb"
   
8.     myTable = "物料清单"
   
9.     Set cnn = New ADODB.Connection
   
10.     With cnn
    
11.         .Provider = "microsoft.ACE.oledb.12.0"
    
12.         .Open myData
    
13.     End With
    
14.     For i = 2 To UBound(arr)
    
15.         Sql = "select * from " & myTable
    
16.         Set rs = New ADODB.Recordset
    
17.         rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic
    
18.         If rs.RecordCount = 0 Then rs.AddNew
    
19.         For j = 1 To rs.Fields.Count
    
20.             rs.Fields(j - 1) = arr(i, j - 1)
    
21.         Next j
    
22.         rs.Update
    
23.     Next
    
24.     MsgBox "数据保存完毕！", vbInformation + vbOKOnly
    
25.     rs.Close
    
26.     cnn.Close
    
27.     Set rs = Nothing
    
28.     Set cnn = Nothing
    
29. End Sub

复制代码

我的代码提示下标越界，ACCESS不熟，VBA也不熟，只是常用ADO查询做报表，现在想着手弄个系统，都不知道怎么做，好像又没什么比较好的ACCESS方面的书适合我这种菜鸟看。
另外上面的例子，怎么实现添加的时候，先判断需要添加的记录的U8编码在ACCESS数据是否存在，存在的话则整条记录不导入，麻烦大师们给予指点，谢谢。

zhangjimfu

http://club.excelhome.net/thread-758903-1-1.html
供参考

穿越哥

zhangjimfu 发表于 2012-10-29 08:59
http://club.excelhome.net/thread-758903-1-1.html
供参考

谢谢发版。另外有没有ACCESS计算字段方面的学习笔记呀？

zhangjimfu

穿越哥 发表于 2012-10-30 11:04
谢谢发版。另外有没有ACCESS计算字段方面的学习笔记呀？

SQL语句吗?在Access里实际很少手写SQL语句,常用的菜单操作和函数就可以解决很多查询计算问题了.