Connessione ADO ad Oracle in Excel, tramite vba

Premesse:

Installazione del driver oracle sulla macchina
Ado instalato sulla macchina

Per utilizzare ado in excel è sufficiente (versione 2003), dal vba editor di Excel, andare in Strumenti–>Riferimenti e scegliere Microsoft ActiveX data object.

ll codice:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim query As String
 
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
 
cn.Open "Driver={Oracle ODBC Driver};" &amp; _
           "Dbq=" &amp; database &amp; ";" &amp; _
           "Uid=" &amp; uid &amp; ";" &amp; _
           "Pwd=" &amp; password
 
query = "select * from persona"
rs.Open query, cn, adOpenStatic
While Not rs.EOF
    ...
    rs.MoveNext
Wend
 
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

7 Responses to "Connessione ADO ad Oracle in Excel, tramite vba"

angelo says:

14 September 2009 at 12:19

Salve,

sto provando ad utilizzare il tuo codice, ma non funziona. Ho un errore sulla riga
cn.Open “Driver={Oracle ODBC Driver};dbq=xxxxxxxx;Uid=xxxx;Pwd=xxxxxxxxxx”

L’errore recita: Data Source Name not found and no default driver specified.

Ma il DSN è presente nell’ODBC Data Source Administration, ed anche il driver è presente.

Non so come andare avanti; potresti darmi qualche indicazione?

Grazie

Angelo
Nicola says:

14 September 2009 at 13:31

Se l’odbc esiste (e lo puoi testare anche dal test odbc di oracle), l’unica cosa che mi viene in mente al volo può essere che il driver non sia quello, ma abbia un’altro nome.
Qui dovrebbe esserci l’elenco dei driver disponibili: HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\ODBC Drivers

Nicola
angelo says:

14 September 2009 at 15:48

ODBC esiste
Ho modificato il driver che ho cercato nel registro di sistema come da tua indicazione;
Sulla stringa
cn.Open “Driver={Microsoft ODBC for Oracle};dbq=xxxxxxxxxx;Uid=xxxx;Pwd=xxxxxxx”
traccio l’errore “Driver’s SQLSetConnectAttr failed.

Altre idee?

Grazie
angelo says:

15 September 2009 at 09:42

Ciao Nicola,

la causa dell’errore era banale: mancanza di un “;” alla fine della stringa di connessione;

Ma ora il problema è un altro:

L’esecuzione del comando “rs.Open query, cn, adOpenStatic” mi causa un “Unspecified error”.

Ogni aiuto è ben accetto.

Grazie

Angelo
Nicola says:

15 September 2009 at 18:21

Se posso ti aiuto, anche se faccio un pò di fatica così, al buio. Mi vengono in mente due cose: query sbagliata, cursore sbagliato. Non ho mai usato il driver della microsoft, può darsi che il cursore adOpenStatic abbia qualche problema.

Nicola
angelo says:

16 September 2009 at 15:56

Grazie.

la query è una banale select * from tabella.

Il cursore adOpenStatic l’ho eliminato, ma non risolvo molto……..anzi nulla.

Grazie lo stesso

Angelo
angelo says:

17 September 2009 at 08:50

Ciao Nicola,

ho cambiato la macro, che troverai in basso, ma l’obiettivo è sempre lo stesso.

Dopo l’istruzione
rs.Open strDirettivaSQL, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
il programma salta alla gestione dell’errore
MsgBox Err.Description, vbExclamation, ThisWorkbook.Name

L’errore è “Data type is not supported”

E quando faccio il debug, già all’istruzione Set cn = New ADODB.Connection

traccio l’errore DefaultDatabase : : String

e poi dopo aver eseguito l’istruzione
Set rs = New ADODB.Recordset

il debug in corrispondenza di rs mi dà una valanga di “Operation is not allowed when the object is closed”

Di seguito la macro

‘importo dati da oracle
Sub RecuperaDati()
‘Intercettazione degli errori.
On Error GoTo RigaErrore
‘Dichiarazione variabili per la connessione ed il recordset
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
‘Dichiarazione variabile Range
Dim rng As Range
Dim strDirettivaSQL As String
‘Pulizia del foglio dai vecchi dati
Set rng = Range(“A2″).CurrentRegion
rng.Clear
Set rng = Nothing
‘Riferimento al folglio InserimentoDati
With Worksheets(“Sheet1″)
‘…istanzio la connessione ed il recordset…
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
‘…apro la connessione…
cn.CursorLocation = adUseClient
cn.Open “Provider=MSDAORA.1;Password=xxxxxxxxxxxxxxxx; User ID=k;Data Source=BSRTS2.AVQ.B-SOURCE; Persists Security Info=True;”
‘…riempio il recordset…
rs.CursorLocation = adUseClient
strDirettivaSQL = “SELECT * from k.log”
‘Apri il recordset (…ma aprilo!)
rs.Open strDirettivaSQL, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
‘Popolo il Foglio con i dati
.Range(“A2″).CopyFromRecordset rs
‘Chiudo recordset e connessione
rs.Close
cn.Close
‘Setto a Nothing le variabili del recordset e della connessione
Set rs = Nothing
Set cn = Nothing
End With
‘Esco dalla routine
Exit Sub
‘In caso di errore
RigaErrore:
‘In un MessageBox ho la descrizione dell’errore
MsgBox Err.Description, vbExclamation, ThisWorkbook.Name
‘Nel caso abbia ancora la connessione aperta, la chiudo
‘e setto a Nothing la variabile
If cn.State = adStateOpen Then
cn.Close
Set cn = Nothing
End If
End Sub

Ti ringrazio

Angelo

Leave a Reply Cancel reply