老是提示sql语句错误,请高手帮忙看看
eqh 2004-12-16 08:37:54 用的是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()