关于EXCEL与ACCESS交互操作

ahh0511

关于EXCEL与ACCESS交互操作，需要实现3个方面的要求：
1、EXCEL表新增的记录自动追加至数据库中，但不可出现重复记录；
2、实现从数据库到EXCEL表的查询功能；
3、实现删除数据库中符合条件的记录，如根据字段“员工编号”
请各位大大伸出援手，谢谢！

ahh0511

坐等大神支招，谢谢！

ahh0511

没有人帮忙吗，大咖们都哪去了啊！？

LMY123

ahh0511 发表于 2016-9-25 09:48
没有人帮忙吗，大咖们都哪去了啊！？

http://club.excelhome.net/thread-454353-1-1.html

LMY123

ahh0511 发表于 2016-9-25 09:48
没有人帮忙吗，大咖们都哪去了啊！？

http://club.excelhome.net/thread-1265971-1-1.html

ahh0511

自己顶一下，有大神帮忙吗？谢谢

zhaogang1960

后两个问题要求不明，第一个问题请参考：
Sub EXCEL表向数据库追加重复记录()
    Dim cnn As New ADODB.Connection
    Dim SQL As String
    Dim arr, i&, s$
    arr = Range("A1").CurrentRegion
    For i = 2 To UBound(arr, 2)
        s = s & ",A.[" & arr(1, i) & "]"
    Next
    cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\休假管理.accdb"
    SQL = "INSERT INTO 休假记录 SELECT " & Mid(s, 2) & " FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & ";].[休假记录$B1:M" & Range("A1").CurrentRegion.Rows.Count _
        & "] A LEFT JOIN 休假记录 B ON A.员工编号=B.员工编号 WHERE B.员工编号 IS NULL"
    cnn.Execute SQL
    MsgBox "ok"
    cnn.Close
    Set cnn = Nothing
End Sub

zhaogang1960

请注意，工作表和数据库中的字段名要一致
附件…………………………
休假管理.rar (32.3 KB, 下载次数: 681)

2016-9-25 21:38 上传

点击文件名下载附件

ahh0511

zhaogang1960 发表于 2016-9-25 21:38
请注意，工作表和数据库中的字段名要一致
附件…………………………

终于等到赵版主了，谢谢！

andrew1012

zhaogang1960 发表于 2016-9-25 21:38
请注意，工作表和数据库中的字段名要一致
附件…………………………

版主，跪求帮忙
http://club.excelhome.net/thread-1304134-1-1.html