通过VB的Adodb向数据库插入和修改数据，实时错误'91'

来源：百度知道 编辑：UC知道 时间：2024/06/18 00:22:12
Private SqlRes As ADODB.Recordset
Private Sub StuUpd_Click()
'看是否有此学生记录，有就修改，没则添加
Dim SqlStr As String
SqlStr = "select * from XS where XH='" + Trim(StuXH.Text) + "'"
SqlRes.Open "select * from XS where XH='" + Trim(StuXH.Text) + "'", SqlCon, adOpenDynamic, adLockPessimistic
If Not SqlRes.EOF Then
'修改
SqlRes("XM") = StuXM.Text
SqlRes("XB") = StuXB.Text
SqlRes("ZY") = StuZY.Text
SqlRes("CSSJ") = CDate(StuCSSJ.Text)
SqlRes("ZXF") = CInt(StuZXF.Text)
SqlRes("BZ") = StuBZ.Text
SqlRes.Update
Else
'添加
SqlRes.AddNew
SqlRes("XH") = StuXH.Text
SqlRes("XM") = StuXM.Text
SqlRes("ZY") = StuZY.Text
SqlRes("XB") = StuXB.Text
SqlRes("CSSJ") = CDate(StuCSSJ.Text)
If Trim(St

Private SqlRes As ADODB.Recordset
Private Sub StuUpd_Click()

Dim SqlStr As String
SqlStr = "select * from XS where XH='" + Trim(StuXH.Text) + "'"
SqlRes.Open "select * from XS where XH='" + Trim(StuXH.Text) + "'", SqlCon, adOpenDynamic, adLockPessimistic
If Not SqlRes.EOF Then
'修改
SqlRes("XM") = StuXM.Text
SqlRes("XB") = StuXB.Text
SqlRes("ZY") = StuZY.Text

SqlRes("ZXF") = CInt(StuZXF.Text)

SqlRes.Update
Else
'添加
SqlRes.AddNew
SqlRes("XH") = StuXH.Text
SqlRes("XM") = StuXM.Text
SqlRes("ZY") = StuZY.Text
SqlRes("XB") = StuXB.Text
SqlRes("CSSJ") = CDate(StuCSSJ.Text)
If Trim(StuZXF.Text) <> "" Then
SqlRes("ZXF") = CInt(StuZXF.Text)
End I