Connection ???
cs_serge99
Messages postés
78
Date d'inscription
lundi 29 août 2005
Statut
Membre
Dernière intervention
14 octobre 2006
-
19 févr. 2006 à 14:04
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Membre Dernière intervention 15 décembre 2018 - 19 févr. 2006 à 15:10
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Membre Dernière intervention 15 décembre 2018 - 19 févr. 2006 à 15:10
3 réponses
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Membre
Dernière intervention
15 décembre 2018
21
19 févr. 2006 à 14:15
19 févr. 2006 à 14:15
Bonjour,
Si tu doubles les "" à chaque fois c'est normal que cela ne marche pas !
App.Path & "\projets" & Label11.Caption & "\bd1.mdb"
Mais il y a peut etre une autre erreur après dans la chaine de ton label11 :)
Si tu doubles les "" à chaque fois c'est normal que cela ne marche pas !
App.Path & "\projets" & Label11.Caption & "\bd1.mdb"
Mais il y a peut etre une autre erreur après dans la chaine de ton label11 :)
cs_serge99
Messages postés
78
Date d'inscription
lundi 29 août 2005
Statut
Membre
Dernière intervention
14 octobre 2006
19 févr. 2006 à 14:34
19 févr. 2006 à 14:34
Merci mais ça ne fonctionne pas,
J'ai essayé autre chose mais ça ne fonctionne pas :
Private Sub Form_Load()
Dim rsprojet As ADODB.Recordset
Dim MaVarSousDossier As String
Dim MaVarDossierProjet As String
Dim MaBase As String
MaVarSousDossier = "\projets"
MaVarDossierProjet = "" & Label11.Caption
MaBase = "\bd1.mdb"
DbFile = App.Path & MaVarSousDossier & MaVarDossierProjet & MaBase
Set connbd1 = New ADODB.Connection
connbd1.CursorLocation = adUseClient
connbd1.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DbFile & ";" & _
"Persist Security Info=False"
connbd1.Open
SQLstmt = "SELECT [Nodeprojet], [Nomprojet], [region], [DateCreation], [start], [end], [Projcl], [AdressCl], [TelCL], [FaxCl], [CourrielCL], [Proint], [AdressInt], [TelInt], [FaxInt], [CourrielInt], [TypFo], [8µ], [50µ], [625µ], [Splice], [Pigtail], [Connecteur], [850], [850IOR], [1300], [1300IOR], [1310], [1310IOR], [1550], [1550IOR] FROM [projet]"
'******************************************************************************
Set rsprojet = New ADODB.Recordset
rsprojet.Open SQLstmt, connbd1, adOpenStatic, adLockOptimistic, _
adCmdText
J'ai essayé autre chose mais ça ne fonctionne pas :
Private Sub Form_Load()
Dim rsprojet As ADODB.Recordset
Dim MaVarSousDossier As String
Dim MaVarDossierProjet As String
Dim MaBase As String
MaVarSousDossier = "\projets"
MaVarDossierProjet = "" & Label11.Caption
MaBase = "\bd1.mdb"
DbFile = App.Path & MaVarSousDossier & MaVarDossierProjet & MaBase
Set connbd1 = New ADODB.Connection
connbd1.CursorLocation = adUseClient
connbd1.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DbFile & ";" & _
"Persist Security Info=False"
connbd1.Open
SQLstmt = "SELECT [Nodeprojet], [Nomprojet], [region], [DateCreation], [start], [end], [Projcl], [AdressCl], [TelCL], [FaxCl], [CourrielCL], [Proint], [AdressInt], [TelInt], [FaxInt], [CourrielInt], [TypFo], [8µ], [50µ], [625µ], [Splice], [Pigtail], [Connecteur], [850], [850IOR], [1300], [1300IOR], [1310], [1310IOR], [1550], [1550IOR] FROM [projet]"
'******************************************************************************
Set rsprojet = New ADODB.Recordset
rsprojet.Open SQLstmt, connbd1, adOpenStatic, adLockOptimistic, _
adCmdText
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Membre
Dernière intervention
15 décembre 2018
21
19 févr. 2006 à 15:10
19 févr. 2006 à 15:10
Que contient Label11 ?
Si c'est la connection à la base qui ne se fais pas, tu peux utiliser le controle CommonDialog (Menu Projet - Composant puis sélectionne Microsoft Common Dialog Control.."
Exemple de connection
8<-------------------------------------------------------------------
Private cn As New ADODB.Connection
Private Function ConnectAccessDB(file As String, Optional Password As String) As Boolean
'variables locales
Dim bVal As Boolean
On Local Error GoTo errCon
'connection
cn.CursorLocation = adUseClient
cn.Provider = "Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=" & file & Password
cn.Open
'si connecté
bVal = True
ConnectAccessDB = bVal
Exit Function
errCon:
bVal = False
Exit Function
End Function
Private Sub Form_Load()
CommonDialog1.Filter = "Fichier access (*.mdb)|*.mdb"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Dim isConnect As Boolean isConnect ConnectAccessDB(CommonDialog1.FileName) 'CommonDialog1.FileName chemin de ton fichier
If isConnect Then
'la suite de ton code.....
End If
End If
End Sub
------------------------------------------------------------------->8
Si c'est la connection à la base qui ne se fais pas, tu peux utiliser le controle CommonDialog (Menu Projet - Composant puis sélectionne Microsoft Common Dialog Control.."
Exemple de connection
8<-------------------------------------------------------------------
Private cn As New ADODB.Connection
Private Function ConnectAccessDB(file As String, Optional Password As String) As Boolean
'variables locales
Dim bVal As Boolean
On Local Error GoTo errCon
'connection
cn.CursorLocation = adUseClient
cn.Provider = "Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=" & file & Password
cn.Open
'si connecté
bVal = True
ConnectAccessDB = bVal
Exit Function
errCon:
bVal = False
Exit Function
End Function
Private Sub Form_Load()
CommonDialog1.Filter = "Fichier access (*.mdb)|*.mdb"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Dim isConnect As Boolean isConnect ConnectAccessDB(CommonDialog1.FileName) 'CommonDialog1.FileName chemin de ton fichier
If isConnect Then
'la suite de ton code.....
End If
End If
End Sub
------------------------------------------------------------------->8
