内部知识点的理解和一些含义解释:
Trim( ): 删除字符串首尾的空白(可以首尾一起,也可以指定首或尾,取决于控制参数),但会保留字符串内部作为词与词之间分隔的空格。
语 法:Trim ( string )
各种 trim 函数的语法如下:
1.LTRIM(字串):将字串左边的空格移除。
2.RTRIM(字串): 将字串右边的空格移除。
3.TRIM(字串): 将字串首尾两端的空格移除,作用等于RTRIM和LTRIM两个函数共同的结果。
4.ALLTRIM(字串):将字串左右边两边的空格移除。
__________________________________________________
BOF和EOF:
BOF 指示当前记录位置位于 Recordset 对象的第一个记录之前。
EOF 指示当前记录位置位于 Recordset 对象的最后一个记录之后。
查询到的解决上图问题的解决方案:
1. if(mrc.BOF And mrc.EOF)then
Msgbox"无数据",vbOKOnly+vbExclamation,"温馨提示:"
Else
mrc.MoveFirst
End If
Exit Sub
2.on error resume next
rss.movefirst
if err=3021 then
response.write "无数据!"
end if
———————————————————————————————
日期问题:
在程序中有添加学籍信息一项,常识都知道入校日期当然得晚于出生日期啦,所以可能需要这样啦
If DateDiff("d",txtBornDate,txtRuDate)<0 then
Msgbox"日期设置不合理",vbOKOnly+vbExclamation,"温馨提示:"
txtRuDate.Text=""
End If
________________________________________________________
StatusBar控件:
StatusBar1是状态栏控件的名称;Panels(1).Text表示状态栏上第1个空格所显示的文本内容,Panels(1)代表状态栏控件的第一个窗格;Format(Date, "\yyyy年mm月dd日\")这是调用格式函数Format,设置文本格式,Format函数可以将信息设置成你所需要的显示形式(格式)。
1.删除sbStatusBar.Panels(1).Text = "添加用户"或者将它注释掉
2.新建form取名sbStatusBar,然后在这个窗体上新建个文本框取名Panels,并且文本框属性index为1就可以了。
———————————————————————————————
参数不可选问题:
参数的数量和类型必须符合预期。此错误的原因和解决方案如下:
1. 参数数量不正确。请提供所有必要的参数。例如,Left 函数需要两个参数;第一个表示要操作的字符串,第二个表示要从字符串左侧返回的字符数。由于两个参数都不是可选参数,因此必须同时提供。
2.省略的参数不是可选参数。只有在过程声明中将参数声明为 Optional 时,才能在对用户定义的过程的调用中省略该参数。请在调用中提供参数,或在定义中将该参数声明为 Optional参数。
_______________________________________________________
窗体大小设置:窗体有个borderStyle属性 设置成3就是固定不变的了
电话位数设置:1.还记得窗体那里有个max和min设置吗?2.修改数据库里的属性将char(10)修改为char(11)就可以将10位电话号码修改为11位电话号码。
TEXT文本被选中设置:
Private Sub Text_GotFocus()
Text.SelStart = 0
Text.SelLength = Len(Text.Text)
End Sub
如果界面上有20个文本框,这段代码就要被写20次。很容易有遗漏或者由于反复拷贝造成错误。有没有什么好的办法,可以在一个函数里对文本框设置这个功能。比如说,有没有一个函数可以实现
SetControlStyle(Text.hWnd, AutoSelectContent)
ExecuteSQL
Set mrc = ExecuteSQL(txtSQL, MsgText)经过查询发现是这样的。ExecuteSQL是个函数,它可以直接执行sql的语句,txtSQL就是咱们用来执行的sql语句,而MsgText就是个弹出框,告诉咱们到底成功了没。
$
If str2$ = vbOK ,$代表string,因为msgbox返回的是数值,ok返回的是"1"cancel返回的是"2"。