Ado

drpsico Messages postés 208 Date d'inscription vendredi 7 mai 2004 Statut Membre Dernière intervention 15 août 2005 - 6 juil. 2005 à 17:54
drpsico Messages postés 208 Date d'inscription vendredi 7 mai 2004 Statut Membre Dernière intervention 15 août 2005 - 7 juil. 2005 à 13:40
bonjour je voudrais me connecter a une base de donner verouyé par un mot de passe a
voici mon code:
Private cnx As ADODB.Connection
Dim strSql As String
Dim Ors As ADODB.Recordset


Private Sub Form_Load()
Set cnx = New ADODB.Connection
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
cnx.Open "c:\db1.mdb"
strSql = "select * from contact where num >0"
Set Ors = New ADODB.Recordset
Ors.Open strSql, cnx, adOpenDynamic
Text1.Text = Ors.Fields("prenom")
Text2.Text = Ors.Fields("nom")
End Sub


Private Sub suivant_Click()
If Not Ors.EOF Then
Ors.MoveNext
If Not Ors.EOF Then
Text1.Text = Ors.Fields("prenom")
Text2.Text = Ors.Fields("nom")
End If
End If
End Sub


Private Sub retour_Click()
If Not Ors.BOF Then
Ors.MovePrevious
If Not Ors.BOF Then
Text1.Text = Ors.Fields("prenom")
Text2.Text = Ors.Fields("nom")
End If
End If
End Sub

merci

psicofox6@hotmail.com==

3 réponses

cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 11
7 juil. 2005 à 00:17
Bonjour,

Essaye avec :

cnx.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=xxx"

en remplaçant xxx par le mot de passe

wape
0
Doro81079 Messages postés 380 Date d'inscription vendredi 22 avril 2005 Statut Membre Dernière intervention 24 février 2015 56
7 juil. 2005 à 11:10
bonjour,
sinon a la ligne
cnx.Open tu rajoute("data source=c:\bd1.mdb","nom d'utilisateur","mot de passe")
doro
0
drpsico Messages postés 208 Date d'inscription vendredi 7 mai 2004 Statut Membre Dernière intervention 15 août 2005
7 juil. 2005 à 13:40
merci wape sa marche

psicofox6@hotmail.com==
0