学生管理系统问题集锦一

xiaoxiao2021-03-01  11

问题1:当数据库中记录为空时,打开“修改学籍信息”窗体会报错 解决方法: 在主窗体frmMain的“修改学籍信息”菜单命令下添加如下代码 '检测此时student_Info表中记录集是否为空 '如果为空,则打开”添加学籍信息“窗体 '如果不为空,则打开“修改学籍信息”窗体 Private Sub modifysinfoMenu_Click() '定义数据库连接的字符串 Dim strTxtsql As String Dim strMsgtxt As String '创建用于检测student_Info表记录是否为空的对象 Dim rstObjcount As ADODB.Recordset '创建记录Msgbox返回值的对象 Dim intMsg As Integer '数据库连接语句 strTxtsql = "select * from student_Info" '得到student_Info的记录集,并将其赋给rstObjcount Set rstObjcount = ExecuteSQL(strTxtsql, strMsgtxt) '检测student_Info表中记录是否为空 If rstObjcount .RecordCount = 0 Then intMsg= MsgBox("记录集为空,是否现在就填写", vbOKCancel, "警告") '如果选择是,则打开“添加信息”窗体 If intMsg = vbOK Then frmAddsinfo.Show Exit Sub Else Exit Sub End If Else frmModifysinfo.Show End If End Sub 相关资源:敏捷开发V1.0.pptx
转载请注明原文地址: https://www.6miu.com/read-3650178.html

最新回复(0)