こんにちは、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
問題解決 お時間を無駄にして申し訳ありません。説明はコメントで