链接到Oracle的Excel VBA执行访问查询

Question

Let me start of by saying I am new to both this site as well as VBA so please bear with me. Thank you in advance for your help.

I have a VBA function that runs an existing query from Access. Some of the tables being queried are stored in an Oracle database that require a user specific password access. Right now, a sub that I wrote to automate a report calls this function 7 times and requires the user to input their Oracle password each time the function is called (it also stops the sub and gives an error message if they type in the password incorrectly which I see as a likely event if they need to do it 7 times). The code works but I would like to find a way to have the code ask for the password once and be done with it. All of the solutions I have found involve connecting to and querying Oracle directly which requires very complicated SQL coding that I am by no means capable of writing.

I am also having an issue where the columns show up in the excel sheet in a different order than they do in Access for some of the queries. This seems to be consistent so it isn't to big of a problem but I would like to know how to prevent this to prevent any future issues.

Here is the code for the function I am currently using. Any insight would be greatly appreciated!

Option Explicit

'Single Argument "qryName" as string. Runs access qry and copys recordset to active sheet.
Function AccessQueryPull(qryName As String)

'Declare variables
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection

'open the connection to the access database
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=filePath.accdb;"

'format the command to run the query
Dim cmd As New ADODB.Command
cmd.CommandType = adCmdStoredProc
cmd.CommandText = qryName 
cmd.ActiveConnection = cn

'execute the query
Set rs = New ADODB.Recordset
Set rs = cmd.Execute()

'copy data to excel sheet
ActiveSheet.Cells(2, 1).CopyFromRecordset rs

'Cleanup
rs.Close
Set rs = Nothing

Answer 1

The reason you are prompted each time for Oracle credentials is that you create a fresh, new connection to MS Access each time the function is called.

Simply persist the MS Access connection by connecting once in the Sub that calls function and pass connection object as parameter. In this way, any connection error is caught in the parent routine. As for column order simply declare the columns in the needed order in SQL statement.

Sub RunQueries()
   Dim rs As ADODB.Recordset
   Dim cn As ADODB.Connection

   'open the connection to the Access database
   Set cn = New ADODB.Connection
   cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=filePath.accdb;"

   Call AccessQueryPull(cn, "SELECT Col1, Col2, Col3 FROM Qry1")   ' AND OTHER 6 CALLS

   cn.Close
   Set cn = Nothing    
End Sub

Function AccessQueryPull(accConn As ADODB.Connection, qryName As String)    
    'format the command to run the query
    Dim cmd As New ADODB.Command
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = qryName 
    cmd.ActiveConnection = accConn

    'execute the query
    Set rs = New ADODB.Recordset
    Set rs = cmd.Execute()

    'copy data to excel sheet
    ActiveSheet.Cells(2, 1).CopyFromRecordset rs

    'Cleanup
    rs.Close
    Set rs = Nothing: Set cmd = Nothing
End Function