建立一個連線資料庫的VB元件 (轉)

首先在你的config. 中建立以下引數：




接著建立Conn.vb 檔案。
Imports System
Imports System.Web
Imports System.Collections

Namespace WebDB
Public Class WebDBconn 
Shared m_ConnectionString As String
Shared ReadOnly Property ConnectionString As String 

Get 
If m_ConnectionString = "" Then

Dim appsetting As Hashtable = CType(HttpContext.Current.GetConfig("appsettings"), Hashtable)
'使用 config.web 中設立好的連線字串
m_ConnectionString = CStr(appsetting("DBConnString"))

If m_ConnectionString = "" Then
throw new Exception("Dtabase Connection Value not set in Config.web")
End if

End If

' 返回連線字串
return m_connectionString

End Get
End Property
End Class
End Namespace

'下面編譯dll檔案：建立一個批處理檔案, 命名為 MakeDll.bat ，存放在dbConn.vb 相同的目錄，其中的內容如下
set odir=dbConn.dll
set assemblies=System.Web.dll
vbc /t:library /out:%odir% /r:%assemblies% dbConn.vb
批處理檔案, 將 dbconn.dll 複製到你的WEB 目錄的 BIN 目錄下並建立如下的.x 檔案: