base de donnée sous vb6

[petihom]

bonjours

 

Je voudrais savoir si on peut tester la connection à une base de donnée (Access 97) sous vb6.

 

Merci d'avance

 

 

 

[automne]

Je suis pas sur de comprendre exactement ce que tu veux, mais si tu veux savoir si ton appli accède bien à la base (gérer le cas ou la base n'existe pas, par exemple), tu peux gerer ca avec une close "On Error Goto ..."

 

Au fait, tu utilises quoi comme API pour acceder à ta base ? ADO, DAO, autre ... ?

 

Un exmple de connexion à une base access (je sais plus si c'est une 97 par contre) en ADO :

 

Dim Cnx As ADODB.Connection

....

Private Sub BDOuvre(Cnx As ADODB.Connection)
   On Error GoTo ErrOuverture
   Set Cnx = New ADODB.Connection
   Cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
   Cnx.Open App.Path & "\dvd.mdb", "admin", ""
   bBdOuverte = True
   
   Exit Sub
ErrOuverture:
   MsgBox "Erreur : " & Err.Description
   End
End Sub

 

Automne

Modifié le 8 mars 2003 par automne

[petihom]

j'utilise une connecton ADO

En faite je voudrais savoir quand je lance mon application si ma connection à ma base de donnée s'éffectue bien.

alors voudrais savoir s' il y a une fonction qui le gére ou sinon comment faire.

merci d'avance

[automne]

Ok, ben tu fais comme dans le code que je t'ai mis. CAD que tu effectues la connexion aprés avoir mis une close "On Error Goto errOuverture". Comme ca, s'il y a une erreur à l'ouverture de la connexion, ton appli va à l'étiquette errOuverture que tu auras définie et execute ce que tu veux (comme mettre un message d'erreur)

 

Automne