0

因此，每当下面的函数到达 dataAdapter.Fill(dataset) 行时，我都会收到 OleDBException“未指定错误”。

我尝试添加 dbcommand.connection.close() 和 dbcommand.connection.dispose() 但都没有解决问题。

我假设每次我尝试连接数据库时都会发生这个错误，但这只是我的代码中第一个这样做的函数，所以这是第一次发生错误的地方。

我在网上读到 MySQL 最终会在一段时间后清除旧连接，如果这是真的，那么我应该只需要等待......但我不想继续等待什么都没有发生。

    Function GetOrders(ByVal _numberrecords As Long) As DataTable
Dim TaxConnStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ConfigurationManager.AppSettings("Database")
Dim dbConnection As OleDbConnection = New OleDbConnection(TaxConnStr)
Try
    'Code to get orders in call status. Sort oldest to newest
    ' dbConnection.Open()
    Dim queryString As String
    queryString = "SELECT TOP " & _numberrecords & " Orders.Control_Number, Orders.State, Orders.County, Orders.Status, Orders.ZipCode, Orders.OrderNumber, Orders.Client, Orders.Department "
    queryString += "FROM Orders "
    queryString += "WHERE(((Orders.Status) = 'Tax Cert Call' Or (Orders.Status) = 'Online')) "
    queryString += "ORDER BY Orders.Date_Received;"
    Dim dbCommand As OleDbCommand = New OleDbCommand
    dbCommand.CommandText = queryString
    dbCommand.Connection = dbConnection
    'dbCommand.Connection.Close()
    'dbCommand.Connection.Dispose()
    'dbCommand.Dispose()
    Dim dataAdapter As OleDbDataAdapter = New OleDbDataAdapter
    dataAdapter.SelectCommand = dbCommand
    Dim dataSet As DataSet = New DataSet
    dataAdapter.Fill(dataSet)
    If dataSet.Tables(0).Rows.Count >= 1 Then
        GetOrders = dataSet.Tables(0)
    End If

Catch ex As Exception
    Console.WriteLine(ex.Message)
    myLogger.Log(ex.Message)
Finally
    dbConnection.Close()

    dbConnection.Dispose()
End Try

结束功能

4

1 回答 1

0

发现了问题。我的 Access 数据库已损坏。我刚刚重新制作了数据库，一切都像肉汁一样工作。

于 2013-05-20T17:03:22.347 回答