VB.NET操作SQL Server 2000模块函数

 
    Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet
        Dim cnn As SqlClient.SqlConnection
        ' Dim conn As New 
        Dim cmd As New SqlClient.SqlCommand
        Dim adpt As SqlClient.SqlDataAdapter
        Dim rst As New DataSet
        Dim SplitSQL() As String
        errMsg = ""
        Try
            SplitSQL = Split(strSQL)
            'cnn = New SqlClient.SqlConnection("packet size=4096;user id=sa;integrated security=SSPI;data source=(local);persist security info=False;initial catalog=EXAM")   ’本条为连接本地数据库
             cnn = New SqlClient.SqlConnection("Data Source=" & ipstr & ";Network Library=DBMSSOCN;Initial Catalog=EXAM;User ID=max;Password=;")   ’本条为连接局域网数据库
            If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Then
                cmd.Connection = cnn
                cmd.Connection.Open()
                cmd.CommandText = strSQL
                cmd.ExecuteNonQuery()
                cnn.Close()
            Else
                adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)
                adpt.Fill(rst)
                ExecuteSQL = rst
                cnn.Close()
            End If
        Catch ex As Exception
            errMsg = ex.Message
        Finally
            rst = Nothing
            cnn = Nothing
        End Try
    End Function

 

 

EXAM为数据库名称

sa、max为数据库用户名

ipstr为服务器IP地址