连接SQL SERVER的公共类(转）

连接SQL SERVER的公共类    blestwq（原作）  
  
@#*****************************************************************************************************
@#//开始日期：2002年5月27日
@#//结束日期：2002年5月27日
@#*****************************************************************************************************
Option Explicit On
@#Option Strict On
@#//***************************************************************************************************
Imports System.Data.SqlClient
@#//***************************************************************************************************
@#//Begin defined namespace
Namespace Sunerp.CommClass.Comm
    @#//Defined Structure  PublicApplicationVal
    @#//Structure descriptoin
    @#//本结构存取 数据库服务器名（Dbserver）、数据库用户ID（UserId）、
    @#//数据库用户密码（UserPWD）、数据库名（Dbase），为联接数据库提供参数。
    @#//为了满足某些简单查询的需要，提供了扩展的变量 常用表名（DBTable）、
    @#//查询字段名（QueryFieldName）、查询字段值
    @#//Begin define Structure PublicApplicationVal
    Public Structure PublicApplicationVal
        @# Public Dbserver, UserId UserPWD Dbase DBTable Aclearcase/" target="_blank" >ccount.
        Public Dbserver As String
        Public UserId As String
        Public UserPWD As String
        Public Dbase As String
        Public DBTable As String
        Public QueryFieldVale As String
        Public QueryFieldName As String
    End Structure
    @#//End define Structure PublicApplicationVal
    @#//***************************************************************************************************   @#//***************************************************************************************************
    @#//Begin defined Class
    Public Class DBaseBindComm
        @#@#***********************************************************************
        @#@#//**定义连接SQL Server Database的通用函数**//
        @#//本函数创建一个到指定数据库的连接对象 SqlConnection
        @#//本函数有1个参数，IPublicApplication 为公共数据结构 PublicApplicationVal，

        @#//Begin define Function LinkedSqlServer
        Public Overloads Function LinkedSqlServer() As System.Data.SqlClient.SqlConnection

            Dim strconn As String
            Dim conn As New SqlConnection()
            strconn = "server=" & "erp" & _
                      ";user id=" & "erpsa" & _
                      ";password=" & "erpsa" & _
                      ";database=" & "erpdata" & ";"

            Try
                conn = New SqlConnection(strconn)
                conn.Open()
                StateVal = True
                LinkedSqlServer = conn
            Catch ex As Exception
                @# MsgBox(ex.ToString)
                StateVal = False
                LinkedSqlServer = Nothing
                Exit Function
            End Try
        End Function


        @#@#End defined LinkedSqlServer
        @#@#***********************************************************************

        @#@#***********************************************************************
        @#@#//**定义连接SQL Server Database的通用函数**//
        @#//本函数创建一个到指定数据库的连接对象 SqlConnection
        @#//本函数有1个参数，IPublicApplication 为公共数据结构 PublicApplicationVal，

        @#//Begin define Function LinkedSqlServer
        Public Overloads Function LinkedSqlServer( _
                 ByVal IPublicApplication As PublicApplicationVal) _
                 As System.Data.SqlClient.SqlConnection

            Dim strconn As String
            Dim conn As New SqlConnection()
            strconn = "server=" & IPublicApplication.Dbserver & _
                      ";user id=" & IPublicApplication.UserId & _
                      ";password=" & IPublicApplication.UserPWD & _
                      ";database=" & IPublicApplication.Dbase & ";"

            Try
                conn = New SqlConnection(strconn)
                conn.Open()
                StateVal = True
                LinkedSqlServer = conn
            Catch ex As Exception
                @# MsgBox(ex.ToString)
                StateVal = False
                LinkedSqlServer = Nothing
                Exit Function
            End Try
        End Function
        @#@#End defined LinkedSqlServer
        @#@#***********************************************************************


        @#@#定义类DBaseBindComm的ReadOnly属性State（创建连接的状态）
        @#@#True(创建成功），False（创建失败）
        Private StateVal As Boolean
        Public ReadOnly Property State() As Boolean
            Get
                Return StateVal
            End Get
        End Property

    End Class

    Public Class OrganComm

        @#//Defined Structure  PublicOrganIDStructure
        @#//Structure descriptoin
        @#//本结构存取 企业组织机构Id
        @#//顶层（DeptTopID）、一级（DeptMidId），二级ID（DeptLowId）        

        @#//Begin define Structure PublicOrganIDStructure
        Public Structure PublicOrganIDStructure
            Public DeptTopID As String
            Public DeptMidId As String
            Public DeptLowId As String
        End Structure
        @#//End define Structure PublicOrganIDStructure
        @#//***************************************************************************************************        @#@#***********************************************************************
        @#@#//**定义连接SQL Server Database的通用函数**//
        @#//本函数创建一个到指定数据库的连接对象 SqlConnection
        @#//本函数有1个参数，IPublicApplication 为公共数据结构 PublicApplicationVal，

        @#//Begin define Function IParseDeptOrgid
        Public Function IParseDeptOrgid(ByVal IDeptOrgid As String) As PublicOrganIDStructure
            Dim OrganID As New PublicOrganIDStructure()
            Dim Orgid As String

            IDeptOrgid = Trim(IDeptOrgid)
            Orgid = Microsoft.VisualBasic.Left(Trim(IDeptOrgid), 12)

            OrganID.DeptTopID = Microsoft.VisualBasic.Left(Orgid, 6)
            OrganID.DeptMidId = Microsoft.VisualBasic.Right(Orgid, 6)
            OrganID.DeptLowId = Microsoft.VisualBasic.Right(IDeptOrgid, 6)

            IParseDeptOrgid = OrganID
        End Function
        @#//End define Function IParseDeptOrgid

    End Class


End Namespace

原文转自：http://www.ltesting.net