sqlstring.split

来源:百度知道 编辑:UC知道 时间:2024/06/30 08:22:08
ublic Class DBOperation

Shared Function DBOperate(ByVal SQLString As String, ByRef Msg As String) As DataTable
Try
Dim CONN As String
CONN = "server=localhost;database=db_mamanage;integrated security=SSPI;provider=sqloledb"
Dim oleconn As New OleDb.OleDbConnection(CONN)
Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(SQLString, oleconn)
cmd.CommandType = CommandType.Text '代表执行sqlcommand 命令的文本内容 及sql语句

Dim sTokens() As String
sTokens = SQLString.Split(" ")
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 <> Conn

把SQLString,以空格为分割符,
折分成一个数组,放在sTokens() 中。。。。
比如说:SQLString="I LOVE YOU"
DIM sTokens() as string '定义一个,字符串数组,
sTokens = sqlstring.split(" ")
那麼sTokens就有值了
sTokens(0)="I"
sTokens(1)="LOVE"
sTokens(2)="YOU"