DataGrid ( VB6)

Résolu/Fermé

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 - 11 févr. 2019 à 01:43
Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 - 14 févr. 2019 à 09:00

Bonjour,

Je m'adresse à vous, pour vous prier de me renseigner sur le comment faire afficher les données sur ma DataGrid à chaque fois où je sélectionne un bouton.

Je m'explique.

sur la (Form) il y'a :

1 : Deux boutons ( Option )
OptQ1
OptQt2
2 : Combox ( Affiche les mois de l'année)

3 : DataGrid

4 : Addoc

mes codes sont comme suite:

une fois le mois sélectionné, je clique sur un bouton (OptQ1) ou (OptQ2)

dans chacun de ces deux boutons, j'ai écris :

 Private Sub OptQ1_Click()


dim Q as string


Q = "Quinzaine n°1"

   
   
SQLs = "select * from TableQuinzaines where ((Dossier='" & CStr(VarDossier) & "')and (Mois='" & CStr(cmbMois) & "') and (Quinzaine='" & CStr(Q) & "'))"
    
If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
   
 ADQuinzaine.RecordSource = SQLs
    
Set DGQuinzaine.DataSource = ADQuinzaine
    
DGQuinzaine.AllowArrows = False
DGQuinzaine.AllowUpdate = False
    
 ADQuinzaine.Refresh
   

end sub

sur OptQ2 ( le même code )

Private Sub OptQ2_Click()


dim Q as string

Q = "Quinzaine n°2"

   
   
SQLs = "select * from TableQuinzaines where ((Dossier='" & CStr(VarDossier) & "')and (Mois='" & CStr(cmbMois) & "') and (Quinzaine='" & CStr(Q) & "'))"
    
If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
   
ADQuinzaine.RecordSource = SQLs
    
Set DGQuinzaine.DataSource = ADQuinzaine
    
DGQuinzaine.AllowArrows = False
DGQuinzaine.AllowUpdate = False
    
ADQuinzaine.Refresh
   

end sub

Ce que je cherche, est faire afficher les données de la Quinzaine n° 1 ( optQ1) s'elles existent, sinon, la datagrid doit être vide
la même chose, lors d'un click sur le bouton OpQ2,

Merci pour votre aide.

A voir également:

DataGrid ( VB6)
Vb6 - Télécharger - Divers Utilitaires
Vb6 freefile - Forum VB / VBA
Vb6 randomize - Forum VB / VBA
[VB.NET ] Datagrid - Dataset - Datatable - Forum Framework .NET
Listbox vb6 ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
13 févr. 2019 à 08:25

Bonjour,

pour votre RAZ datagrid, regarder ici:
https://codes-sources.commentcamarche.net/forum/affich-1165867-comment-vider-une-datagrid-lorse-du-demarage

code plus logique

Private Sub OptQ1_Click()
    Call Recherche(1)
End Sub
Private Sub OptQ2_Click()
    Call Recherche(2)
End Sub

Sub Recherche(Num)
    SQLs = "select * from TableQuinzaines where ((Dossier='" & CStr(VarDossier) & "')and (Mois='" & CStr(cmbMois) & "') and (Quinzaine='" & CStr(Num) & "'))"

    If RS.State = adStateOpen Then RS.Close
    RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

    ADQuinzaine.RecordSource = SQLs

    Set DGQuinzaine.DataSource = ADQuinzaine

    DGQuinzaine.AllowArrows = False
    DGQuinzaine.AllowUpdate = False

    ADQuinzaine.Refresh
End Sub

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
13 févr. 2019 à 23:48

Bonjour

Je vous remercie pour votre aide.

Je n'ai pas encore essayer votre code, je le ferai incessement. Seulement je suis bloquè à ce moment sur la façon d'imprimer une sèrie de bulletins de paie avec un seul click.

Imprimer bulletin par bulletin en selectionnant le nom, je l'ai réussi, mais imprimer plusieurs en un seul clik me donne du fil à retorde

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
14 févr. 2019 à 07:53

Bonjour,

Dans le code que j'ai modifie, il n'y a pas la modification demandée ..........

Lenouveauapprenti Messages postés 306 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 15 février 2025 2
14 févr. 2019 à 09:00

Bonjour

J'ai essayer votre code, et a bien marché.
Merci une autre fois

Discussions similaires

[Visual Basic 6 portable]Créer exécutable

Bonjour,
Je travaille depuis quelques jours sur vb6. Je débute, et je veux partager avec mes amis ce que j'ai fait. Le problème est que je ne trouve pas comment créer le fichier .exe, j'ai les fichiers form et vdp, mais pas moyen d'avoir le fichier .exe

Pourriez-vous m'aider s'il vous plait ?

Je vous remercie de votre compréhension.

vb6.0 et datagrid

Bonjour,

oui salut

Je voudrai savoir s'il est possible sous VB 6.0, à savoir remplir une datagrid ?
par exemple je voudrai ercire dans la première ligne "matières"

2 eme question

est ce qu'il est possible de repmlire ce datagrid mannuellement (ecrire et modifier )

La fonction split de vb6

Bonjour,

J'ai un problème, j'écris un programme en vb6 Access 97, sur un interface, je fais des modifications. sur l'interface, il y' a deux listes box, les modifications pour la première marche, parce que le code est en début de la liste et je le récupère directement. Pour le second le code n'est pas affiché et je dois le récupérer. Je sais que cela peut se faire avec la fonction split, seulement je ne sais pas comment cela s'utilise, j'ai éssayé en vain.
Aidez moi je vous en prie.
Merci

Télécharger Visual Basic 6.0 (VB6)

Bonjour

j'arrive pas a Télécharger Visual Basic 6.0 (VB6)gratuit
Pouvez vous m'indiquer comment le faire SVP ?
Merci d'avance:))

Programmer le Timer en Visual Basic 6.0

Bonjour,
Je suis débutant en programmation vb, je voulais avoir comment programmer le Timer.
Merci