0

こんにちは、csv ファイルから読み取ったデータテーブルを SQL データテーブルに挿入するアプリケーションを作成しようとしました。

テキストの下に、クエリ文字列、ConnectionString の情報、および ca で満たされたデータテーブルを取得する関数が表示されます。900 行。渡されたテーブルには、SQL データベースに似ているのとまったく同じ名前の 3 つの列があります。唯一の違いは、渡されたテーブルに最初の列がなく、自動インクリメントされた主キーであることです。

この行まで正常に動作mMainDbAdapter.Update(dt_Import)
します。「-」の近くで間違った構文を示す例外がスローされます。しかし、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

問題解決 お時間を無駄にして申し訳ありません。説明はコメントで

4

0 に答える 0