ADO连接Oracle/access示例及记录集处理源码【Access软件网】

时　间:2007-11-12 14:04:10
作　者:5988143整理 ID：379 城市：东莞
摘　要:ADO连接Oracle/Access示例及记录集处理源码
正　文:

Option Explicit

Public Enum RSMethod
VIEW_RECORD = 0
EDIT_RECORD = 1
EXEC_SQL = 2
NEW_RECORD = 3
End Enum

Function dbConnection(strDatabaseType As String, strDBService As String, Optional strUserID As String, Optional strPassword As String) As ADODB.Connection

Dim objDB As New ADODB.Connection
Dim strConnectionString As String

If strDatabaseType = "ORACLE" Then
      '定义 orACLE 数据库连接字符串
      strConnectionString = "Driver={Microsoft ODBC Driver For oracle};CCOLOR: #0000ff">& strDBService & ";UID=" & strUserID & ";PWD=" & strPassword & ";"
ElseIf strDatabaseType = "MSACCESS" Then
      '定义 Microsoft Access 数据库连接字符串

      strConnectionString = "DBQ=" & strDBService
      strConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & strConnectionString
End If

With objDB
      .Mode = adModeReadWrite  ' 连接模式 ???
      .ConnectionTimeout = 10  '超时
      .CommandTimeout = 5
      .CursorLocation = adUseClient
      .Open strConnectionString  '打开数据库连接

End With

Set dbConnection = objDB
End Function

Function CreateRecordSet(ByRef dbConn As ADODB.Connection, ByRef rs As ADODB
Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】