请问下面代码第一句该怎么理解？谢谢
If Strings.InStr("INSERT,DELETE,UPDATE", sTokens(0).ToUpper) Then
If oleconn.State <> ConnectionState.Open Then
oleconn.Open() '打开数据库连接
End If
cmd.ExecuteNonQuery() '执行SQL语句
If oleconn.State <> ConnectionState.Closed Then
oleconn.Close() '关闭数据库连接
End If
If sTokens(0).ToUpper = "INSERT" Then
MsgBox("编辑记录成功")
End If
If sTokens(0).ToUpper = "DELETE" Then
MsgBox("删除记录成功")
End If
If sTokens(0).ToUpper = "UPDATE" Then
MsgBox("更新记录成功")
End If
Return Nothing
Else
Dim ObjectdsDataSet As New DataSet()
Dim adapter As New OleDb.OleDbDataAdapter()
adapter.TableMappings.Add("Table", "TEMP")
adapter.SelectCommand = cmd
If oleconn.State <> ConnectionState.Open Then
oleconn.Open() '打开数据库连接
End If
cmd.ExecuteNonQuery() '执行SQL语句
If oleconn.State <> ConnectionState.Closed Then
oleconn.Close() '关闭数据库连接
End If
adapter.Fill(ObjectdsDataSet) '填充数据集
Return ObjectdsDataSet.Tables("TEMP")
End If
[解决办法]
If Strings.InStr("INSERT,DELETE,UPDATE", sTokens(0).ToUpper) Then
上面这句吗？
如果文字内包括insert,delete等文字转换为大写形式
[解决办法]
很呆的写法，判断传入的是不是sql语句。
[解决办法]
比如：SQLString＝"select * from table"
sTokens = SQLString.Split(" ")
sTokens（0）="select"
sTokens(0).ToUpper 将"select" 转为大写
If Strings.InStr("INSERT,DELETE,UPDATE", sTokens(0).ToUpper) Then
如果sTokens(0).ToUpper 的字符串在"INSERT,DELETE,UPDATE"中，则....
