求助关于VB.NET的一段代码
Private Sub BtAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtAdd.Click
Dim dbstr As String
dbstr = "select * from 学生名册 where 学号='" & TxtNumber.Text & " '"
Myrec = Mydb.OpenRecordset(dbstr, dao.RecordsetTypeEnum.dbOpenDynaset)
If Myrec.EOF Then
Myrec.AddNew()
'增加新记录
Myrec.Fields(0).Value = TxtNumber.Text
Myrec.Fields(1).Value = TxtName.Text
Myrec.Fields(2).Value = TxtDate.Text
Myrec.Fields(3).Value = TxtTel.Text
Myrec.Update()
TxtNumber.Text = ""
TxtName.Text = ""
TxtDate.Text = ""
TxtTel.Text = ""
Else
'判断是否存在当前记录,如果存在就执行下面操作
MsgBox("这个学号已经存在了, 如果需要更改这个人的信息, 请选择[编辑]按钮,", MsgBoxStyle.OkOnly, "信息框")
TxtNumber.Text = ""
TxtName.Text = ""
TxtDate.Text = ""
TxtTel.Text = ""
End If
End Sub
这段代码Myrec = Mydb.OpenRecordset(dbstr, dao.RecordsetTypeEnum.dbOpenDynaset)老是出错,不知道怎么回事 vb.NET 代码
[解决办法]
天知道Mydb.OpenRecordset是什么玩意。这不是系统库,是你自己写的。
[解决办法]
找到原因了,你select * from 学生名册 where 学号='" & TxtNumber.Text & "'",这个=有问题,哈哈,估计你是在全角下输入的,select * from 考生 where 考号='" & TxtNumber.Text & "'",那个参数可以是2个,不是参数问题,