afficher sur msflexgrid un resultat de recherche

**wajdisoft** · 20/07/2009, 19h15

salut a tous

je veux effectuer un recherche ensuit j'affiche le resultat abouti par l'msflexgrid

la probilamiyique quant j fait un dexieme recherche il vide l'antient champ dans l'msflexgrid et ajout a lui les nouveaux champ trouve

j'ai pense a une command me permet de vide l'msflexgrid achaque nouveaux recherche ... je conne la command "MSFlexGrid1.Clear" mais celle si elle ne supprime pas l'entient champ existant dans l'msflexgrid ...

est ce que vous pouvez m'aider et merci d'avance

)

**Bilxadim** · 21/07/2009, 14h45

Bonjour,
Ce n'est pas impossible à condition que vous précisez ce qui est recherché et comment tu l'affiche. Si tu pouvez posté ton bout de code.
Bon courage
Cordialement

**wajdisoft** · 21/07/2009, 19h00

Envoyé par Bilxadim

Bonjour,
Ce n'est pas impossible à condition que vous précisez ce qui est recherché et comment tu l'affiche. Si tu pouvez posté ton bout de code.
Bon courage
Cordialement

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
--------------
    Set rech = bs.OpenRecordset("select * from wajdi where nom='" & Text1.Text & "'")
        If rech.EOF Then
        MsgBox "Vérifier le Nom ...", vbCritical + vbOKOnly, "Nom non trouver"
        Else
            If rech![nom] <> text1.text Then
            rech.MoveFirst
                While rech.EOF = False
        MSFlexGrid1.Clear
        MSFlexGrid1.TextMatrix(0, 1) = "Nom"
        MSFlexGrid1.ColWidth(0) = 0
        MSFlexGrid1.ColWidth(1) = 1500
        MSFlexGrid1.TextMatrix(0, 2) = "Prénom"
        MSFlexGrid1.ColWidth(2) = 1500
        MSFlexGrid1.TextMatrix(0, 3) = "C.I.N"
        MSFlexGrid1.ColWidth(3) = 1500
        MSFlexGrid1.TextMatrix(0, 4) = "Proffession"
        MSFlexGrid1.ColWidth(4) = 1500
        MSFlexGrid1.TextMatrix(0, 5) = "Date de naissance"
        MSFlexGrid1.ColWidth(5) = 1500
        MSFlexGrid1.TextMatrix(0, 6) = "Code Puk"
        MSFlexGrid1.ColWidth(6) = 1500
        MSFlexGrid1.TextMatrix(0, 7) = "Code Postal"
        MSFlexGrid1.ColWidth(7) = 1500
        MSFlexGrid1.TextMatrix(0, 8) = "Adresse"
        MSFlexGrid1.ColWidth(8) = 3000
 
                MSFlexGrid1.AddItem "", t
                MSFlexGrid1.TextMatrix(t, 1) = rech![nom]
                MSFlexGrid1.TextMatrix(t, 2) = rech![prenom]
                MSFlexGrid1.TextMatrix(t, 3) = rech![cin]
                MSFlexGrid1.TextMatrix(t, 4) = rech![proffession]
                MSFlexGrid1.TextMatrix(t, 5) = rech![jour]
                MSFlexGrid1.TextMatrix(t, 6) = rech![codepuk]
                MSFlexGrid1.TextMatrix(t, 7) = rech![code]
                MSFlexGrid1.TextMatrix(t, 8) = rech![adresse]
                t = t + 1
                rech.MoveNext
      Wend
            End If
        End If

--------------

voila une partie de code

**ProgElecT** · 23/07/2009, 18h09

Pas de Up sur DVP.

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
        While rech.EOF = False
 
            '******* que va-t-il ce passer au second passage ? **************************
            MSFlexGrid1.Clear '<= Efface le contenu de la FlexGrid, c'est-à-dire le texte,
                              'les images et le formatage des cellules.
 
            MSFlexGrid1.TextMatrix(0, 1) = "Nom"
            MSFlexGrid1.ColWidth(0) = 0
            MSFlexGrid1.ColWidth(1) = 1500
            MSFlexGrid1.TextMatrix(0, 2) = "Prénom"
            MSFlexGrid1.ColWidth(2) = 1500
            MSFlexGrid1.TextMatrix(0, 3) = "C.I.N"
            MSFlexGrid1.ColWidth(3) = 1500
            MSFlexGrid1.TextMatrix(0, 4) = "Proffession"
            MSFlexGrid1.ColWidth(4) = 1500
            MSFlexGrid1.TextMatrix(0, 5) = "Date de naissance"
            MSFlexGrid1.ColWidth(5) = 1500
            MSFlexGrid1.TextMatrix(0, 6) = "Code Puk"
            MSFlexGrid1.ColWidth(6) = 1500
            MSFlexGrid1.TextMatrix(0, 7) = "Code Postal"
            MSFlexGrid1.ColWidth(7) = 1500
            MSFlexGrid1.TextMatrix(0, 8) = "Adresse"
            MSFlexGrid1.ColWidth(8) = 3000
 
            MSFlexGrid1.AddItem "", t
            MSFlexGrid1.TextMatrix(t, 1) = rech![nom]
            MSFlexGrid1.TextMatrix(t, 2) = rech![prenom]
            MSFlexGrid1.TextMatrix(t, 3) = rech![cin]
            MSFlexGrid1.TextMatrix(t, 4) = rech![proffession]
            MSFlexGrid1.TextMatrix(t, 5) = rech![jour]
            MSFlexGrid1.TextMatrix(t, 6) = rech![codepuk]
            MSFlexGrid1.TextMatrix(t, 7) = rech![code]
            MSFlexGrid1.TextMatrix(t, 8) = rech![adresse]
            t = t + 1
            rech.MoveNext '<passe a l'enregistrement suivant
            'branchement en debut de While, si rech.EOF = true recommance la boucle
        Wend

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
Set rech = bs.OpenRecordset("select * from wajdi where nom='" & text1.Text & "'")
If rech.EOF Then
    MsgBox "Vérifier le Nom ...", vbCritical + vbOKOnly, "Nom non trouver"
    Else
    If rech![nom] <> text1.Text Then
        MSFlexGrid1.Clear '<= Efface le contenu de la FlexGrid
        MSFlexGrid1.TextMatrix(0, 1) = "Nom"
        MSFlexGrid1.ColWidth(0) = 0
        MSFlexGrid1.ColWidth(1) = 1500
        MSFlexGrid1.TextMatrix(0, 2) = "Prénom"
        MSFlexGrid1.ColWidth(2) = 1500
        MSFlexGrid1.TextMatrix(0, 3) = "C.I.N"
        MSFlexGrid1.ColWidth(3) = 1500
        MSFlexGrid1.TextMatrix(0, 4) = "Proffession"
        MSFlexGrid1.ColWidth(4) = 1500
        MSFlexGrid1.TextMatrix(0, 5) = "Date de naissance"
        MSFlexGrid1.ColWidth(5) = 1500
        MSFlexGrid1.TextMatrix(0, 6) = "Code Puk"
        MSFlexGrid1.ColWidth(6) = 1500
        MSFlexGrid1.TextMatrix(0, 7) = "Code Postal"
        MSFlexGrid1.ColWidth(7) = 1500
        MSFlexGrid1.TextMatrix(0, 8) = "Adresse"
        MSFlexGrid1.ColWidth(8) = 3000
        t = 1
        rech.MoveFirst
        While rech.EOF = False
 
            MSFlexGrid1.AddItem "", t
            MSFlexGrid1.TextMatrix(t, 1) = rech![nom]
            MSFlexGrid1.TextMatrix(t, 2) = rech![prenom]
            MSFlexGrid1.TextMatrix(t, 3) = rech![cin]
            MSFlexGrid1.TextMatrix(t, 4) = rech![proffession]
            MSFlexGrid1.TextMatrix(t, 5) = rech![jour]
            MSFlexGrid1.TextMatrix(t, 6) = rech![codepuk]
            MSFlexGrid1.TextMatrix(t, 7) = rech![code]
            MSFlexGrid1.TextMatrix(t, 8) = rech![adresse]
            t = t + 1
            rech.MoveNext
        Wend
    End If
End If

La solution, si j'ai bien compris ton probléme

**wajdisoft** · 23/07/2009, 18h29

Envoyé par ProgElecT

Pas de Up sur DVP.

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
        While rech.EOF = False
 
            '******* que va-t-il ce passer au second passage ? **************************
            MSFlexGrid1.Clear '<= Efface le contenu de la FlexGrid, c'est-à-dire le texte,
                              'les images et le formatage des cellules.
 
            MSFlexGrid1.TextMatrix(0, 1) = "Nom"
            MSFlexGrid1.ColWidth(0) = 0
            MSFlexGrid1.ColWidth(1) = 1500
            MSFlexGrid1.TextMatrix(0, 2) = "Prénom"
            MSFlexGrid1.ColWidth(2) = 1500
            MSFlexGrid1.TextMatrix(0, 3) = "C.I.N"
            MSFlexGrid1.ColWidth(3) = 1500
            MSFlexGrid1.TextMatrix(0, 4) = "Proffession"
            MSFlexGrid1.ColWidth(4) = 1500
            MSFlexGrid1.TextMatrix(0, 5) = "Date de naissance"
            MSFlexGrid1.ColWidth(5) = 1500
            MSFlexGrid1.TextMatrix(0, 6) = "Code Puk"
            MSFlexGrid1.ColWidth(6) = 1500
            MSFlexGrid1.TextMatrix(0, 7) = "Code Postal"
            MSFlexGrid1.ColWidth(7) = 1500
            MSFlexGrid1.TextMatrix(0, 8) = "Adresse"
            MSFlexGrid1.ColWidth(8) = 3000
 
            MSFlexGrid1.AddItem "", t
            MSFlexGrid1.TextMatrix(t, 1) = rech![nom]
            MSFlexGrid1.TextMatrix(t, 2) = rech![prenom]
            MSFlexGrid1.TextMatrix(t, 3) = rech![cin]
            MSFlexGrid1.TextMatrix(t, 4) = rech![proffession]
            MSFlexGrid1.TextMatrix(t, 5) = rech![jour]
            MSFlexGrid1.TextMatrix(t, 6) = rech![codepuk]
            MSFlexGrid1.TextMatrix(t, 7) = rech![code]
            MSFlexGrid1.TextMatrix(t, 8) = rech![adresse]
            t = t + 1
            rech.MoveNext '<passe a l'enregistrement suivant
            'branchement en debut de While, si rech.EOF = true recommance la boucle
        Wend

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
Set rech = bs.OpenRecordset("select * from wajdi where nom='" & text1.Text & "'")
If rech.EOF Then
    MsgBox "Vérifier le Nom ...", vbCritical + vbOKOnly, "Nom non trouver"
    Else
    If rech![nom] <> text1.Text Then
        MSFlexGrid1.Clear '<= Efface le contenu de la FlexGrid
        MSFlexGrid1.TextMatrix(0, 1) = "Nom"
        MSFlexGrid1.ColWidth(0) = 0
        MSFlexGrid1.ColWidth(1) = 1500
        MSFlexGrid1.TextMatrix(0, 2) = "Prénom"
        MSFlexGrid1.ColWidth(2) = 1500
        MSFlexGrid1.TextMatrix(0, 3) = "C.I.N"
        MSFlexGrid1.ColWidth(3) = 1500
        MSFlexGrid1.TextMatrix(0, 4) = "Proffession"
        MSFlexGrid1.ColWidth(4) = 1500
        MSFlexGrid1.TextMatrix(0, 5) = "Date de naissance"
        MSFlexGrid1.ColWidth(5) = 1500
        MSFlexGrid1.TextMatrix(0, 6) = "Code Puk"
        MSFlexGrid1.ColWidth(6) = 1500
        MSFlexGrid1.TextMatrix(0, 7) = "Code Postal"
        MSFlexGrid1.ColWidth(7) = 1500
        MSFlexGrid1.TextMatrix(0, 8) = "Adresse"
        MSFlexGrid1.ColWidth(8) = 3000
        t = 1
        rech.MoveFirst
        While rech.EOF = False
 
            MSFlexGrid1.AddItem "", t
            MSFlexGrid1.TextMatrix(t, 1) = rech![nom]
            MSFlexGrid1.TextMatrix(t, 2) = rech![prenom]
            MSFlexGrid1.TextMatrix(t, 3) = rech![cin]
            MSFlexGrid1.TextMatrix(t, 4) = rech![proffession]
            MSFlexGrid1.TextMatrix(t, 5) = rech![jour]
            MSFlexGrid1.TextMatrix(t, 6) = rech![codepuk]
            MSFlexGrid1.TextMatrix(t, 7) = rech![code]
            MSFlexGrid1.TextMatrix(t, 8) = rech![adresse]
            t = t + 1
            rech.MoveNext
        Wend
    End If
End If

La solution, si j'ai bien compris ton probléme

---------------

merci frère pour ton aide je trouve la solution il faut que j remplace

MSFlexGrid1.Clear
par
msflexgrid1.rows=1

merci une autre fois

afficher sur msflexgrid un resultat de recherche

VB 6 et antérieur

Discussions similaires

Partager

Partager