ado

Question

bonjour je voudrais me connecter a une base de donner verouy&#233; 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==

cs_wape · Answer

Bonjour,

Essaye avec :

cnx.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=xxx"

en rempla&#231;ant xxx par le mot de passe

wape

Doro81079 · Answer

bonjour,
sinon a la ligne
cnx.Open tu rajoute("data source=c:\bd1.mdb","nom d'utilisateur","mot de passe")
doro

drpsico · Answer

merci wape sa marche

psicofox6@hotmail.com==

Ado

3 réponses

Discussions similaires