Allo je veux utiliser la commande select pour une fonction mais comment
faire pour ouvrir la connexion existante ?
Private Sub NomEntreprise_Change()
Dim temp As String
Dim sql As String
Dim rsNo As New ADODB.Recordset
temp = NomEntreprise.Text
sql = "select * from info_entreprise_generale where nomentreprise = " +
temp
rsNo.Open sql, Connexion -> ici quel est le nom de la
connexion....existe telle pas deja puisque nous somme dans la bd
salut Jf, C'est clair qu'en DAO c'était un peu plus simple, mais il est qd-mm possible de retomber sur ces pattes en ADO :
dim Cn as ADO.connection
Set Cn = Application.CurrentProjet.Connection ' Ce faisant on récupère la connection active
y'a plus qu'à ! :-)
-----Message d'origine----- Allo je veux utiliser la commande select pour une fonction mais comment
faire pour ouvrir la connexion existante ?
Private Sub NomEntreprise_Change() Dim temp As String Dim sql As String Dim rsNo As New ADODB.Recordset
temp = NomEntreprise.Text sql = "select * from info_entreprise_generale where nomentreprise = " +
temp rsNo.Open sql, Connexion -> ici quel est le nom de la connexion....existe telle pas deja puisque nous somme dans la bd
End Sub
Jf
.
3stone
Salut,
peut-être.... mais cela m'étonnerais que le bon endroit soit sur "Change"...
;-)
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
"Gus" a écrit:
CurrentProject.connection
"Jac" a écrit:
Allo je veux utiliser la commande select pour une fonction mais comment faire pour ouvrir la connexion existante ?
Private Sub NomEntreprise_Change() Dim temp As String Dim sql As String Dim rsNo As New ADODB.Recordset
temp = NomEntreprise.Text sql = "select * from info_entreprise_generale where nomentreprise = " +
temp rsNo.Open sql, Connexion -> ici quel est le nom de la connexion....existe telle pas deja puisque nous somme dans la bd
End Sub
Jf
Salut,
peut-être....
mais cela m'étonnerais que le bon endroit soit sur "Change"...
;-)
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
"Gus" <alain.roblou.flowmeca@wanadoo.fr> a écrit:
CurrentProject.connection
"Jac" <jean-francois.guenet@stablex.com> a écrit:
Allo je veux utiliser la commande select pour une fonction mais comment
faire pour ouvrir la connexion existante ?
Private Sub NomEntreprise_Change()
Dim temp As String
Dim sql As String
Dim rsNo As New ADODB.Recordset
temp = NomEntreprise.Text
sql = "select * from info_entreprise_generale where nomentreprise = "
+
temp
rsNo.Open sql, Connexion -> ici quel est le nom de la
connexion....existe telle pas deja puisque nous somme dans la bd
peut-être.... mais cela m'étonnerais que le bon endroit soit sur "Change"...
;-)
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
"Gus" a écrit:
CurrentProject.connection
"Jac" a écrit:
Allo je veux utiliser la commande select pour une fonction mais comment faire pour ouvrir la connexion existante ?
Private Sub NomEntreprise_Change() Dim temp As String Dim sql As String Dim rsNo As New ADODB.Recordset
temp = NomEntreprise.Text sql = "select * from info_entreprise_generale where nomentreprise = " +
temp rsNo.Open sql, Connexion -> ici quel est le nom de la connexion....existe telle pas deja puisque nous somme dans la bd
End Sub
Jf
Jac
Merci Fred M ca fonctionne no 1 !
"Fred M." a écrit dans le message de news:622201c37799$b63f28c0$ salut Jf, C'est clair qu'en DAO c'était un peu plus simple, mais il est qd-mm possible de retomber sur ces pattes en ADO :
dim Cn as ADO.connection
Set Cn = Application.CurrentProjet.Connection ' Ce faisant on récupère la connection active
y'a plus qu'à ! :-)
-----Message d'origine----- Allo je veux utiliser la commande select pour une fonction mais comment
faire pour ouvrir la connexion existante ?
Private Sub NomEntreprise_Change() Dim temp As String Dim sql As String Dim rsNo As New ADODB.Recordset
temp = NomEntreprise.Text sql = "select * from info_entreprise_generale where nomentreprise = " +
temp rsNo.Open sql, Connexion -> ici quel est le nom de la connexion....existe telle pas deja puisque nous somme dans la bd
End Sub
Jf
.
Merci Fred M ca fonctionne no 1 !
"Fred M." <fmichalak@avolys.com> a écrit dans le message de
news:622201c37799$b63f28c0$a501280a@phx.gbl...
salut Jf,
C'est clair qu'en DAO c'était un peu plus simple, mais il
est qd-mm possible de retomber sur ces pattes en ADO :
dim Cn as ADO.connection
Set Cn = Application.CurrentProjet.Connection
' Ce faisant on récupère la connection active
y'a plus qu'à ! :-)
-----Message d'origine-----
Allo je veux utiliser la commande select pour une
fonction mais comment
faire pour ouvrir la connexion existante ?
Private Sub NomEntreprise_Change()
Dim temp As String
Dim sql As String
Dim rsNo As New ADODB.Recordset
temp = NomEntreprise.Text
sql = "select * from info_entreprise_generale where
nomentreprise = " +
temp
rsNo.Open sql, Connexion -> ici quel est le nom de la
connexion....existe telle pas deja puisque nous somme
dans la bd
"Fred M." a écrit dans le message de news:622201c37799$b63f28c0$ salut Jf, C'est clair qu'en DAO c'était un peu plus simple, mais il est qd-mm possible de retomber sur ces pattes en ADO :
dim Cn as ADO.connection
Set Cn = Application.CurrentProjet.Connection ' Ce faisant on récupère la connection active
y'a plus qu'à ! :-)
-----Message d'origine----- Allo je veux utiliser la commande select pour une fonction mais comment
faire pour ouvrir la connexion existante ?
Private Sub NomEntreprise_Change() Dim temp As String Dim sql As String Dim rsNo As New ADODB.Recordset
temp = NomEntreprise.Text sql = "select * from info_entreprise_generale where nomentreprise = " +
temp rsNo.Open sql, Connexion -> ici quel est le nom de la connexion....existe telle pas deja puisque nous somme dans la bd
