Tester connexion fichier access depuis un vb [Résolu]

Signaler
Messages postés
2
Date d'inscription
dimanche 26 septembre 2004
Statut
Membre
Dernière intervention
11 janvier 2008
-
Messages postés
2
Date d'inscription
dimanche 26 septembre 2004
Statut
Membre
Dernière intervention
11 janvier 2008
-
Bonjour,

J'ai fait des reches sur internet mais je n'ai pas su trouver de solution, je vous expose mon soucis.

contexte
j'ai un script qui scrute tous les composants d'un projet sur une cao compatible word excel

et ca va vérifier que le composant existe dans chaque bibliothèque
(qui est un fichier access) Chaque biblio est scruté l'une derniere
l'autre

et quand y'en a une pas dispo, ou hors ligne (et qu'un composant)
vient de celle -ci et bien plantage. Car le fichier est inacessible...

autres infos :

fichiers ne se trouvent pas aux même endroit, sur des lecteurs différents

Set db = CreateObject( "ADODB.Connection" )

db.Open( cmpcs )

avec cmpcs :

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=L:\Cim-Team\2007\cdb\components.mdb

quelqu'un a-t-il une idée pour que je puisse testé la connexion ?

merci

<!-- BBCode Start -->
<!-- BBCode End -->

3 réponses

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
Vala ...

Public Function OpenConn() As Boolean
 Dim db As Object
 Set db = CreateObject("ADODB.Connection")
 On Error Resume Next
 db.Open (cmpcs) If Err Then OpenConn False Else OpenConn True
 Err.Clear
 On Error GoTo 0
End Function , ----
[code.aspx?ID=41455 Colorisation syntaxique par Renfield]
_______________________________________________________________________
VB.NETis good ...VB6is better
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
If Err Then OpenConn = False Else OpenConn = True
<==>
OpenConn = (Err=0)
Messages postés
2
Date d'inscription
dimanche 26 septembre 2004
Statut
Membre
Dernière intervention
11 janvier 2008

Bonjour

merci beaucoup pour l'aide que vous m'avez donné, j'étais parti sur une autre piste avec "assert"