je veux controler l'existance d'une base de données Access, voici mon code :
Public Function VoirBase(cat As ADOX.Catalog, BaseName As String) As Boolean
'Controle l'existance de la base de données
'Vérifie que la connexion est bien fermée
If ADOcn.state = adStateOpen Then
ADOcn.Close
End If
Set ADOcn = Nothing
'creation d'une connection sur la base
With ADOcn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & cheminBase & BaseName
.CursorLocation = adUseClient
End With
If BaseNameExists = False Then
Call CreerBase(cat, BaseName)
End If
End Function
quand je lance l'appli alors que BaseName existe, j'ai BaseNameExists est
égale à False
Voyez-vous ou est le problème ?
Merci de vos réponse
Cordialement
JCM
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
Hervé
Salut JCM, Et en testant l'erreur ? si la base n'existe pas, une erreur est retournée. Hervé.
"JCM" a écrit dans le message news:
Bonjour
je veux controler l'existance d'une base de données Access, voici mon code
:
Public Function VoirBase(cat As ADOX.Catalog, BaseName As String) As
Boolean
'Controle l'existance de la base de données 'Vérifie que la connexion est bien fermée If ADOcn.state = adStateOpen Then ADOcn.Close End If Set ADOcn = Nothing
'creation d'une connection sur la base With ADOcn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & cheminBase & BaseName .CursorLocation = adUseClient End With
If BaseNameExists = False Then Call CreerBase(cat, BaseName) End If End Function
quand je lance l'appli alors que BaseName existe, j'ai BaseNameExists est égale à False
Voyez-vous ou est le problème ? Merci de vos réponse Cordialement JCM
Salut JCM,
Et en testant l'erreur ? si la base n'existe pas, une erreur est retournée.
Hervé.
"JCM" <JCM@discussions.microsoft.com> a écrit dans le message news:
FBBE6120-04B0-489F-B6E6-5F5EA11EB9B5@microsoft.com...
Bonjour
je veux controler l'existance d'une base de données Access, voici mon code
:
Public Function VoirBase(cat As ADOX.Catalog, BaseName As String) As
Boolean
'Controle l'existance de la base de données
'Vérifie que la connexion est bien fermée
If ADOcn.state = adStateOpen Then
ADOcn.Close
End If
Set ADOcn = Nothing
'creation d'une connection sur la base
With ADOcn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & cheminBase & BaseName
.CursorLocation = adUseClient
End With
If BaseNameExists = False Then
Call CreerBase(cat, BaseName)
End If
End Function
quand je lance l'appli alors que BaseName existe, j'ai BaseNameExists est
égale à False
Voyez-vous ou est le problème ?
Merci de vos réponse
Cordialement
JCM
Salut JCM, Et en testant l'erreur ? si la base n'existe pas, une erreur est retournée. Hervé.
"JCM" a écrit dans le message news:
Bonjour
je veux controler l'existance d'une base de données Access, voici mon code
:
Public Function VoirBase(cat As ADOX.Catalog, BaseName As String) As
Boolean
'Controle l'existance de la base de données 'Vérifie que la connexion est bien fermée If ADOcn.state = adStateOpen Then ADOcn.Close End If Set ADOcn = Nothing
'creation d'une connection sur la base With ADOcn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & cheminBase & BaseName .CursorLocation = adUseClient End With
If BaseNameExists = False Then Call CreerBase(cat, BaseName) End If End Function
quand je lance l'appli alors que BaseName existe, j'ai BaseNameExists est égale à False
Voyez-vous ou est le problème ? Merci de vos réponse Cordialement JCM
