[已解决]请教各位老师：删除access数据库数据

yphxsjjlcq

excel操纵access数据.zip (24.11 KB, 下载次数: 27)

2012-2-28 10:25 上传

点击文件名下载附件 请教各位老师：如何删除access数据库中符合单元格条件的所有行，不提示并自动保存access。谢谢了

最佳答案

月排行榜 / 总排行榜

那么的帅

2012-2-28 10:53

1. 
   
2. Private Sub CommandButton1_Click()
   
3.     Dim strPath As String
   
4.     Dim strSQL As String
   
5.     Dim CNN As New ADODB.Connection
   
6.     strPath = ThisWorkbook.Path & "\数据库.mdb"
   
7.     strSQL = "DELETE FROM 统计表 WHERE 单位='" & Cells(7, 3) & "'"
   
8.     CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath
   
9.     CNN.Execute strSQL   
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

那么的帅

1. 
   
2. Private Sub CommandButton1_Click()
   
3.     Dim strPath As String
   
4.     Dim strSQL As String
   
5.     Dim CNN As New ADODB.Connection
   
6.     strPath = ThisWorkbook.Path & "\数据库.mdb"
   
7.     strSQL = "DELETE FROM 统计表 WHERE 单位='" & Cells(7, 3) & "'"
   
8.     CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath
   
9.     CNN.Execute strSQL   
   
10. End Sub
    

复制代码

adders

ACCESS都是直接改变的,不会有弹出框让你确认的. 在你的EXCEL文件的Sheet1里运行以下代码就可以了:

1. 
   
2. Private Sub CommandButton1_Click()
   
3.     Dim strPath As String
   
4.     Dim strSQL As String
   
5.     Dim cnn As String
   
6.     Dim rstRst As ADODB.Recordset
   
7.    
   
8.     strPath = ThisWorkbook.Path & "数据库.mdb"
   
9.     cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & ";"
   
10.     strSQL = "DELETE FROM 统计表 WHERE 单位='" & Cells(7, 3) & "';"
    
11.     Set rstRst = New ADODB.Recordset
    
12.     rstRst.Open strSQL, cnn
    
13.     Set rstRst = Nothing
    
14. End Sub

复制代码

yphxsjjlcq

adders 发表于 2012-2-28 10:56
ACCESS都是直接改变的,不会有弹出框让你确认的. 在你的EXCEL文件的Sheet1里运行以下代码就可以了:

太谢谢了，问题终于解决了，多谢!

ztccsj

那么的帅 发表于 2012-2-28 10:53

怎么那么的牛啊