尝试使用vb.net+sql做系统,定义模块出错了,请教各位
Public Function ExecuteSQL(ByVal strSQL As String, ByRef ErrMsg As String) As Integer
Dim cnn As SqlConnection
Dim cmd As SqlCommand
Dim adpt As SqlDataAdapter
Dim rst As New DataSet()
Dim SplitSQL() As String
ErrMsg = ""
Try
SplitSQL = SplitSQL(strSQL)
cnn = New SqlClient.SqlConnection(connectString())
If InStr("insert,delete,update", UCase$(SplitSQL(0))) Then
cmd.Connection = cnn
cmd.Connection.Open()
cmd.CommandText = strSQL
ExecuteSQL = cmd.ExecuteNonQuery()
Else
adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)
adpt.Fill(rst)
ExecuteSQL = rst.Tables(0).Rows.Count
DBSet = rst
End If
Catch ex As Exception
ErrMsg = ex.Message
ExecuteSQL = -1
Finally
rst = Nothing
cnn = Nothing
End Try
End Function
加下划线部分提示:1.类型“String”的值无法转换为“String 的1维数组”。
2.未声明“ConnectString”,它可能因其保护级别而不可访问。
这两个错误要怎么修改才是正确的。
[解决办法]
你的这段代码从截取的别的什么地方吧
似乎缺少东西啊
SplitSQL = SplitSQL(strSQL)
你本意应该是分解strSQL,如果你这么写就没有意义了
splitsql=split(strsql, " ")可能好点
ConnectString的定义呢?是从哪里出来的?
[解决办法]
SplitSQL = SplitSQL(strSQL)
这一段是精华