Question

以下是我正在使用的代码：

Try
        Dim SqlQuery As String = "DELETE FROM tblEXcel WHERE ID = " & id & ";"
        Dim SqlCommand As New OleDbCommand

        With SqlCommand
            .CommandText = SqlQuery
            .Connection = conn
            .ExecuteNonQuery()

        End With

    MsgBox("One record deleted..")
    Catch ex As Exception
        MsgBox(ex.Message, vbOKOnly, "Clear Measurement Table!")
    End Try

Answer 1

对于DataBindings，您可以使用此...

 Do While ExampleBindingSource.Count > 0
     ExampleBindingSource.RemoveCurrent()
 Loop

Answer 2

删除WHERE ID = " & id。然后所有行将被删除因此，只需将SQL命令更改为：

Dim SqlQuery As String = "DELETE FROM tblEXcel"

Answer 3

使用以下声明：

从tblName中删除*

Dim SqlQuery As String = "DELETE * FROM tblEXcel WHERE ID = " & id & ";"

Answer 4

Dim MySQLCON As MySqlConnection = New MySqlConnection("Data Source=localhost;Database=test;User ID=root;Password=mysql;")
Dim COMMAND As MySqlCommand

MySQLCON.Open() /Open your Connection
Dim DELETERECORD As String = "DELETE * FROM tblEXcel WHERE ID= @id"
COMMAND = New MySqlCommand(DELETERECORD, MySQLCON)
COMMAND.Parameters.AddWithValue("@id", userID.Text) /userID.Text is the string of the users ID
COMMAND.ExecuteNonQuery()
MySQLCON.Close() /Always Close your Connection
MySQLCON.Dispose() /Always Dispose of your Connection

注意：

你这样做的方式很容易受到MySQL注入攻击。如果您的应用程序中有很多MySQL代码，我建议您重新编写它，以免它受到攻击。

删除MS Access数据库中的所有数据

4 个答案: