ADO连接Oracle-Access示例及记录集处理.doc

ADO连接Oracle/Access示例及记录集处理源码 复制内容到剪贴板 程序代码 Option ExplicitPublic Enum RSMethod????VIEW_RECORD [color=#0000ff]= 0????EDIT_RECORD = 1????EXEC_SQL = 2????NEW_RECORD = 3End EnumFunction 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};ConnectString= 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 = objDBEnd FunctionFunction CreateRecordSet(ByRef dbConn As ADODB.Connection, ByRef rs As ADODB.Recordset, ByVal method As RSMethod, Optional strSQL As String, Optional TableName As String) As ADODB.Recordset???? 如果打开应先关闭???????? ...????If rs.State=1 Then????????rs.close ????End If????Select Case method????????Case RSMethod.NEW_RECORD????????rs.ActiveConnection = dbConn????????rs.CursorType = adOpenKeyset????????rs.LockType = adLockOptimistic????????rs.CursorLocation = adUseServer????????rs.Open TableName????????????????Case RSMethod.EDIT_RECORD????????rs.ActiveConnection = dbConn????????rs.Source = strSQL????????rs.CursorType = adOpenKeyset????????rs.LockType = adLockOptimistic????????rs.CursorLocation = adUseClient????????rs.Open???????? Debug.Print SQL Statement in EDIT Mod???????????? e (Createrecordset) : strSQL??????