数据库操作

Imports  System.Data.SqlClient
Imports  System.Data
Public   Class clsExecuteSQL Class clsExecuteSQL

    Shared Function ExecuteSQL()Function ExecuteSQL(ByVal SQL As String) As DataTable


        Try
            Dim CONN As String
            CONN = "data source=localhost;Database=HAWK;Integrated Security=SSPI;"
            Dim sqlConn As New SqlConnection(CONN)
            Dim cmd As SqlCommand = New SqlCommand(SQL, sqlConn)
            cmd.CommandType = CommandType.Text
            Dim sTokens() As String
            sTokens = SQL.Split(" ")


            '执行数据库的插入、删除、更新等操作
            If Strings.InStr("INSERT,DELETE,UPDATE", sTokens(0).ToUpper) Then
                If sqlConn.State <> ConnectionState.Open Then
                    sqlConn.Open()  '打开数据库连接
                End If
                cmd.ExecuteNonQuery()  '执行SQL语句
                If sqlConn.State <> ConnectionState.Closed Then
                    sqlConn.Close() '关闭数据库连接
                End If
                Return Nothing


                '执行数据库的查询操作
            Else
                Dim ObjectdsDataSet As New DataSet()
                Dim adapter As New SqlDataAdapter()
                adapter.SelectCommand = cmd
                If sqlConn.State <> ConnectionState.Open Then
                    sqlConn.Open()  '打开数据库连接
                End If
                cmd.ExecuteNonQuery()  '执行SQL语句
                If sqlConn.State <> ConnectionState.Closed Then
                    sqlConn.Close() '关闭数据库连接
                End If
                adapter.Fill(ObjectdsDataSet) '填充数据集
                Return ObjectdsDataSet.Tables(0)
            End If
        Catch
            MsgBox(Err.Description)
        End Try
        Return Nothing
    End Function
End Class