Question

所以这是我遇到的一个非常奇怪的问题，我不知道是什么原因造成的。这是代码：http://hastebin.com/pemixowupa.vbs

问题：

数据库中有大约10个不同的表，我在应用程序加载时收集这些表，这样只要需要表中的信息，我就不必等待数据库连接。

收集3张表（正好3张表或经过3次while循环）后，它停在：

adp.Fill（TEMP_DataTable）

它没有错误，它只是显示我的启动画面（它上面有一个简单的进度条）

如果需要更多信息，请询问。我会在这里发布

提前致谢！
Syths

Answer 1

如果DB中有10个表，则必须使用包含DataTables的DataSet 所以用这个：

 Public Shared Function RetrieveTableNames(ByVal table As String) As DataTable
    'Dim TEMP_DataTable As New DataTable
    Dim TEMP_DataSet as new DatSet

    If isConnected Then
        Dim sqlStr As String = "SELECT * FROM " & table
        'MsgBox(sqlStr)
        Dim adp As MySqlDataAdapter = New MySqlDataAdapter(sqlStr, myConn)

        adp.Fill(TEMP_DataSet)

        adp.Dispose()
    End If

    Return TEMP_DataSet

    TEMP_DataSet.Dispose()
End Function

从数据库中获取表在运行3次后停止工作

1 个答案: