Connexion base oracle

2 exemples a adapter
il faut ajouter le fichier des constantes oracles en module

----------- methode 1 oracle
Public OraSession As OraSession
Public OraDatabase As OraDatabase
Public OraDynaset As OraDynaset
Public strBaseOracle As String 'base oracle : ORCL
Public strConnectOracle As String 'nom/pass
Dim strSQL As String

Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.DbOpenDatabase(strBaseOracle,
strConnectOracle, 0&)


'recherche schema environnement
strSchemaENV = "???"
strSQL = "SELECT VALC1 FROM LOGADMIN.ADMINANPPARAM WHERE TYPVAL1 'ENV' AND TYPVAL2 = '" & strENV & "'"
Set OraDynaset = OraDatabase.CreateDynaset(strSQL, ORADYN_NOCACHE)
If OraDynaset.RecordCount <> 0 Then
strSchemaENV = OraDynaset("VALC1")
End If
OraDynaset.Close
----------- methode 2 ADO
Public strConnectOracleENVADODB As String 'nom/pass
ENVironnement(ORCL)
Public cnnADO As New ADODB.Connection
Public rsADO As New ADODB.Recordset
Public cmdADO As New ADODB.Command
Dim strSQL As String

strConnectOracleENVADODB = "Provider=MSDAORA.1;Password=" &
strPassENV & ";User ID=" & strSchemaENV & ";Data Source=" &
strBaseOracle & ";Persist Security Info=True"
CDNbid = DataCombo1.Text
cnnADO.ConnectionString = strConnectOracleENVADODB
cnnADO.Open
strSQL = "SELECT DENOMFR FROM TABLECDN WHERE CDN='" & CDNbid & "'"
rsADO.Open strSQL, cnnADO, adOpenKeyset, adLockOptimistic

If Not rsADO.EOF Or Not rsADO.BOF Then
TxtLibCDN.Text = rsADO.Fields("DENOMFR").Value
Else
TxtLibCDN.Text = vbNullString
End If

Il y a plein d autres methodes : DAO,OO4O...