Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic database

database

2 réponses
Avatar
jc2nantes
Salut

Mon soft se connecte via ADO à une base access distante. je souhaite pouvoir
tester la connection et en cas de rupture de liaison me connecter à une base
de secours...

Comment faire pour tester l'état de la connection ?

Merci,

jc
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Christian
Bonjour,

Je te propose la façon suivante :

Public Function OuvrirBD()
'Crée une connexion à la base de données en mode ADO
Set AdoConnexion = New adodb.Connection
Set AdoRecordset = New adodb.Recordset
Sconnexion = "Provider=Microsoft.Jet.OLEDB.4.0;data source = adresseBD;Jet
OLEDB:Database Password=MonPassWord"
'Connexion avec la base de données
AdoConnexion.Open Sconnexion
AdoRecordset.Open NomTable, AdoConnexion, adOpenDynamic, adLockOptimistic

' Vérifie que la connexion est bien établie, dans le cas contraire un
message l'indique
If AdoConnexion.State = adStateClosed Then
MsgErrSystem "La Connexion avec la base de données a echouée" & vbCrLf &
Err.Number & " " & Err.Description
End If

Au lieu de donner un message (ou bien avec) tu peux fermer la connexion
ouverte et en ouvrir une autre selon un chemin déjà défini ou bien laisser
l'utilisateur le définir.

J'espère avoir répondu à ta question.

Christian.

"jc2nantes" a écrit dans le message de news:
u#
Salut

Mon soft se connecte via ADO à une base access distante. je souhaite


pouvoir
tester la connection et en cas de rupture de liaison me connecter à une


base
de secours...

Comment faire pour tester l'état de la connection ?

Merci,

jc




Avatar
jc2nantes
j'ai tenté le test de connexion en le mettant dans un timer et ça ne marche
pas. je débranche mon cable réseau et pas de changement d'état...

à plus et merci...


"Christian" a écrit dans le message de
news:413f274d$0$12382$
Bonjour,

Je te propose la façon suivante :

Public Function OuvrirBD()
'Crée une connexion à la base de données en mode ADO
Set AdoConnexion = New adodb.Connection
Set AdoRecordset = New adodb.Recordset
Sconnexion = "Provider=Microsoft.Jet.OLEDB.4.0;data source adresseBD;Jet
OLEDB:Database Password=MonPassWord"
'Connexion avec la base de données
AdoConnexion.Open Sconnexion
AdoRecordset.Open NomTable, AdoConnexion, adOpenDynamic, adLockOptimistic

' Vérifie que la connexion est bien établie, dans le cas contraire un
message l'indique
If AdoConnexion.State = adStateClosed Then
MsgErrSystem "La Connexion avec la base de données a echouée" & vbCrLf &
Err.Number & " " & Err.Description
End If

Au lieu de donner un message (ou bien avec) tu peux fermer la connexion
ouverte et en ouvrir une autre selon un chemin déjà défini ou bien laisser
l'utilisateur le définir.

J'espère avoir répondu à ta question.

Christian.

"jc2nantes" a écrit dans le message de news:
u#
> Salut
>
> Mon soft se connecte via ADO à une base access distante. je souhaite
pouvoir
> tester la connection et en cas de rupture de liaison me connecter à une
base
> de secours...
>
> Comment faire pour tester l'état de la connection ?
>
> Merci,
>
> jc
>
>