‘定义全局变量知道已登录信息
Public username as string
这是类型变量
Public fmainform as frmmain
传递参数SQL传递查询语句,MsgString传递查询信息,自身以一个数据集对象的形式返回
Public Function executeSQL(ByVal SQL As String, msgstring As String) As ADODB.Recordset
异常处理
On Error GoTo ExecuteSQL_error
'用Split函数生产一个包含各个字串的数组
Split 函数返回一个下标从0开始的一位数组 本身split也有分开的意思
把SQL语句拆分为一个数据
'判断字符串中是否含有制定内容
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
$ 表示返回类型 为字符型
Instr函数:返回字符或字符串在另一个字符串中第一次出现的位置查找SQL语句第一个单词,能找到就继续执行。找不到就执行else
msgstring 不是返回值,传递方式采用传址,与实参地址相同
这是单个退出点
Set rst = Nothing '清空数据集对象
Set cnn = Nothing '中断连接
Exit Function
当执行正确的时候就直接退出了Exit Function,如果出错了才执行错误处理语句。单个退出点的作用就是确保出错时才执行错误处理语句。