0

これは簡単なことだと思いますが、多くのサイトですべての指示に従っているにもかかわらず、構文エラーが発生する理由を誰か教えてもらえますか?

完全な私のコードは次のとおりです。

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
    dbSource = "Data Source = F:\Brett\Programming Projects\Roster\Roster.mdb"

    con.ConnectionString = dbProvider & dbSource
    con.Open()
    ' This is grabbing all the records from the listing table in the Roster Database
    sql = "Select * FROM Listing"
    ' Or selected columns
    'sql = "SELECT Listing.FName, Listing.LName FROM Listing"
    da = New OleDb.OleDbDataAdapter(sql, con)

    ' Populate the dataset with the data adaptor. This can be any name
    da.Fill(ds, "Roster")
    con.Close()

    MaxRows = ds.Tables("Roster").Rows.Count
    inc = -1

End Sub

Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
    Dim cb As New OleDb.OleDbCommandBuilder(da)
    Dim iRow As Integer = Me.Label1.Text
    Dim junk As Integer

    ds.Tables("Roster").Rows(iRow).Item(5) = Me.TextBox3.Text
    ds.Tables("Roster").Rows(iRow).Item(6) = Me.TextBox4.Text
    ds.Tables("Roster").Rows(iRow).Item(8) = Me.TextBox5.Text

    da.Update(ds, "Roster")

    'da.Update(ds)

End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
    Dim newtbl As DataTable
    Dim cb As New OleDb.OleDbCommandBuilder(da)
    Dim cmd As New OleDb.OleDbCommand

    newtbl = ds.Tables("Roster")

    Dim drCurrent As DataRow
    drCurrent = newtbl.NewRow()

    drCurrent(1) = "sfd"
    drCurrent(2) = "werter"

    newtbl.Rows.Add(drCurrent)

    da.Update(ds, "Roster")

End Sub

何をしても、このエラーメッセージが表示されます。これは現在2日間であるため、どんな助けも大歓迎です...

私のエラーをお見せしますが、いつものように、いくつかのピーナッツはがらくたなしでは私を許しません.. OleDbException was unhandled, Syntax error in Insert Into statement.

4

1 に答える 1

0

データベース呼び出しを try-catch ブロックでラップして、例外で返された InnerXml を調べることはできますか?

これにより、発生しているエラーに関する詳細情報が得られる場合があります。

于 2013-12-11T05:51:41.970 に答える