用的是access
dim mycon As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database\suznet.mdb"))
Dim intcounter As Integer = "0"
Dim strgongsidongtai As String = "insert into zxdt(title,authors,froms,text,addtime,grade)values(@title,@authors,@from,@text,@addtime,@grade)"
Dim mycmd As OleDb.OleDbCommand
mycon.open
mycmd = New OleDb.OleDbCommand(strgongsidongtai, mycon)
                mycmd.Parameters.Add("@title", TextBox1.Text)
                mycmd.Parameters.Add("@authors", Session("username"))
                mycmd.Parameters.Add("@from", DropDownList1.SelectedItem.Value)
                mycmd.Parameters.Add("@text", TextBox2.Text)
                mycmd.Parameters.Add("@addtime", Now)
                mycmd.Parameters.Add("@grade", intcounter)
                mycmd.ExecuteNonQuery()
                mycon.Close()

解决方案 »

  1.   

    text可能是关键字:
    Dim strgongsidongtai As String = "insert into zxdt(title,authors,froms,[text],addtime,grade)values(@title,@authors,@from,@text,@addtime,@grade)"
      

  2.   

    OLE DB 不能用 “@”  ,要用 “?”
      

  3.   

    orc用:
    SQL @
    ACE  ?
      

  4.   

    实践证明我用@也是可以的,不过又出现提示:
    System.Data.OleDb.OleDbException: 操作必须使用一个可更新的查询。 at System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(Int32 hr) at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method) at System.Data.OleDb.OleDbCommand.ExecuteNonQuery() at suznet2.userfbwz.Button1_Click(Object sender, EventArgs e) in c:\inetpub\wwwroot\suznet2\userfbwz.aspx.vb:line 56 at System.Web.UI.WebControls.Button.OnClick(EventArgs e) at System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) at System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) at System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) at System.Web.UI.Page.ProcessRequestMain()这是啥回事,从来没遇到过。
      

  5.   

    给数据库写权限试试。。右击数据库文件,然后在安全处,添加一个everyOne,完全控制。