vb如何删除数据库中的一行数据

要删除数据库中的一行数据，可以使用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将更改保存到数据库中。如果未找到该行，则显示相应的消息。最后，关闭记录集和连接，并清除对象引用。