CONNEXION ORACLE SANS ODBC

Commentaire de momolescroc le 18/05/2005 10:57:03

Un grand merci pour ta source, mais je ne comprend pas bien ce qui est à ecrire pour "montnsname"?
Est-ce que je dois indiquer le chemin d'accé au tnsname de mon client oracle, ou bien le copier en local, ou alors autre chose?
Aussi, a aucun moment j'indique le nom du serveur distant sur lequel est installé ma base. Est ce que ton appli est prevu pour une base locale?
merci

Commentaire de acecel le 12/10/2005 14:36:23

Je me suis permis de modifier/simplifier ta source selon mes besoins.
celle-ci permet maintenant de se connecter soit à une base Access, soit une autre base.

j'ai créé un type dans mon module normal :


********************************************************
Type ParamètreConnexionADODB
    Path As String
    Type As String
    Provider As String
    User As String
    Password As String
    DataSource As String
End Type
Public pdbParamètreConnexion As ParamètreConnexionADODB
********************************************************

pdbParamètreConnexion  contient donc tous les paramètres de connexion (qui sont définis dans le programme, et enregistrés dans la base de registre)

ce module de classe permet juste de renvoyer un recordset, ou exécuter une requete simple.

dans le programme il suffit de déclarer la base :
********************************************************
Public pdbArticle As cDataBase
Set pdbArticle = New cDataBase
pdbArticle.Connexion
********************************************************

et les recordsets :
********************************************************
Dim xrec1 As New ADODB.Recordset
set xrec1 = pdbArticle.OpenRecordset ("Select * from ..")
********************************************************

et pour fermer la base :
********************************************************
pdbArticle.Fermeture
********************************************************







Code à copier dans le module de classe : (cDataBase.cls)


Option Explicit

' /// Variables pour la Connexion ADODB /////////////////////////////////////////////////////////////////////////////////////////
Private pdbConnection As New ADODB.Connection
Private pdbRecordsetADO As New ADODB.Recordset


' /// Ouverture de la Base de Données /////////////////////////////////////////////////////////////////////////

Public Sub Connexion(dbPath As String)
On Error GoTo Connexion_Error

    Select Case pdbParamètreConnexion.Type
        Case "ACCESS"
            pdbConnection.Provider = pdbParamètreConnexion.Provider
            pdbConnection.ConnectionString = dbPath
            pdbConnection.Open
        Case "AUTRE"
            pdbConnection.Open "Provider=" & pdbParamètreConnexion.Provider & ";Password=" & pdbParamètreConnexion.Password & ";User ID=" & pdbParamètreConnexion.User & ";Data Source" & pdbParamètreConnexion.DataSource
    End Select
  
    On Error GoTo 0
    Exit Sub

Connexion_Error:

    MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans la procédure Connexion dans Module de classe cDataBase", vbCritical
End Sub


' /// Envoi du RecordSet //////////////////////////////////////////////////////////////////////////////////////

Public Function OpenRecordSet(dbSQL As String, Optional dbOption) As ADODB.Recordset
On Error GoTo OpenRecordSet_Error

    If dbSQL <> "" Then
        pdbRecordsetADO.CursorLocation = adUseClient
        pdbRecordsetADO.CursorType = adOpenDynamic
        pdbRecordsetADO.LockType = adLockOptimistic
        pdbRecordsetADO.Open dbSQL, pdbConnection
        Set OpenRecordSet = pdbRecordsetADO
        Set pdbRecordsetADO = Nothing
    End If
    
  
    On Error GoTo 0
    Exit Function

OpenRecordSet_Error:

    MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans la procédure OpenRecordSet dans Module de classe cDataBase", vbCritical
End Function

' /// Exécution d'une Requête SQL /////////////////////////////////////////////////////////////////////////////

Public Sub Execute(xSQL As String)
On Error GoTo Execute_Error

    pdbConnection.Execute xSQL
  
    On Error GoTo 0
    Exit Sub

Execute_Error:

    MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans la procédure Execute dans Module de classe cDataBase", vbCritical
End Sub



' /// Fermeture de la connexion avec la Base de Données ///////////////////////////////////////////////////////

Public Sub Fermeture()
On Error GoTo Fermeture_Error

    pdbConnection.Close
    Set pdbConnection = Nothing
  
    On Error GoTo 0
    Exit Sub

Fermeture_Error:

    MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans la procédure Fermeture dans Module de classe cDataBase", vbCritical
End Sub

Commentaire de lscherer le 02/05/2007 18:24:02

Bonjour,

Non désole, mais ce source ne peut se dispenser d'avoir un client Oracle Installé ou du moins je n'en connais pas la méthode. Je sais que java n'en n'a pas besoin, mais dans notre cas, je rappel que nous sommes en VB...

Bon courage

Laurent

Commentaire de tdeanaz le 04/05/2007 10:31:28

Petite modification:
Le code semble mieux fonctionner en mettant "Provider=oraoledb.oracle;"

Commentaire de ouzaamedali le 23/05/2007 14:52:08

Merci pour tous les informations diffusées sur ce forum car elles sont capitales et utiles pour effectuer la première étape de mon stage.
Reste que je n’arrive toujours pas à me connecter à ma base de données oracle à travers le code si dessus, pouvez vous m’expliquer que dois je remplir à ce code, je vous montre ce que j’ai modifier  en rouge:

Private Sub CommandButton1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As ADODB.Command

Set conn = New ADODB.Connection
Set sql = New ADODB.Command
Set rs = New ADODB.Recordset
TNS_INFO = "(DESCRIPTION=" & _
                       "(ADDRESS_LIST=" & _
                       "(ADDRESS=(PROTOCOL=TCP)" & _
                       "(HOST=192.168.0.32)" & _
                       "(PORT=entrer_ici_le_port)))" & _
                       "(CONNECT_DATA=(SID= X3)" & _
                       "(SERVER= controler)))"
conn.ConnectionString = "Provider=msdaora;" & _
                       "Data Source=" & TNS_INFO & ";" & _
                       "user id= GC;" & _
                       "password=tiger"
Debug.Print conn.ConnectionString
conn.Open
End Sub

Commentaire de lscherer le 23/05/2007 17:15:16

Pour le port, celui définit par défaut pour Oracle est le plus souvent 1521, sinon on trouve régulièrement aussi 1526
Toutes ces informations peuvent t'être founies par ton admin de base de données