Discussion :

[nikita34]

Bonjour,

Je souhaite faire apparaitre des enregistrements dans deux dbgrids different. J'ai réussi à prendre le premier enregistrement et l'afficher dans le dbgrid 1, puis le second enregistrement dans le dbgrid 2, mais lorsque je prend le troisieme enregistrement (qui devrait se mettre dans le dbgrid 1 à la suite de l'autre), au lieu de rajouter, il écrase le premier.

Quelqu'un connaitrait-il le code pour ajouter des enregistrements à un dbgrid qui en contient déjà un ou deux ?

Merci.

[ThierryAIM]

un bout de ton code peut-etre ?

[nikita34]

Mon code est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
'Determine le nombre d'enregistrement
Set qryNombre = db.CreateQueryDef("")
qryNombre.SQL = "select * from JOUEUR;"
qryNombre.ReturnsRecords = True
 
Set recNombre = qryNombre.OpenRecordset()
 
'Recupere le nombre d'enregistrement
recNombre.MoveLast
num = recNombre.RecordCount
 
 
j = 0
z = 1
Randomize
 
For i = 1 To num
 
    'Requete pour nom et prénom des joueurs
    Set qryTirage = db.CreateQueryDef("")
    qryTirage.SQL = "select Nom_Joueur, Prenom_Joueur from JOUEUR where ID_Joueur=" & i & ";"
    qryTirage.ReturnsRecords = True
 
    Set recTirage = qryTirage.OpenRecordset()
 
 
    'Sort un numero entre 1 et 16 au hasard
    hasard = CInt(Int((16 * Rnd())))
 
    If (DBGrid1(hasard).FirstRow = "") Then
 
        Set Data1(hasard).Recordset = recTirage
 
    Else [b][color=red](->c'est ici que ça bloque !!!!)[/color][/b]
 
        DBGrid1(hasard).AllowAddNew = True
        Set Data1(hasard).Recordset = recTirage
 
    End If
 
 
Next