A voir également:
- Vb6 - remplir une msFlexGrid avec une BDD
- Vb6 - Télécharger - Divers Utilitaires
- Organigramme a remplir word - Guide
- Comment remplir un document pdf - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Fiche de paie à remplir gratuit excel ✓ - Forum compta / gestion
1 réponse
Ma Solution : dans le Form_Load
Dim SQL As String
Dim Requete As Recordset
Dim vrai As Boolean
Dim x As String
SQL = "SELECT Num_Moniteur, Nom_Moniteur, Prenom_Moniteur, "
SQL = SQL & "tel_Moniteur, Adresse_Moniteur, "
SQL = SQL & "Code_Postal_Moniteur, Ville_Moniteur "
SQL = SQL & "FROM Moniteur "
SQL = SQL & "Order by Nom_Moniteur asc"
Set Requete = CapArmor.OpenRecordset(SQL)
If Not Requete.BOF Then
Requete.MoveFirst
vrai = True
x = 1
While vrai = True
If Not Requete.EOF Then
msfGrille.Rows = x + 1
msfGrille.Row = x
For i = 0 To 6
msfGrille.Col = i
msfGrille = Requete.Fields(i)
Next
Requete.MoveNext
x = x + 1
vrai = True
Else
vrai = False
End If
Wend
Else
msfGrille.Rows = 2
msfGrille.Row = 1
For i = 0 To 6
msfGrille.Col = i
msfGrille = ""
Next
msfGrille.Col = 1
msfGrille = "Pas d'enregistrement"
End If
Dim SQL As String
Dim Requete As Recordset
Dim vrai As Boolean
Dim x As String
SQL = "SELECT Num_Moniteur, Nom_Moniteur, Prenom_Moniteur, "
SQL = SQL & "tel_Moniteur, Adresse_Moniteur, "
SQL = SQL & "Code_Postal_Moniteur, Ville_Moniteur "
SQL = SQL & "FROM Moniteur "
SQL = SQL & "Order by Nom_Moniteur asc"
Set Requete = CapArmor.OpenRecordset(SQL)
If Not Requete.BOF Then
Requete.MoveFirst
vrai = True
x = 1
While vrai = True
If Not Requete.EOF Then
msfGrille.Rows = x + 1
msfGrille.Row = x
For i = 0 To 6
msfGrille.Col = i
msfGrille = Requete.Fields(i)
Next
Requete.MoveNext
x = x + 1
vrai = True
Else
vrai = False
End If
Wend
Else
msfGrille.Rows = 2
msfGrille.Row = 1
For i = 0 To 6
msfGrille.Col = i
msfGrille = ""
Next
msfGrille.Col = 1
msfGrille = "Pas d'enregistrement"
End If