一個串連資料庫的Class類

來源:互聯網
上載者:User
串連資料庫 Option Explicit

'local variable(s) to hold property value(s)
Private lsServer As String 'local copy
Private lsDatabase As String
'local variable(s) to hold property value(s)
Private lsUserName As String 'local copy
Private lsPassword As String 'local copy
Private lsSelectSQL As String 'local copy
'local variable(s) to hold property value(s)
Private lsTable As String 'local copy

Public Property Let Table(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Table = 5
lsTable = vData
End Property


Public Property Get Table() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Table
Table = lsTable
End Property

Public Property Let SelectSQL(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.SelectSQL = 5
lsSelectSQL = vData
End Property


Public Property Get SelectSQL() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.SelectSQL
SelectSQL = lsSelectSQL
End Property



Public Property Let Password(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Password = 5
lsPassword = vData
End Property


Public Property Get Password() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Password
Password = lsPassword
End Property



Public Property Let UserName(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.UserName = 5
lsUserName = vData
End Property


Public Property Get UserName() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.UserName
UserName = lsUserName
End Property



Public Property Let Server(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Server = 5
lsServer = vData
End Property


Public Property Get Server() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Server
Server = lsServer
End Property

Public Property Let Database(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Database = 5
lsDatabase = vData
End Property


Public Property Get Database() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Database
Database = lsDatabase
End Property


Public Function ConnectDatabaseByODBCDNS(lsDNS As String) As ADODB.Connection
On Error GoTo Errhandle
Dim Conn As New ADODB.Connection
Dim strConn As String
strConn = "DSN=" & lsDNS & _
";UID=" & lsUserName & _
";Pwd=" & lsPassword
If Conn.State = adStateOpen Then
Conn.Close
End If
Conn.Open strConn
Conn.CursorLocation = adUseClient
Set ConnectDatabaseByODBCDNS = Conn
Exit Function
Errhandle:
Err.Raise 102, "DBConn.Cls", "Can't Connect To The " & Database & " Database!"
End Function
Public Function ConnectDatabaseByODBC() As ADODB.Connection
On Error GoTo Errhandle
Dim Conn As New ADODB.Connection
Dim strConn As String
strConn = "Provider=MSDASQL.1" & _
";User ID=" & lsUserName & _
";Password=" & lsPassword & _
";Persist Security Info=False" & _
";Initial Catalog=" & lsDatabase & _
";Data Source=" & lsServer
If Conn.State = adStateOpen Then
Conn.Close
End If
Conn.Open strConn
Conn.CursorLocation = adUseClient
Set ConnectDatabaseByODBC = Conn
Exit Function
Errhandle:
Err.Raise 10



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。