comment tester une connection oracle...?

Bonjour,

j'utilise visual basic 6 avec un formulaire pour me connecté à une base oracle sur un serveur
avec un composant (Microsoft Ado data control 6.0 OLEDB)

tous fonctionne bien, je voudrais pouvoir tester si la base oracle et disponible avant de me connecter dessus (afin d'éviter de planter le programme), et je voudrais aussi pourvoir récupérer les messages d'erreur de oracle pour pouvoir les utiliser dans le programme...

qlq'un aurait une idée?

merci de votre aide

thomas jp
MIS

Adodc1.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=toto;Persist Security Info=True;User ID=totouser;Data Source=mabaseoracle"
Adodc1.Password = "toto"
Adodc1.UserName = "totouser"
Adodc1.CommandTimeout = 1
Adodc1.ConnectionTimeout = 2
Adodc1.RecordSource = "select * from matable'"
Adodc1.Enabled = True

tjp

tu saura si elle est "disponible" si tu parviens a t'y connecter...

pour en pas avoir de message d'erreur, ajoutes une gestion d'erreur, par exemple :

Private Sub Form_Load()
    [.....]
    On Error Goto DataBaseUnavailable
    Adodc1.Enabled = True
Exit Sub
DataBaseUnavailable:
      MsgBox "Echec lors de l'etablissement de la connection à la base de donnée."
End Sub

Amusez-vous !
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic