classdataconn.vb

来自「师生情况管理系统」· VB 代码 · 共 43 行

'************************************************************
'Copyright(c) 2007 长沙南方职业学院 信息系 软件2-061班
'All rights reserved
'
'程序名称：学校基本信息管理系统
'
'作者(原)：易湘陵
'完成日期：2007-11-12
'作者(改)：
'修改日期：
'************************************************************
Public Class ClassDataConn
    Private SERVERADDRESSSTR As String = ""

    Public DataConStr = "workstation id=" & SERVERADDRESSSTR & ";packet size=4096;integrated security=SSPI;data source=" & SERVERADDRESSSTR & ";persist security info=False;initial catalog=school"

    Public Property ServerAddress() As String
        Get
            Return SERVERADDRESSSTR
        End Get
        Set(ByVal Value As String)
            SERVERADDRESSSTR = Value
        End Set
    End Property

    Public Function ExecSql(ByVal SqlStr As String) As DataSet
        Dim ds As New DataSet
        Dim Con As SqlClient.SqlConnection
        Try
            Con = New SqlClient.SqlConnection(FrmMain.DBCONN.DataConStr)
            Dim Da As New SqlClient.SqlDataAdapter(SqlStr, Con)
            Con.Open()
            Da.Fill(ds, "info")
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Con.Close()
        End Try
        Return ds
    End Function

End Class