VB代码片总结
msgbox:弹出窗口,不可输入信息 BOF和EOF都为True表示在Recordset里没有任何记录 If mrc.EOF Then
MsgBox "没有这个玩意,请重新输入!",vbOKOnly + vbExclamation,"警告"
End If
注:mrc.EOF默认为true状态,即mrc.EOF = “mrc.EOF=True”。 txtSQL = "select * from student_Info where student_ID='" & Trim(txtSID.Text) & "'"
Set mrc = ExecuteSQL(txtSQL,MsgText)
If mrc.EOF = False Then
MsgBox "学号重复,请重新输入!",vbOKOnly + vbInformation,"警告"
mrc.Close
txtSID.SetFocus
mrc.EOF = False表示记录未到最后一条,这里也就是记录不为空 VB中常用的数据类型:1.整型(Integer): 表示-32768至32767之间的整数 在 vb中 “end”,”unload me”,”exit sub” 之间的区别:End是强制结束整个程序,而Unload Me是卸载当前窗体,当程序中最后一个窗体被卸载后,整个程序将自动结束,如果当前窗体不是程序中的最后一个窗体,程序是不会结束的。 简单的就是end 是全部结束、 unload me针对当前窗口。 随机数函数: 1、 Rnd[(x)]:产生一个0~1之间地单精度随机数 2、 Randmize[(x)]:功用同上,不过更好 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |