阅读量:0
要删除数据库中的一行数据,可以使用DELETE语句。以下是一个示例:
Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\yourdatabase.accdb;" rs.Open "SELECT * FROM your_table WHERE id = 1", conn, adOpenKeyset, adLockOptimistic If Not rs.EOF Then rs.Delete rs.Update MsgBox "Row deleted successfully" Else MsgBox "Row not found" End If rs.Close conn.Close Set rs = Nothing Set conn = Nothing
在上面的示例中,我们首先打开一个连接到数据库的连接,然后使用SELECT语句选择要删除的行。如果找到了该行,则使用rs.Delete删除该行,然后使用rs.Update将更改保存到数据库中。如果未找到该行,则显示相应的消息。最后,关闭记录集和连接,并清除对象引用。