crocmorts
Messages postés49Date d'inscriptionmardi 17 février 2004StatutMembreDernière intervention 6 avril 2004
-
2 mars 2004 à 10:11
juvamine
Messages postés468Date d'inscriptionvendredi 21 février 2003StatutMembreDernière intervention30 août 2007
-
2 mars 2004 à 17:48
Pourriez - vous jeter un coups d'oeil, Affichage complet d'une base de donnée dans un flexgrid.
Je voudrais que ce flex soit dynamique et pas statique, qu'il s'adapte selon le contenu de la base de données.
Ici, il ne m'affiche que la 1ere ligne de la base.
Merci
Private Sub Command2_Click()
Dim sql As String
Dim cnx As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnx.Mode = 3 'pour pouvoir inserer des données
cnx.Provider = "Microsoft.Jet.Oledb.4.0" 'Définition de la chaîne de connexion
cnx.ConnectionString = App.Path & "\BASE.mdb" 'Ouverture de la base de données
cnx.Open
rst.ActiveConnection = cnx
sql = "SELECT * FROM TABLE_CONTENU"
rst.Open (sql)
On Error Resume Next
Do While Not (rst.EOF = True)
For i = 0 To 19
For j = 0 To 59
Tableau.TextMatrix(i, j) = rst.Fields(j - 0).Value
Next j
Next i
Loop
cnx.Close
Set cnx = Nothing
Set rst = Nothing
End Sub