使用ADODB命令真正删除MS Access数据库的条目

Question

I would like to delete rows of an access table. Therefore I am using VBA with an ADODB command object.

The problem is that instead of really deleting the row, the query just sets all values except the ID to 0 / ""

What am I doing wrong or what do I need to do instead to really delete the entry?

Thank you in advance!

Code:

Dim db1 As ADODB.Connection
Dim db_data As ADODB.Recordset
Dim cmd As ADODB.Command

...'Code to build up Connection'

Set cmd = New ADODB.Command

cmd.ActiveConnection = db1
cmd.CommandText = "DELETE FROM TableXY WHERE FieldXY = ValueXY"
Set db_data = cmd.Execute

Answer 1

Try to explicitly delete all:

cmd.CommandText = "DELETE * FROM TableXY WHERE FieldXY = ValueXY"

You can also skip assigning it to a recordset: cmd.Execute instead of Set db_data = cmd.Execute .

Note that I can't replicate your issue.

Answer 2

ValueXY must have a value:

ValueXY = SomeValue
cmd.CommandText = "DELETE FROM TableXY WHERE FieldXY = " & ValueXY & ""

or, if text:

cmd.CommandText = "DELETE FROM TableXY WHERE FieldXY = '" & ValueXY & "'"

Answer 3

You can simply do this without using the command:

Dim db1 As New ADODB.Connection
db1.ConnectionString = "your connection string here"
db1.Open
db1.Execute "DELETE FROM TableXY WHERE FieldXY = ValueXY"
db1.Close