Recuperation de données d'1 datagridview

Version imprimable

22/08/2007, 13h44
hajarussa

Recuperation de données d'1 datagridview

salut tout le monde,

je developpe un projet en vb.net et j'ai un petit souci avec la selection et recuperation de données à partir d'un datagridview .
Donc , dans une forme j'ai un datagridview et des texbox , initialement mes objets sont vides et quand je click sur un bouton afficher , j'affiche les données de ma BD dans le datagridview , alors mon pb c'est comment aprés avoir selectionner une ligne du datagridview afficher les informations correspendants dans les texbox.

Merci de m'aider
22/08/2007, 13h49
CSharpMan

Slt avec les index des Rows de ton datagrid
22/08/2007, 13h57
JennBBd

Bonjour

Sauf erreur, qqchose dans ce gout-la :

textbox1.text = DataGridView1.SelectedRows(0).Cells(i).Value
22/08/2007, 14h20
CSharpMan

TextBox1.Text = CType(DataGrid1(1, 1), String)

tu recupere la ligne 1 de la 1 collone
22/08/2007, 14h39
hajarussa

Slt ,
Merci CSharpMan,

Citation:

TextBox1.Text = CType(DataGrid1(1, 1), String)

Je ne sais pas pourquoi ça ne marche pas ,j'ai fait :
id1.Text = CType(Dg(1, 1), String) et ça m'affiche le msg d'erreur suivant :

Citation:

Value of type 'System.Windows.Forms.DataGridViewCell' cannot be converted to 'String'.
22/08/2007, 14h50
CSharpMan

rajoute cette ligne en dessous

DataGrid1(1, 1) = TextBox1.Text
22/08/2007, 14h54
CSharpMan

A mon avis tu dois avoir un datagridview est non un datagrid c'est pour cela que sa ne finctionne pas

il faut utiliser l'évenement datagridview_CellClick, ensuite déterminer quel valeur l'utilisateur à cliqué :

Code:

1
2
3
4
5
6
 
If e.ColumnIndex = -1 OrElse e.RowIndex = -1 Then Exit Sub
Dim nom_col As String = datagridview.Columns(e.ColumnIndex).Name
 
Dim monchamp As Integer = CInt(datagridview.Item(nom_col, e.RowIndex).Value)
monchamptext.Text = monchamp

Salut ,
Excusez moi je ne me suis pas bien exprimée, voilà en fait il s'agit d'une fonction de recherche que je developpe sous vb.net 2005, je demande le nom et /ou le prenom et j'affiche les personnes correspendants à ma recherche dans un datagridview , mon souci c'est que je veux selectionner une ligne de mon datagridview et avoir les informations dans des texBox. J'ai essayé ce que vous m'avez proposé mais je suis tjr bloquée8O.

Voici mon code

Code:

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
 Private Sub bt_search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_search.Click
 
 
        Dim NomRecherche As String
        Dim PrenomRecherche As String
        Dim Matable As DataTable
        Matable = DS_cabinet.Tables("_tbPATIENT")
        Dim CountItem As Integer
        Dim dv As New DataView(Me.DS_cabinet.Tables("_tbPATIENT")) 'on met une table dans le dataview
        NomRecherche = InputBox("Veuillez entrer le nom recherché", "Recherche")
        PrenomRecherche = InputBox("Veuillez entrer le prénom recherché", "Recherche")
        If NomRecherche = "" And PrenomRecherche = "" Then
            MsgBox("veuillez entrer un nom et/ou un prenom à recherche SVP")
            'definition de notre table  
        Else
            If NomRecherche = "" Then
                dv.RowFilter = "prenom like'*" & PrenomRecherche & "*'"
            ElseIf PrenomRecherche = "" Then
                dv.RowFilter = "nom like'*" & NomRecherche & "*'"
            Else
                dv.RowFilter = "nom like'*" & NomRecherche & "*' AND prenom like'*" & PrenomRecherche & "*'"
            End If
            CountItem = dv.Count
            dv.Sort = "NOM,PRENOM,AGE "  'on trie  sur le champ Nom en ordre décroissant (ASC pour un tri croissant).
            dv.RowFilter = "nom like'*" & NomRecherche & "*' AND prenom like'*" & PrenomRecherche & "*'"
            Dg.DataSource = dv
        End If
        If CountItem > 0 Then
            id1.Text = dv.Item(0)(0)
            n1.Text = dv.Item(0)(1)
            p1.Text = dv.Item(0)(2)
            s1.Text = dv.Item(0)(3)
            a1.Text = dv.Item(0)(4)
            pr1.Text = dv.Item(0)(5)
            adr1.Text = dv.Item(0)(6)
            tel1.Text = dv.Item(0)(7)
            m1.Text = dv.Item(0)(8)
 
        Else : MsgBox("Inexistant")
        End If
 
    End Sub

Merci de m'aider

Salut ,
Merci tt le monde ,

Citation:

il faut utiliser l'évenement datagridview_CellClick, ensuite déterminer quel valeur l'utilisateur à cliqué :
Code:

1 2 3 4 5 If e.ColumnIndex = -1 OrElse e.RowIndex = -1 Then Exit Sub Dim nom_col As String = datagridview.Columns(e.ColumnIndex).Name Dim monchamp As string = Cstr(datagridview.Item(nom_col, e.RowIndex).Value) monchamptext.Text = monchamp
Merci Morsi , ça marche juste au niveau du champ selectioné .
Mon pb c' que je veux selectionner toute une ligne et non seulement un champ ou si je selectionne seulement un champ, recuperer ttes les valeurs de la lignes dans des texBoxs.
Merci

30/08/2007, 02h25
hajarussa

Salut,
Enfin voilà la solution à mon pb si ça vs interesse
'pour selectionner tte la ligne du datagridview
mondatagridview.SelectionMode = DataGridViewSelectionMode.FullRowSelect
'pour attribuer chaque colonne à son texbox correspondant
Dim s As String = mondatagridview.Rows(e.RowIndex).Cells(0).Value
id.Text = s
Dim k As String = mondatagridview.Rows(e.RowIndex).Cells(1).Value
nom.Text = k
etc...

Merci:yaisse2: