Connection a une base de donnée Acess Par VBS
mohax007
Messages postés
13
Date d'inscription
mercredi 8 juin 2005
Statut
Membre
Dernière intervention
25 juillet 2005
-
23 juin 2005 à 11:27
cs_dan80 Messages postés 101 Date d'inscription mardi 3 mai 2005 Statut Membre Dernière intervention 19 avril 2006 - 23 juin 2005 à 16:13
cs_dan80 Messages postés 101 Date d'inscription mardi 3 mai 2005 Statut Membre Dernière intervention 19 avril 2006 - 23 juin 2005 à 16:13
3 réponses
cs_babson
Messages postés
25
Date d'inscription
samedi 7 octobre 2000
Statut
Membre
Dernière intervention
16 décembre 2008
23 juin 2005 à 15:03
23 juin 2005 à 15:03
inspire toi de l'exemple ci dessous: ilfaut rajouter la référence ADO a ton projet
'Declaration
Public cnRecence As ADODB.Connection
'dans un module ou dans ton form_Load
Set cnRecence = New ADODB.Connection
cnRecence.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\recence.mdb;Persist Security Info=False"
cnRecence.Open
'Declaration
Public cnRecence As ADODB.Connection
'dans un module ou dans ton form_Load
Set cnRecence = New ADODB.Connection
cnRecence.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\recence.mdb;Persist Security Info=False"
cnRecence.Open
mohax007
Messages postés
13
Date d'inscription
mercredi 8 juin 2005
Statut
Membre
Dernière intervention
25 juillet 2005
23 juin 2005 à 16:02
23 juin 2005 à 16:02
salut babson je suis debutant Alors si tu pouvais me donner
un peu plus de details parce que j ai essayé d adapter ce que tu ma di
au dessus mais mon script ne fonctionne toujours pas
merci davance
un peu plus de details parce que j ai essayé d adapter ce que tu ma di
au dessus mais mon script ne fonctionne toujours pas
merci davance
cs_dan80
Messages postés
101
Date d'inscription
mardi 3 mai 2005
Statut
Membre
Dernière intervention
19 avril 2006
23 juin 2005 à 16:13
23 juin 2005 à 16:13
ESSAYE CA
TU MET CA DANS UN MODULE
Public
Sub Connection_BDD(
ByRef cnn
As ADODB.Connection,
ByVal bdd
As
String)
cnn =
New ADODB.Connection
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Open("Data Source=" & bdd)
End
Sub
TA BASE ET TA CONNECTION TU LES DECLARE COMME CA
Public cnn1 As ADODB.Connection
Dim bdd1 As String = CHEMIN DE LA BASE
ET TU FAIS
CONNECTION_BDD(CNN1,BDD1)
DIS MOI SI TA REUSSI
TU MET CA DANS UN MODULE
Public
Sub Connection_BDD(
ByRef cnn
As ADODB.Connection,
ByVal bdd
As
String)
cnn =
New ADODB.Connection
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Open("Data Source=" & bdd)
End
Sub
TA BASE ET TA CONNECTION TU LES DECLARE COMME CA
Public cnn1 As ADODB.Connection
Dim bdd1 As String = CHEMIN DE LA BASE
ET TU FAIS
CONNECTION_BDD(CNN1,BDD1)
DIS MOI SI TA REUSSI
