構文INSERT INTO文vb.netとアクセスデータベースのエラー

Question

私が書いているプログラム（vb.net）は、テキストボックスの値をデータベースに読み込むことになっています。 しかし、「保存」をクリックすると、最初は何も起こりませんでした。エラーなし、通知なし、何もありません。だから私は、ブレークポイントを使用してそれをトレースし、それがになった：

daTraining.Update(dsTraining, "Training") 

、ちょうど停止しました。 は、だから私は、try /キャッチに入れ、そして今私は私がこれを解決するか、問題が何であるかどのように困惑している

System.Data.OleDB.OledgException (0x80040E14): Syntax error in INSERT INTO statement. 

を取得し保存打ったとき。

コード

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click 

     Try 
      Dim cb As New OleDb.OleDbCommandBuilder(daTraining) 
      Dim dsNewRow As DataRow 
      dsNewRow = dsTraining.Tables("Training").NewRow 
      dsNewRow.Item("ID") = txtTrainingID.Text 
      dsNewRow.Item("Ranch") = cbRanches.Text 
      dsNewRow.Item("Location") = txtLocation.Text 
      dsNewRow.Item("Date") = mtbDate.Text 
      dsNewRow.Item("StartTime") = mtbStartTime.Text 
      dsNewRow.Item("FinishTime") = mtbFinishTime.Text 
      dsNewRow.Item("Crew") = txtCrews.Text 
      dsNewRow.Item("Supervisor") = txtSupervisor.Text 
      dsNewRow.Item("Foreperson") = txtForeperson.Text 
      dsNewRow.Item("Activity") = txtActivity.Text 
      dsNewRow.Item("Trainer") = txtTrainer.Text 
      dsNewRow.Item("Topics") = txtTopics.Text 

      dsTraining.Tables("Training").Rows.Add(dsNewRow) 
      daTraining.Update(dsTraining, "Training") 

      MsgBox("Training Recorded") 

      cb.Dispose() 


     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 



    End Sub 

Answer 1

クエリでワイルドカードとコマンドビルダーでデータアダプタを使用したとき、これは一般的な問題です。 1つ以上のカラム名が予約語であるか、スペースやその他の特殊文字を含む場合、自動生成されたINSERT文とUPDATE文は構文エラーを生成します。

推奨される解決方法は問題の列名を変更することですが、オプションでない場合は、コマンドビルダのQuotePrefixおよびQuoteSuffixプロパティを設定して、生成されたアクションコマンドのすべての列名からエスケープします。適切な値はデータベースによって異なりますが、Microsoftデータベースの場合はそれぞれ["と"] "を使用してください。

Answer 2

コメントで示されているように、問題は、Dateが予約語であると

dsNewRow.Item("Date") = mtbDate.Text 

でした。