提示错误:操作必须使用一个可更新的查询!!!!!!!!
kkmnv 2006-02-03 08:16:45 Dim myconnection As New OleDbConnection
Dim mycommand As New OleDbCommand
Dim myDataReader As OleDbDataReader
Dim Mysql As String
myconnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" + Server.MapPath("database/lyb.mdb"))
Mysql = "Insert INTO liuyan(name,email,phone,title,neirong)VALUES(@name,@email,@phone,@title,@neirong)" ' 要插入的值参数化了 。
mycommand = New OleDbCommand(Mysql, myconnection)
Dim pname As New OleDbParameter("@name", OleDbType.VarChar, 50)
Dim pemail As New OleDbParameter("@email", OleDbType.VarChar, 50)
Dim pphone As New OleDbParameter("@phone", OleDbType.VarChar, 50)
Dim ptitle As New OleDbParameter("@title", OleDbType.VarChar, 50)
Dim pneirong As New OleDbParameter("@title", OleDbType.VarChar, 150)
With mycommand.Parameters
.Add(pname)
.Add(pemail)
.Add(pphone)
.Add(ptitle)
.Add(pneirong)
End With
pname.Value = "ZTEST"
pemail.Value = "Z_Ltd"
pphone.Value = "1223"
ptitle.Value = "1212331"
pneirong.Value = "123321321123"
myconnection.Open()
mycommand.ExecuteNonQuery()
myconnection.Close()
全部代码,提示错误:操作必须使用一个可更新的查询
在线等解