连接SQL SERVER的公共类VB.NET

*************************************************************************

'//开始日期：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