drasche | j'avais pas vu de private ;-)
voilà le code qui marche:
Set rst = New ADODB.Recordset
Call rst.Fields.Append("Info", adVarChar, 5, adFldIsNullable)
Call rst.Fields.Append("Libelle", adVarChar, 30, adFldIsNullable)
rst.CursorType = adOpenStatic
rst.LockType = adLockBatchOptimistic
Call rst.Open
For i = 1 To iNbRows
rst.AddNew
Next i
Set grdList.DataSource = rst
|
Tenant compte du fait que je n'ai pas changé les valeurs par défaut du DataGrid (sauf le nom). J'ai ajouté un paramètre à l'ajout des fields pour autoriser le Null, ce qui fait qu'à la lecture des valeurs, tu dois d'abord tester si le contenu est null, sinon tu auras un plantage. ---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
|