Connexion base de données
Résolu
zapiky
Messages postés
4
Date d'inscription
vendredi 5 septembre 2003
Statut
Membre
Dernière intervention
30 août 2011
-
29 août 2011 à 10:58
zapiky Messages postés 4 Date d'inscription vendredi 5 septembre 2003 Statut Membre Dernière intervention 30 août 2011 - 30 août 2011 à 11:10
zapiky Messages postés 4 Date d'inscription vendredi 5 septembre 2003 Statut Membre Dernière intervention 30 août 2011 - 30 août 2011 à 11:10
A voir également:
- Connexion base de données
- Connexion base de données - Conseils pratiques -PHP
- Base de données javascript - Conseils pratiques -Javascript
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Nomenclature base de données - Conseils pratiques -PHP
- Le jeu de sauvegarde contient la sauvegarde d'une base de données qui n'est pas la base de données - Forum SQL
3 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
29 août 2011 à 11:34
29 août 2011 à 11:34
Salut
Oui, manque de précision sur le "ça marche pas".
D'abord, voir <ce site de référence>
Autre exemple d'utilisation des Properties :
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Oui, manque de précision sur le "ça marche pas".
D'abord, voir <ce site de référence>
Autre exemple d'utilisation des Properties :
Public Function ConnectAccess() As Boolean
' Renvoie True si connexion Ok
On Error GoTo Erreur
With cnnAccess
' Referme si déjà ouverte
If .State <> adStateClosed Then .Close
' Paramétrage connexion
.Mode = adModeShareDenyNone
.ConnectionTimeout = 5
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = sAccessFileName
.Properties("Persist Security Info").Value = False
' Connexion
On Error Resume Next
.Open
' Attend connexion terminée
Do While (.State = adStateConnecting) ' And (Not bAbandon)
DoEvents
Loop
On Error GoTo 0
' Au final, renvoie True si on est bien ouvert
ConnectAccess CBool(.State adStateOpen)
End With
Exit Function
Erreur:
MsgBox "(ConnectAccess) Erreur " & CStr(Err.Number) & " - " & Err.Description
End Function
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
lolokun
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
7
29 août 2011 à 11:03
29 août 2011 à 11:03
Bonjour,
C'est à dire, tu as un message d'erreur? Pas de nom d'utilisateur spécifié, uniquement un mot de passe?
Pour les chaînes de connexion voici un siteutile
L'expérience, c'est une connerie par jour, mais jamais la même..
qui ne marche plus
C'est à dire, tu as un message d'erreur? Pas de nom d'utilisateur spécifié, uniquement un mot de passe?
Pour les chaînes de connexion voici un siteutile
L'expérience, c'est une connerie par jour, mais jamais la même..
zapiky
Messages postés
4
Date d'inscription
vendredi 5 septembre 2003
Statut
Membre
Dernière intervention
30 août 2011
30 août 2011 à 11:10
30 août 2011 à 11:10
merci pour vos différentes, j'ai pu trouver la solution sur les différents sites que vous m'avez communiquez.
je n'ai plus de message d'erreur et je me connecte parfaitement
piky
je n'ai plus de message d'erreur et je me connecte parfaitement
piky
