連接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.kjueaiud.com