excel 批量删除 access中的数据

aksufyy

我想通过excel将从access中查找出来的数据，选择部分数据删除，通过excel批量删除access中的数据，请大家帮忙！

wj2368

1. Sub 删除()
   
2.     Dim cnn As Object, SQL$
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Mydb.mdb"
   
5.     For i = 2 To 10
   
6.    If Cells(i, 9) = 1 Then SQL = "delete * From Ruku Where 商品名称= '" & Cells(i, 4) & "' and 数量=" & Cells(i, 6)
   
7.     Next
   
8.     cnn.Execute SQL
   
9.     cnn.Close
   
10.     Set cnn = Nothing
    
11. End Sub
    

复制代码

aksufyy

感谢wj2368的指教，但是好像不能循环，还是一次删除一条数据。求您再给我看看。

opiona

1. '*********************************
   
2. '*******  北极狐工作室出品  ******
   
3. '*******  QQ：14885553      ******
   
4. '*********************************
   
5. 
   
6. Sub Opiona()
   
7. 
   
8. 'On Error Resume Next    '// 发生错误，自动执行下一句，就是忽略错误
   
9. Application.ScreenUpdating = False '//关闭屏幕刷新
   
10. Application.DisplayAlerts = False '//关闭系统提示
    
11. t = Timer   '//开始时间
    
12. 
    
13.     Set SH1 = Sheets("删除")
    
14. 
    
15.     Str_coon = "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\Mydb.mdb;" '//Jet OLEDB:Database Password=52330067"
    
16. 
    
17. StrSQL = StrSQL & "DELETE FROM [Ruku] WHERE EXISTS("
    
18. StrSQL = StrSQL & "SELECT 商品名称,型号 FROM [Excel 8.0;DataBase=" & ThisWorkbook.FullName & "].[" & SH1.Name & "$C:I] AS B"
    
19. StrSQL = StrSQL & " WHERE B.标志=1 AND [Ruku].商品名称=B.商品名称 AND [Ruku].型号=B.型号)"
    
20. MsgBox StrSQL
    
21. MsgBox AddDelMove(StrSQL, Str_coon)
    
22. 
    
23. Application.ScreenUpdating = True '//恢复屏幕刷新
    
24. Application.DisplayAlerts = True '//恢复系统提示
    
25. MsgBox "一共用时：" & Format(Timer - t, "#0.0000") & " 秒", , "北极狐提示!!"  '//提示所用时间
    
26. End Sub
    
27. 
    
28. '*****************************************************************************************
    
29. '函数名：    AddDelMove
    
30. '函数功能：  执行SQL语句，一般为添加、修改删除语句
    
31. '返回值：    返回一个布尔值，是否成功完成
    
32. '参数1：     StrSQL     字符类型   SQL查询语句
    
33. '参数2：     Str_coon   字符类型   链接语句
    
34. '使用方法： StrSQL=“update [sheet1$i8:i9] set f1='Your Pleasure”
    
35. '                     StrSQL="insert into [sheet1$k2:l6] (f1,f2) values (9,'mine')"
    
36. '                     Bool_1= AddDelMove(StrSQL, Str_coon)
    
37. '*****************************************************************************************
    
38. Public Function AddDelMove(ByVal StrSQL As String, ByVal Str_coon As String) As Boolean    '//执行SQL语句，一般为添加、修改删除语句
    
39. On Error Resume Next    ' 改变错误处理的方式。
    
40. Err.Clear
    
41.     If StrSQL = "" Then AddDelMove = False: Exit Function
    
42.         Set CN = CreateObject("Adodb.Connection") '//新建一个ADO连接
    
43.         Set RS = CreateObject("adodb.recordset")
    
44.         CN.Open Str_coon
    
45.         CN.Execute (StrSQL)
    
46.         If Err.Number <> 0 Then AddDelMove = False Else AddDelMove = True
    
47.         CN.Close  '//关闭ADO连接
    
48.     Set RS = Nothing
    
49.     Set CN = Nothing  '//释放内存
    
50. End Function
    
51. '*****************************************************************************************

复制代码

opiona

批量删除求教.rar (29.99 KB, 下载次数: 85)

2015-8-17 10:14 上传

点击文件名下载附件

zhaogang1960

要求是这样吗？
I2=1时删除Excel工作表中A列对应数据库中的记录
I2=2时删除Excel工作表中B列对应数据库中的记录
如果是请参考：

1. Sub 删除工作表存在的记录()
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim rs As New ADODB.Recordset
   
4.     Dim myTable As String
   
5.     Dim strWhere As String
   
6.     Dim SQL As String
   
7.     Dim Col As String
   
8.     myTable = "Ruku"
   
9.     Col = Cells(1, [i2])
   
10.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\Mydb.mdb"
    
11.     strWhere = " WHERE EXISTS(SELECT * FROM [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" _
    
12.         & Cells(1, [i2]).Resize(Cells(Rows.Count, [i2]).End(xlUp).Row).Address(0, 0) & "] WHERE " & Col & "=" & myTable & "." & Col & ")"
    
13.     SQL = "SELECT " & Col & " FROM " & myTable & strWhere
    
14.     rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
15.     If rs.RecordCount > 0 Then
    
16.         SQL = "DELETE FROM " & myTable & strWhere
    
17.         cnn.Execute SQL
    
18.         MsgBox rs.RecordCount & "条记录被删除。", vbInformation, "提示"
    
19.     Else
    
20.         MsgBox "没有发现要删除的记录。", vbInformation, "提示"
    
21.     End If
    
22.     rs.Close
    
23.     cnn.Close
    
24.     Set rs = Nothing
    
25.     Set cnn = Nothing
    
26. End Sub
    

复制代码

zhaogang1960

请测试附件
批量删除求教.rar (25.98 KB, 下载次数: 117)

2015-8-17 10:19 上传

点击文件名下载附件

aksufyy

感谢opiona、zhaogang1960两位老师的赐教，我修改了代码，运用到的我的文件里结果没实现。我想是因为我先前没有表达清楚，我想要的功能是
1、实现通过excel批量删除access中的数据。                                       
比如，我在I列输入1，然后点击删除按钮，就删除此行对应的access中RuKu的数据，也就是I2=1时删除Excel工作表中A列对应数据库中的记录。                                               
2、将入库批量删除的数据保存到ACCESS表Chuku                                       
能否实现在删除的同时将删除的数据保存到ACCESS表Chuku，这些要删除的行，K列都会出现一个日期，我想将K列的出库日期也一并保存过去。                                       
        再次感谢老师们！ 批量删除求教.rar (29.11 KB, 下载次数: 47)

2015-8-19 09:43 上传

点击文件名下载附件

yxrlqy

wj2368 发表于 2015-5-19 13:11

学习了，谢谢！

liuxin12

opiona 发表于 2015-8-17 10:09

老师能不能推荐一下excel与access交互数据的书籍呀