module1.bas

access to oracle 数据库的方法例子,希望大家指正

Attribute VB_Name = "Module1"
Public ErrNumber


Public Function ConnectString(str As String) _
   As String
'returns a DB ConnectString
   ConnectString = str
End Function
'=============================================================================================================
Public Function ExecuteSQL(ByVal SQL As String, msgString As String, str As String) As ADODB.Recordset
'executes SQL and returns Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   ErrNumber = 0
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString(str)
   If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
      cnn.Execute SQL
      msgString = sTokens(0) & " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
      
      'rst.MoveLast     'get RecordCount
      Set ExecuteSQL = rst
      msgString = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
ErrNumber = 4
   msgString = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function
'******************************************************************************************************************

Public Sub EnterToTab(Keyasc As Integer)
    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Sub