1

これは私の最後の卒業プロジェクトであり、私はこれにこだわっています。使用:

  • asp.net 2010
  • マイクロソフト アクセス 2007

レジストリとその問題を確認しました。挿入は他の場所で作業しています。

誰でも助けてもらえますか？

Public Sub insertreply()
    Dim con1 As New OleDbConnection

    con1.ConnectionString = constr

    Dim cmd As New OleDbCommand
    Dim strsql As String

    con1.Open()

    cmd.Connection = con1

    strsql = "Insert Into replyblog("
    strsql &= "repliername"
    strsql &= ",replierprofilepicture"
    strsql &= ",replierreply"
    strsql &= ",replieruniversity"
    strsql &= ",repliertoid"
    strsql &= ",replierid"
    strsql &= ",replierthanks"
    strsql &= ",repliermajor"
    strsql &= ",repliergrad"
    strsql &= ",replierthanked) "
    strsql &= "Values("
    strsql &= "@repliername"
    strsql &= ",@replierprofilepicture"
    strsql &= ",@replierreply"
    strsql &= ",@replieruniversity"
    strsql &= ",@repliertoid"
    strsql &= ",@replierid"
    strsql &= ",@replierthanks"
    strsql &= ",@repliermajor"
    strsql &= ",@repliergrad"
    strsql &= ",@replierthanked)"

    cmd.CommandText = strsql

    cmd.Parameters.AddWithValue("@repliername", lblrepliernamen.Text)
    cmd.Parameters.AddWithValue("@replierprofilepicture", lblreplierpicn.text)
    cmd.Parameters.AddWithValue("@replierreply", tbxinfo.Text)
    cmd.Parameters.AddWithValue("@replieruniversity", lblreplieruniversityn.text)
    cmd.Parameters.AddWithValue("@repliertoid", Session("QuestID"))
    cmd.Parameters.AddWithValue("@replierid", lblreplieridn.Text)
    cmd.Parameters.AddWithValue("@replierthanks", lblreplierthanksn.Text)
    cmd.Parameters.AddWithValue("@repliermajor", lblrepliermajorn)
    cmd.Parameters.AddWithValue("@repliergrad", lblrepliergradn.text)
    cmd.Parameters.AddWithValue("@replierthanked", "n")
    cmd.ExecuteNonQuery()

    con1.Close()
End Sub

エラーが発生していますcmd.executeNonQuery()

複数ステップの OLE DB 操作でエラーが発生しました。利用可能な場合は、各 OLE DB ステータス値を確認します。作業は行われませんでした。

4

1 に答える 1

1

エラーは、SQL に問題があることを意味します。Textまた、プロパティのないラベルをパラメーターの1つに入れようとしています:

cmd.Parameters.AddWithValue("@repliermajor", lblrepliermajorn)

...はず...

cmd.Parameters.AddWithValue("@repliermajor", lblrepliermajorn.Text)

（これは答えではないかもしれませんが）。

于 2013-06-09T20:12:02.087 に答える