更新数据的问题,来者有分!(100分)
用一个button 按钮触发更新事件
Sub InsertData(Sender As Object,E As EventArgs)
Dim intEmployeeID As Integer
intEmployeeID = Int32.Parse( Request.QueryString( "id" ) )
Dim strConnection As string
Dim strSql As String
Dim objConnection As OleDbConnection
Dim objAdapter As OleDbDataAdapter
Dim objCommand As OleDbCommand
strConnection="Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source=c:\inetpub\wwwroot\accurad\data\ris.mdb"
objConnection=New OledbConnection(strConnection)
strsql = "Update booking Set ACCESS_NO=@ACCESS_NO,PAT_NAME=@PAT_NAME,PINYIN=@PINYIN,PAT_SEX=@PAT_SEX,PAT_COMMENT=@PAT_COMMENT where PAT_ID=@PAT_ID"
objCommand=New OleDbCommand(strSql,objConnection)
objCommand.Parameters.Add( "@PAT_ID", intEmployeeID )
objCommand.Parameters.Add("@ACCESS_NO",ACCESS_NO.Text)
objCommand.Parameters.Add("@PAT_NAME",PAT_NAME.Text)
objCommand.Parameters.Add("@PINYIN",PINYIN.Text)
objCommand.Parameters.Add("@PAT_SEX",PAT_SEX.SelectedItem.Text)
objCommand.Parameters.Add("@PAT_COMMENT",PAT_COMMENT.Text)
objconnection.open()
objCommand.ExecuteNonQuery()
If Err.Number<> 0 Then
Msg.Text = Err.Description
Else
Response.Redirect("yuyue.aspx")
End If
objConnection.Close()
End Sub
程序可以执行,但数据库中树据没有发生变化
请高手给予指正该程序的问题,小弟拜谢