前言
先挂一张注册的流程图
正文
If Not语句
If Not 是如果不是的意思,具体应用上述VB语句中,它起的作用是如果txtSID里面的文本不是或没有,系统提示请输入学号。
为列表框添加内容
不在添加控件过程中编写,在窗体过程中编写
Set mrc = Executessql(txtsql,msgtext)
Executesql是执行sql语句。里面的两个参数txtsql是指用来执行的sql语句:比如:select * from表;Msgtext参数 指的是实行完sql语句后的弹出框,是成功了还是失败了之类的。
限制条件
- 如何限制输入的字数
选中需要限制的文本框,选择maxlength属性,如图。
- 如何限制只能输入数字
我们需要查找ASCll码表,得到0的ASCll码是48.输入语句如下:
if KeyAscill < 48 Or KeyAscill > 57 Then KeyAscill = 0
这条语句用来判断输入的字符是否在0-9的范围中,如果不在这个范围,就把这个输入的字符屏蔽掉
If KeyAscii = 8 Then Exit Sub
- 限制只能输入汉字
Private Sub name_KeyPress(KeyAscii As Integer)
If KeyAscii > 0 And KeyAscii <> 13 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
VB错误无效限定符
无法向数据表中插入指定列
txtsql = "select*from student_Info"
txtsql = "select*from User_Info" 'UserID在student表中是第13列,在UserID表中是第11列
mrc.AddNew
mrc.Fields(11) = mrc2.Fields(13)