Question

您好我曾尝试编写一个应用程序，它将csv文件中的数据表读取插入到sql数据表中。

在文本下，您会看到一个获取查询字符串的函数，一个ConnectionString的信息和一个填充数据表的信息。 900行。传递的表有三列，其名称与sql数据库中的类似名称完全相同。唯一的区别是传递的表没有第一列是一个自动递增的主键。

直到这条线它才能正常工作：mMainDbAdapter.Update(dt_Import)
有一个Excpetion被抛出，说“ - ”附近有错误的语法。但我没有 - 在我的SQL查询中？！

Public Shared Function Fill_DB_TAB(ByVal QueryString As String, ByVal DataBase As      
String, ByVal dt_Import As DataTable) As Boolean
    Dim objCommandBuilder As OleDbCommandBuilder
    ' Dim result As Boolean = True
    mCmd.Connection = GetConnection(DataBase)
    mCmd.Connection.Close()
    mCmd.Connection.Open()

    Dim DataSet As DataSet = New DataSet

    Try
        ' Run the query and create a DataSet.
        Dim mMainDbAdapter = New OleDbDataAdapter(QueryString, mCmd.Connection)
        mMainDbAdapter.Fill(DataSet)
        objCommandBuilder = New OleDbCommandBuilder(mMainDbAdapter)
        mMainDbAdapter.Update(dt_Import)                           ' Alle neu ('Added') in die DataTable aufgenommenen Sätze schreiben
        mMainDbAdapter.Dispose()
        mMainDbAdapter = Nothing
        objCommandBuilder.Dispose()


    Catch ex As Exception
        'result = False
        Extras.write_in_Logfile(ex.Message)
        Main.gResult = False
        System.Diagnostics.Debug.WriteLine(ex.Message, MsgBoxStyle.Critical, "Verbindungsfehler")
    Finally
        ' Close the database connection if it is still open.
        mCmd.Connection.Close()
    End Try
    Return Main.gResult
End Function

问题解决了抱歉浪费你的时间。描述在评论中

为什么在adapter.Update中抛出异常

0 个答案: