这段代码什么代码意思！

Question

stokens = Split(sql)
    If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
        MsgBox ("a")
        mycon.Execute sql
    Else
        MsgBox ("b")
        Set rst = New ADODB.Recordset
        rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
        Set ExecuteSQL = rst
    End If

Answer 1

执行SQL语句
如果有返回记录集的，把返回值付给ExecuteSQL 对象
如果没有返回值，直接执行SQL语句

Answer 2

InStr("INSER,DELETE,UPDATE", UCase(stokens(0)))
这个是什么意思！？

Answer 3

stokens = Split(sql)
    If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
'如果SQL语句的最开始的词是insert(程序中应该是insert)或delete或update，则显示“A”，然后执行SQL。该SQL是“insert：插入记录”或“DELETE：删除记录”或“UPDATE”更新记录”、
        MsgBox ("a")
        mycon.Execute sql
    Else
'此外，显示“B”，返回一个查询记录集。此时的SQL语句只是查询一个记录集(以select开头)。
        MsgBox ("b")
        Set rst = New ADODB.Recordset
        rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
        Set ExecuteSQL = rst
    End If

Answer 4

INSTR函数
是这样用的吗！！？？查找数组里面有INSERT，UPDATE，DELETE这三个关键字，如果有就执行

Answer 5

stokens = Split(sql)'就是这样用的，当然可以直接查找，但如果SQL语句太长，就不如用这种方法了，即用split分拆成字符串数组(默认按空格分拆)。

Answer 6

stokens(0)就是分拆后的第一个字符串数组元素。

Answer 7

无条件送您50元，人人有份！
亲爱的朋友，你现在是否还在花父母的血汗钱？是否喜欢一样东西但不敢问津？是否有心爱的女孩，却因为囊中羞涩而失之交臂？从现在开始无条件送您50元，人人有份！到下面的网址看看吧,利用业余时间,月收入1500元，解决一切问题！网址： http://chinaour.com/?jixueer

Answer 8

InStr("INSERT,DELETE,UPDATE", UCase(stokens(0)))'是查找"INSERT,DELETE,UPDATE"这个字符串中有没有UCase(stokens(0))(即SQL语句按空格分拆后的第一个单词)。这里"INSERT,DELETE,UPDATE"应视作一个完整的字符串。(原文写为INSER,DELETE,UPDATE，应为INSERT,DELETE,UPDATE)