Bonjour
J'ai besoin d'un coup de main pour créer une connexion sur ma base de données
qui se trouve sur un serveur .
Bien qu'ayant trouvé un code sur le site, je n'arrive toujours pas as y accéder.
Je pense que je doits mal m'y prendre.
J'explique mon problème :
J'ai une base de données Access97 sur un serveur
Sur ce serveur il a été créé un DSN(Points)
Le login = AccesClub
Password =Club27854

Sur mon PC lors de la création de mon control je procéder de cette maniere ,
Et tout fonctionne correctement.
Private CN As Connection
Dim RS As New Recordset
Set CN = New Connection
'CN.Open "DSN=Points"

RS.Open "Select * from joueur WHERE motDePasse = '" & Password.Text & "'", CN, adOpenDynamic, adLockOptimistic
TxtMotDePasse.Text = RS!MotDePasse
Textnom.Text = RS!nom
Textprenom.Text = RS!Prenom
ClasCompet.Text = RS!classement
txtSexe.Text = RS!sexe
Txtcapital.Text = RS!Capital
Txtref.Text = RS!ref
Textnumero.Text = RS!numero
TxtLicence.Text = RS!Licence
RS.Close

C'est la première fois que j'essaie de me connecter à une base distante,
et j'ai beaucoup de problèmes c'est pour cela que si vous trouvez un peu de temps
pour me venir en aide cela serait sympa
Merci d'avance
A+ Michèle

est ce que tu as crée un DSN sur ta machine avec le meme nom???
si tu crees une connection avec un dns , tu as besion d'en créer un sur ta machine afin que le systeme puisse lacaliser le serveur

-------------------------------
Réponse au message :
-------------------------------

Bonjour
J'ai besoin d'un coup de main pour créer une connexion sur ma base de données
qui se trouve sur un serveur .
Bien qu'ayant trouvé un code sur le site, je n'arrive toujours pas as y accéder.
Je pense que je doits mal m'y prendre.
J'explique mon problème :
J'ai une base de données Access97 sur un serveur
Sur ce serveur il a été créé un DSN(Points)
Le login = AccesClub
Password =Club27854

Sur mon PC lors de la création de mon control je procéder de cette maniere ,
Et tout fonctionne correctement.
Private CN As Connection
Dim RS As New Recordset
Set CN = New Connection
'CN.Open "DSN=Points"

RS.Open "Select * from joueur WHERE motDePasse = '" & Password.Text & "'", CN, adOpenDynamic, adLockOptimistic
TxtMotDePasse.Text = RS!MotDePasse
Textnom.Text = RS!nom
Textprenom.Text = RS!Prenom
ClasCompet.Text = RS!classement
txtSexe.Text = RS!sexe
Txtcapital.Text = RS!Capital
Txtref.Text = RS!ref
Textnumero.Text = RS!numero
TxtLicence.Text = RS!Licence
RS.Close

C'est la première fois que j'essaie de me connecter à une base distante,
et j'ai beaucoup de problèmes c'est pour cela que si vous trouvez un peu de temps
pour me venir en aide cela serait sympa
Merci d'avance
A+ Michèle

Oui mais le probléme de créer un dsn sur mon PC est que je ne me connecte jamais a la base de données qui se trouve sur le serveur mais a celle de mon PC



-------------------------------
Réponse au message :
-------------------------------



est ce que tu as crée un DSN sur ta machine avec le meme nom???
si tu crees une connection avec un dns , tu as besion d'en créer un sur ta machine afin que le systeme puisse lacaliser le serveur

-------------------------------
Réponse au message :
-------------------------------

Bonjour
J'ai besoin d'un coup de main pour créer une connexion sur ma base de données
qui se trouve sur un serveur .
Bien qu'ayant trouvé un code sur le site, je n'arrive toujours pas as y accéder.
Je pense que je doits mal m'y prendre.
J'explique mon problème :
J'ai une base de données Access97 sur un serveur
Sur ce serveur il a été créé un DSN(Points)
Le login = AccesClub
Password =Club27854

Sur mon PC lors de la création de mon control je procéder de cette maniere ,
Et tout fonctionne correctement.
Private CN As Connection
Dim RS As New Recordset
Set CN = New Connection
'CN.Open "DSN=Points"

RS.Open "Select * from joueur WHERE motDePasse = '" & Password.Text & "'", CN, adOpenDynamic, adLockOptimistic
TxtMotDePasse.Text = RS!MotDePasse
Textnom.Text = RS!nom
Textprenom.Text = RS!Prenom
ClasCompet.Text = RS!classement
txtSexe.Text = RS!sexe
Txtcapital.Text = RS!Capital
Txtref.Text = RS!ref
Textnumero.Text = RS!numero
TxtLicence.Text = RS!Licence
RS.Close

C'est la première fois que j'essaie de me connecter à une base distante,
et j'ai beaucoup de problèmes c'est pour cela que si vous trouvez un peu de temps
pour me venir en aide cela serait sympa
Merci d'avance
A+ Michèle

je vais juste te donner un example avec sql server.
ma base se trouve sur un serveur. donc pour que mes application VB fonctionne sur ttes les machines, je dois crée un dsn: ou je précise le nom de la machine ou l'adress IP, mon login, mon pWD.
et dans ma chaine de connexion je precise le nom de la base.
il faut auparavant que tu ait le droit de te connecter donc il faut que ait une connexion sur SQL SERVER
Public Sub connection()
Set cn = New ADODB.connection

On Error GoTo errFind
With cn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= alerte; Password=toto ;Initial Catalog=DNTDB_TEST;Data Source=xxx.xxx.x.xxx"
.Open
End With

Exit Sub
voila


-------------------------------
Réponse au message :
-------------------------------

Oui mais le probléme de créer un dsn sur mon PC est que je ne me connecte jamais a la base de données qui se trouve sur le serveur mais a celle de mon PC



-------------------------------
Réponse au message :
-------------------------------



est ce que tu as crée un DSN sur ta machine avec le meme nom???
si tu crees une connection avec un dns , tu as besion d'en créer un sur ta machine afin que le systeme puisse lacaliser le serveur

-------------------------------
Réponse au message :
-------------------------------

Bonjour
J'ai besoin d'un coup de main pour créer une connexion sur ma base de données
qui se trouve sur un serveur .
Bien qu'ayant trouvé un code sur le site, je n'arrive toujours pas as y accéder.
Je pense que je doits mal m'y prendre.
J'explique mon problème :
J'ai une base de données Access97 sur un serveur
Sur ce serveur il a été créé un DSN(Points)
Le login = AccesClub
Password =Club27854

Sur mon PC lors de la création de mon control je procéder de cette maniere ,
Et tout fonctionne correctement.
Private CN As Connection
Dim RS As New Recordset
Set CN = New Connection
'CN.Open "DSN=Points"

RS.Open "Select * from joueur WHERE motDePasse = '" & Password.Text & "'", CN, adOpenDynamic, adLockOptimistic
TxtMotDePasse.Text = RS!MotDePasse
Textnom.Text = RS!nom
Textprenom.Text = RS!Prenom
ClasCompet.Text = RS!classement
txtSexe.Text = RS!sexe
Txtcapital.Text = RS!Capital
Txtref.Text = RS!ref
Textnumero.Text = RS!numero
TxtLicence.Text = RS!Licence
RS.Close

C'est la première fois que j'essaie de me connecter à une base distante,
et j'ai beaucoup de problèmes c'est pour cela que si vous trouvez un peu de temps
pour me venir en aide cela serait sympa
Merci d'avance
A+ Michèle

Le fournisseur du serveur m'a créé un DSN mais sur ma base access.
je possède bien un login et un pwd.
J'ai essayé de mille façons sans résultats.
Peux-tu me faire un exemple avec une mdb base
Merci A+


-------------------------------
Réponse au message :
-------------------------------


je vais juste te donner un example avec sql server.
ma base se trouve sur un serveur. donc pour que mes application VB fonctionne sur ttes les machines, je dois crée un dsn: ou je précise le nom de la machine ou l'adress IP, mon login, mon pWD.
et dans ma chaine de connexion je precise le nom de la base.
il faut auparavant que tu ait le droit de te connecter donc il faut que ait une connexion sur SQL SERVER
Public Sub connection()
Set cn = New ADODB.connection

On Error GoTo errFind
With cn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= alerte; Password=toto ;Initial Catalog=DNTDB_TEST;Data Source=xxx.xxx.x.xxx"
.Open
End With

Exit Sub
voila


-------------------------------
Réponse au message :
-------------------------------

Oui mais le probléme de créer un dsn sur mon PC est que je ne me connecte jamais a la base de données qui se trouve sur le serveur mais a celle de mon PC



-------------------------------
Réponse au message :
-------------------------------



est ce que tu as crée un DSN sur ta machine avec le meme nom???
si tu crees une connection avec un dns , tu as besion d'en créer un sur ta machine afin que le systeme puisse lacaliser le serveur

-------------------------------
Réponse au message :
-------------------------------

Bonjour
J'ai besoin d'un coup de main pour créer une connexion sur ma base de données
qui se trouve sur un serveur .
Bien qu'ayant trouvé un code sur le site, je n'arrive toujours pas as y accéder.
Je pense que je doits mal m'y prendre.
J'explique mon problème :
J'ai une base de données Access97 sur un serveur
Sur ce serveur il a été créé un DSN(Points)
Le login = AccesClub
Password =Club27854

Sur mon PC lors de la création de mon control je procéder de cette maniere ,
Et tout fonctionne correctement.
Private CN As Connection
Dim RS As New Recordset
Set CN = New Connection
'CN.Open "DSN=Points"

RS.Open "Select * from joueur WHERE motDePasse = '" & Password.Text & "'", CN, adOpenDynamic, adLockOptimistic
TxtMotDePasse.Text = RS!MotDePasse
Textnom.Text = RS!nom
Textprenom.Text = RS!Prenom
ClasCompet.Text = RS!classement
txtSexe.Text = RS!sexe
Txtcapital.Text = RS!Capital
Txtref.Text = RS!ref
Textnumero.Text = RS!numero
TxtLicence.Text = RS!Licence
RS.Close

C'est la première fois que j'essaie de me connecter à une base distante,
et j'ai beaucoup de problèmes c'est pour cela que si vous trouvez un peu de temps
pour me venir en aide cela serait sympa
Merci d'avance
A+ Michèle