[英]Using Excel VBA to SQL delete in MS Access
我在Excel中使用VBA从MS Access数据库中删除行。 我遇到了
“错误3704 - 对象打开时不允许操作”
虽然使用类似的代码我能够向数据库添加信息。 当试图删除时,它给我错误。 请协助!
Sub DeleteOldValues()
'--------------
'DIM STATEMENTS
Dim strMyPath As String, strDBName As String, strDB As String, strSQL As String, StrQuery As String
'instantiate an ADO object using Dim with the New keyword:
Dim adoRecSet As New ADODB.Recordset
Dim connDB As New ADODB.Connection
'--------------
'THE CONNECTION OBJECT
strDBName = "Test.accdb"
strMyPath = "Y:"
strDB = strMyPath & "\" & strDBName
'Connect to a data source:
connDB.Open ConnectionString:="Provider = Microsoft.ACE.OLEDB.12.0; data source=" & strDB
StrQuery = "DELETE * FROM Table WHERE ProjectName Like '*Project 1*'"
'Performs the actual query
adoRecSet.Open StrQuery, connDB
'--------------
'close the objects
adoRecSet.Close
connDB.Close
'destroy the variables
Set adoRecSet = Nothing <-error occurs at this point
Set connDB = Nothing
End Sub
您正在删除,因此您没有记录集。
'Connect to a data source:
connDB.Open ConnectionString:="Provider = Microsoft.ACE.OLEDB.12.0; data source=" & strDB
StrQuery = "DELETE * FROM Table WHERE ProjectName Like '*Project 1*'"
'Performs the actual query
connDB.Execute strQuery
在大多数情况下,最好将DAO与MS Access一起使用
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.