神马品牌网三年级美术图画作品:VB相关的问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/07 03:15:16
我想做一个简单的”学籍管理系统”，可我做到查询部分时，用了这段代码
Private Sub Option1_Click()
Dim mno As String
mno = InputBox$("请输入学号", "查找窗")
Data1.Recordset.FindFirst "学号='" & mno & "' "
If Data1.Recordset.NoMatch Then
MsgBox "无此学号！", , "提示"
Option1.Enabled = False
Option2.Enabled = False
Command1.Enabled = False
Command3.Enabled = False
End If
End Sub
可每当用时 他总报告类型不匹配 实时错误3464，可我用同一段代码做姓名查询，就可实现？？
Private Sub Option1_Click()
Dim mno As String
mno = InputBox$("请输入学号", "查找窗")
Data1.Recordset.FindFirst "学号='" & mno & "' "
If Data1.Recordset.NoMatch Then
MsgBox "无此学号！", , "提示"
Option1.Enabled = False
Option2.Enabled = False
Command1.Enabled = False
Command3.Enabled = False
End If
End Sub
可每当用时 他总报告类型不匹配 实时错误3464，可我用同一段代码做姓名查询，就可实现？？
可每当用时 他总报告类型不匹配 实时错误3464，可我用同一段代码做姓名查询，就可实现？？
查看你的数据库,看看学号这个字段的类型,你定义的一定不是文本
回答者：xmcxyy - 童生 一级
xmcxyy应该是正解
Dim mno As String
改为
Dim mno As Integer
查看你的数据库,看看学号这个字段的类型,你定义的一定不是文本