1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
|
Private Sub Form_Load()
Set Cn = New ADODB.Connection
Set rsDonateurs = New ADODB.Recordset
'chaine de connexion
strConnex = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & App.Path & "\association.mdb"
'requête
SQL = "select * from personne"
'ouverture de la connexion
Cn.Open strConnex
rsDonateurs.CursorLocation = adUseClient
'ouverture de la requête
rsDonateurs.Open SQL, Cn, adOpenDynamic, adLockOptimistic, adCmdText
'détermine la source pour le datacombo
Set cmbDonateurs.RowSource = rsDonateurs
cmbDonateurs.ListField = rsDonateurs.Fields(1).Name 'nom_personne
'For i = 0 To 5
'
' txtDonateurs(i).DataSource = rsDonateurs
' txtDonateurs(i).DataField = rsDonateurs.Fields(i).Name
'
'Next i
Set bndDonateur.DataSource = rsDonateurs
With bndDonateur
.Add txtDonateurs(0), "Text", "nom_personne", , "nom"
.Add txtDonateurs(1), "Text", "adresse_personne", , "adresse"
.Add txtDonateurs(2), "Text", "cp_personne", , "cp"
.Add txtDonateurs(3), "Text", "ville_personne", , "ville"
.Add txtDonateurs(4), "Text", "tel_personne", , "tel"
.Add txtDonateurs(5), "Text", "Remarques", , "remarques"
End With
'se positionne au 1er enrigistrement
'adoDonateurs.Recordset.MoveFirst
End Sub |
Partager