German SQL - Löschen vieler Zeilen einer Tabelle

Sub Service_Start(StartingIntent As Intent)

   For c = 0 To SocketService.DataForTransactionMap.Size - 1
      Database.mySQL.ExecNonQuery2("DELETE FROM DBLog WHERE id = ?", Array As String(SocketService.DataForTransactionMap.GetKeyAt(c)))

   Next
   
   SocketService.DataForTransactionMap.Clear

End Sub

Dim IDs As String
For c = 0 To SocketService.DataForTransactionMap.Size - 1
 IDs = IDs & SocketService.DataForTransactionMap.GetKeyAt(c))
 If c < SocketService.DataForTransactionMap.Size - 1 Then
  IDs = IDs & ", "
 End If
Next

Database.mySQL.ExecNonQuery("DELETE FROM DBLog WHERE id In " & IDs)

Sub Service_Start(StartingIntent As Intent)

    Database.mySQL.BeginTransaction
    For c = 0 To SocketService.DataForTransactionMap.Size - 1
        Database.mySQL.ExecNonQuery2("DELETE FROM DBLog WHERE id = ?", Array As String(SocketService.DataForTransactionMap.GetKeyAt(c)))

    Next
    
    Database.mySQL.TransactionSuccessful
    Database.mySQL.EndTransaction

    SocketService.DataForTransactionMap.Clear
End Sub