程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> SqlServer數據庫 >> 關於SqlServer >> 連接SQL SERVER的公共類VB.NET

連接SQL SERVER的公共類VB.NET

編輯:關於SqlServer

本文介紹連接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 Account.
  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
  '*******************************************************************************
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved