使用vb.net截断来自mySQL数据库的选定表

Question

我用下面的查询填充了数据库中所有表的列表框：

Dim cmd As New OdbcCommand("SHOW TABLES", con)
Dim reader As OdbcDataReader
reader = cmd.ExecuteReader
While reader.Read
allTables.Items.Add(reader(0).ToString)
End While

使用按钮，我移动了一些不能被Truncated表到另一个名为safeTables 。

现在有两个listBoxws

• allTables ：所有表的列表
• safeTables ：不能被Truncated的表的列表如何执行该操作？ 任何人都可以建议我最好的方法吗？

Answer 1

假设btnTruncate是一个按钮，其click事件将截断一些表，期望第二个列表中的safeTables ：现在看以下代码：

Private Sub btnTruncate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTruncate.Click
    Dim tableList As List(Of String) = New List(Of String)
    Dim notDelete As List(Of String) = New List(Of String)
    tableList.AddRange(allTables.Items)
    notDelete.AddRange(tableToRemove)
    truncateTables(tableList, notDelete)
End Sub

 Public Sub truncateTables(ByVal tableToTruncate As List(Of String), ByVal safeTables As List(Of String))
        con.Open()
        For Each table As String In tableToTruncate
            If Not safeTables.Contains(table) Then
                Dim cmd As New OdbcCommand("truncate table " & table, con)
                cmd.ExecuteNonQuery()
            End If
        Next
 End Sub