Discussion :

[caty139]

salut,
je cherche comment rafraichir une grille en vb6.
lorsque je fais suivant ou precedent ,logiquement la grille doit m'afficher les infos du" suivant", le contenu de la grille ne change pas alors que le textbox passe au suivant.
pareille pour nouveau , lorsque je fais "nouveau " , la grille devrait se vider et me permettre de saisir des nouveaux infos.

merci et je compte sur votre aide!!!!!!!!

[Le Pharaon]

Ca dépend du type de connexion que tu as utilisé
Voici un exemple, basé sur un DataEnvironement.
Tu pourras l'adapter à ta situation

Code :

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

1
2
 nomRecordset.Requery
  Set DataGrid.DataSource = nomDataEnvironement

[jacma]

Bonjour
Tu n'as pas besoin de rafraichir ta grille dès lors qu'elle est liée aux données. Et si tes textbox sont également liées aux données, tout est synchronisé. L'exemple ci-dessous devrait t'éclairer. La source peut être aussi bien un ControlData, comme ici, qu'un DataEnvironment ou un recordset.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
  Set myDataCombo.DataSource = Adodc1
  Set myDataCombo.RowSource = Adodc1
  myDataCombo.ListField = "Name"
  'Liaison de ta grille avec lun ContrôleData
  Set DataGrid1.DataSource = Adodc1
  'Liaison d'une zone de texte avec un ContrôleData
  Set Text1.DataSource = Adodc1
  Text1.DataField = "Name"  
End Sub

[Le Pharaon]

Merci jacma
Juste une précision
Dans un ton exemple les futures modifications (effectuées après la création des liaisons avec le controle Data) ne seront pas visibles.

[caty139]

Merci de m'avoir repondu, je vais essayer vos solutions.

[jacma]

Dans un ton exemple les futures modifications (effectuées après la création des liaisons avec le controle Data) ne seront pas visibles.

:
Les modifications apportées à travers la grille sont bien prises en compte, tant pour la modification d'un enregistrement que pour un nouvel enregistrement (si les propriétés AllowUpdate et AllowAddNew de la grille sont définies pour).

[caty139]

EN FAIT je veux en fait que mes textbox et ma grille se suivent au même moment où je clique sur les boutons (suivant, premier,precedent, nouveau etc......).
je veux vider au même moment les texbox et la grille quand je fais "NOUVEAU"
voici le code :
Private Sub ActualiserGrille()
TP.RecordSource = "SELECT num_dev, code_prod ,dési_prod,PU_prod,qténec_prod,mont_devis " & _
"FROM proddev,devis,produit, WHERE devis.num_devis = prodev.num_devis and produit.code_prod = prodev.code_prod;"
End Sub
Public Sub ViderGrille(xTable)
Dim TP As Adodc
Set TP = xTable
If TP.Recordset.RecordCount > 0 Then
TP.Recordset.MoveFirst
Do While TP.Recordset.RecordCount > 0
If TP.Recordset.AbsolutePosition <> adPosUnknown Then
TP.Recordset.Delete
TP.Recordset.MoveNext
End If
Loop
If TP.Recordset.RecordCount > 0 Then
TP.Refresh
End If
End If
End Sub

[caty139]

je veux en fait que mes textbox et ma grille se suivent au même moment où je clique sur les boutons (suivant, premier,precedent, nouveau etc......).
je veux vider au même moment les texbox et la grille quand je fais "NOUVEAU"
voici le code :
Private Sub ActualiserGrille()
TP.RecordSource = "SELECT num_dev, code_prod ,dési_prod,PU_prod,qténec_prod,mont_devis " & _
"FROM TP,devis,produit, WHERE devis.num_devis = TP.num_devis and produit.code_prod = TP.code_prod;"
End Sub

Public Sub ViderGrille(xTable)
Dim TP As Adodc
Set TP = xTable
If TP.Recordset.RecordCount > 0 Then
TP.Recordset.MoveFirst
Do While TP.Recordset.RecordCount > 0
If TP.Recordset.AbsolutePosition <> adPosUnknown Then
TP.Recordset.Delete
TP.Recordset.MoveNext
End If
Loop
If TP.Recordset.RecordCount > 0 Then
TP.Refresh
End If
End If
End Sub

[jacma]

je veux en fait que mes textbox et ma grille se suivent au même moment où je clique sur les boutons (suivant, premier,precedent, nouveau etc......).

Dans la mesure où textbox et grille sont liées aux données, cela se fait automatiquement, puisque l'ensemble affiche les données de l'entregistrement en cours du recordset. As-tu essayé?

je veux vider au même moment les texbox et la grille quand je fais "NOUVEAU"

Là, je ne comprend pas. Généralement, la grille affiche l'ensemble des enregistrement du recordset et les TextBox affiche la valeur des champs de l'enregistrement- en cours.
Donc, si tu veux ajouter un enregistrement, il faut mettre ton recordset en mode ajout:

Code :

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

tonRS.AddNew

Dès lors, tes TextBox liées sont vidées de toute valeur et une ligne est ajoutée à ta grille.

De toute fàçon, je te conseille fortement de consulter les cours et notamment "Accès aux données ADO" et "Initiation accès aux données" accessibles depuis l'adresse en signature. Je pense que tu y trouveras ce qui te manque dans ton approche.