这里总结了两点技巧:
一是:对于dialog中,虽然提示信息对象名称是"用户密码错误",但如果信息对象名称是“该用户不存在”,不用更改会自动识别,我想主要是录制第一遍时,“用户密码错误”只是让运行时能找到这个控制,而不管它是什么内容,因为在对象仓库中,text不是决定该对象的属性
二是:如果对于提示信息比较长的,可以用mid(error_message,n,m)取一部份特征提示信息进行验证,这样我想可以节省处理时间,又可以避免长度以及空格等字符的处理
9、数据库检查点模块:
subdatabase_check setcon=createobject("adodb.connection") con.open"Description=IBM_ODBC;DRIVER=SQLServer;SERVER=IBM;UID=sa;"&_ "PWD=123456;APP=QuickTestPro;WSID=IBM;DATABASE=IBM_table" 'access方式:con.open"DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ=d:\test.mdb" 'Orocle方式:con.open"DRIVER={OracleinOraHome92};SERVER=CESHI;UID=CND_TEST;PWD=CND;DBQ=CESHI;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;" setrecord=createobject("adodb.recordset") sql="select*fromibm_one_table" record.opensql,con DO if(record("ibm_table_column")="kai")then'//查找表格中有多少kai num=num+1; endif record.movenext loopuntilrecord.eof=true record.close setrecord=nothing con.close setcon=nothing endsub |