将excel中的数据更新到access

wind_myths

rt，access中的表和excel的格式几乎一样
access的表的字段：ID    种类    型号    供应商     联系方式    库存    安全库存
excel中的字段： 种类    型号    供应商     联系方式    库存    安全库存
就出了id（自动编号之外全一样，我现在想将同中种类，同型号的数据更新，供应商，联系方式，库存，安全库存等信息)
ps:假定excel中的型号，种类100%在access中也有记录

update.rar (27.79 KB, 下载次数: 20)

2014-2-27 10:20 上传

点击文件名下载附件

zhaogang1960

短信收到，请测试：

1. '引用Microsoft ActiveX Data Objects 2.x Library
   
2. Sub updateRecords2007()
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim s$, arr, i%, SQL$
   
5.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\数据库.accdb"
   
6.     arr = Range("A1").CurrentRegion
   
7.     For i = 3 To UBound(arr, 2)
   
8.         s = s & ",a." & arr(1, i) & "=b." & arr(1, i)
   
9.     Next
   
10.     SQL = "update 库存 a,[Excel 12.0;imex=0;Database=" & ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$" _
    
11.         & Range("a1").CurrentRegion.Address(0, 0) & "] b set " & Mid(s, 2) & " where a.种类=b.种类 and a.型号=b.型号"
    
12.     cnn.Execute SQL
    
13.     MsgBox "修改完毕。"
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16. End Sub
    

复制代码

zhaogang1960

请看附件
update.rar (35.04 KB, 下载次数: 45)

2014-2-27 12:05 上传

点击文件名下载附件

wind_myths

zhaogang1960 发表于 2014-2-27 12:05
请看附件

赵大师。。。爱你不需要理由。。。。

wind_myths

zhaogang1960 发表于 2014-2-27 12:05
请看附件

我表示我太天真了。。。。以为简单改几个数字就搞定了。。。。。
其实我要2个update，第一个你已经帮我搞定了,第二个也很类似
rt，access中的表和excel的格式几乎一样
access的表的字段：ID    日期        类型        型号        产线        工序号        移入        移出        经办人        状态
excel中的字段： 日期        类型        型号        产线        工序号        移入        移出        经办人        状态
就出了id（自动编号之外全一样，我现在想将同中种类，同型号的数据更新，供应商，联系方式，库存，安全库存等信息)
ps:假定excel中的型号，种类100%在access中也有记录）


这里只要修改状态就可以了。。。。。。（其他条件作为判断是哪一条数据的依据）


我照你的修改成


    Sub pass()
    Dim cnn As Object
    Set cnn = CreateObject("adodb.connection")
    Dim s$, Arr, i%, SQL$
    cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\数据库.accdb"
    Arr = Range("A1").CurrentRegion
    For i = 3 To UBound(Arr, 2)
        s = s & ",a." & Arr(1, i) & "=b." & Arr(1, i)
    Next
    SQL = "update 记录 a,[Excel 12.0;imex=0;Database=" & ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$" _
        & Range("a1").CurrentRegion.Address(0, 0) & "] b set " & Mid(s, 2) & " where a.类型=b.类型 and a.型号=b.型号and a.日期=b.日期 and a.产线=b.产线 and a.工序=b.工序"
    cnn.Execute SQL
    MsgBox "修改完毕。"
    cnn.Close
    Set cnn = Nothing
End Sub




直接悲剧的，报错了。。。。。求赵老师看看，该怎么改。。。。

zhaogang1960

wind_myths 发表于 2014-2-27 13:10
我表示我太天真了。。。。以为简单改几个数字就搞定了。。。。。
其实我要2个update，第一个你已经帮我搞 ...

请上传附件分析一下

wind_myths

zhaogang1960 发表于 2014-2-27 15:06
请上传附件分析一下

zhaogang.rar (42.89 KB, 下载次数: 8)

2014-2-27 15:11 上传

点击文件名下载附件

赵老师，其实只要update状态就可以了。。。。。无奈 For i = 3 To UBound(arr, 2)，还有s是什么研究了半天都不知道怎么改。。。哎太笨了我

zhaogang1960

工作表中的最后2行数据是重复的，只能按照最后1行修改状态，下面附件中我将最后一个状态改为批准2，你可以试一下：
zhaogang.rar (37.01 KB, 下载次数: 30)

2014-2-27 15:57 上传

点击文件名下载附件

zhaogang1960

wind_myths 发表于 2014-2-27 15:13
赵老师，其实只要update状态就可以了。。。。。无奈 For i = 3 To UBound(arr, 2)，还有s是什么研究了半 ...

第一、你没有告诉我根据那些字段，修改另外哪些字段
第二、如果还是根据种类    型号，那么你提供的数据不正确，3行数据都是重复的，程序只能按照最后一条记录修改：
日期        类型        型号        产线        工序号        移入        移出        经办人        状态
2013-1-1        we        asdsa         asd        weq        20        12        12        待审核
2014-2-2        we        asdsa         asd        weq        20        12        12        待审核
2014-2-2        we        asdsa         asd        weq        20        12        12        待审核

wind_myths

zhaogang1960 发表于 2014-2-27 15:43
第一、你没有告诉我根据那些字段，修改另外哪些字段
第二、如果还是根据种类    型号，那么你提供的数据 ...

出状态外的其他所有字段来修改，即日期        类型        型号        产线        工序号        移入        移出        经办人
来修改状态。。。（不用考虑acc中数据不存在的可能）

也就是说需要修改的只有状态一个而已。