Discussion :

[Igmar]

Bonjour,
J'ai un probleme dans mon application, et j ai rien trouvé sur le forum pouvant m'aider.
J'aimerais tester des valeurs d'une base de données, et récupérer toute la ligne correspondante et la charger dans un DatagridView, je pensais cela possible avec une simple requête Sql mais en faite c'es plus compliquer puisque c'est une partit du champs.

Pour aller plus loin : j'ajoute dans ma base de données un champ1 saisie dans une form et ensuite j affiche un DGV avec tous le elements de la table. C'est temporaire comme solution, étant donné que je veu que les éléments que je génére suite au champ1 saisie.

Quelqu'un peut t il m'aider ??

PS:

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Dim cn As New OleDbConnection
                    Dim cmd As New OleDbCommand
                    Dim cbListe As OleDbCommandBuilder
                    Dim request1, val As String
                    val = Mid(Modul.Adr_deb.Text, 1, 3)
                    request1 = "SELECT * FROM Voies "
                    Dim connex As String = "provider = microsoft.jet.oledb.4.0 ;" & _
                    "Data Source= " & "C:\Documents and Settings\stagiaire1\Bureau\Stagiaire1\Base de donnée Pégase\Pégase Test.mdb"
                    cn.ConnectionString = Connexion.Text
                    cn.Open()
                    Try
                        'Connexion BDD
                        ' assure que la MAJ est possible --> c'est le constructeur des ordres SQL
                        ' sur le dataadaptater
                        cbListe = New OleDbCommandBuilder(da)
                        cmd.CommandText = request1
                        cmd.Connection = cn
                        da.SelectCommand = cmd
                        da.Fill(dsVoie, "Voies")
                        dtt = dsVoie.Tables("Voies")
                        'chargement d e la DataTable à partir du DataSet  
 
                        With DataGridView18
                            .DataSource = dtt
                            .AllowUserToResizeColumns = True
                            .Columns(0).Width = 40
                            .Columns(1).Width = 45
                            .Columns(2).Width = 43
                            .Columns(3).Width = 45
                            .Columns(0).HeaderText = "Racks"
                            .Columns(1).HeaderText = "Module"
                            .Columns(2).HeaderText = "Adr"
                            .Columns(3).HeaderText = "Format"
                            .Columns(4).HeaderText = "Txt1"
                            '.Columns(7).HeaderText = "Crit_Txt1"
                            '.Columns(8).HeaderText = "Crit_Txt2"
                            '.Columns(9).HeaderText = "Crit_Txt3" 
                            '.Columns(10).HeaderText = "Crit_Txt4"
                            .Columns(11).HeaderText = "Mnémo"
                            .Columns(12).HeaderText = "Tag"
                        End With
 
                        If Langue2ToolStripMenuItem.Enabled = False Then
                            With DataGridView18
                                .Columns("Voie_txt2").Visible = True
                                .Columns(5).HeaderText = "Txt2"
                            End With
                        ElseIf Langue3ToolStripMenuItem.Enabled = False Then
                            With DataGridView18
                                .Columns("Voie_txt3").Visible = True
                                .Columns(6).HeaderText = "Txt3"
                            End With
                        Else
                            With DataGridView18
                                .Columns("Voie_txt2").Visible = False
                                .Columns("Voie_txt3").Visible = False
                            End With
                        End If
                        Dim dr As DataRow
                        Dim i, j As Integer
                        Dim ValAdrDeb As Integer
                        If ValAdrDeb.ToString IsNot Nothing Then
                            ValAdrDeb = CType(Modul.Adr_deb.Text, Integer)
                        End If
 
                        'Ajout des valeurs ds DGV
                        ' MsgBox("Prefixe=" & ValAdrDeb)
                        For i = 0 To Nbr_voies
                            For j = 0 To 7
                                dr = dsVoie.Tables("Voies").NewRow()
                                dr("Voie_adr") = ValAdrDeb & "." & j
                                dsVoie.Tables("Voies").Rows.Add(dr)
                                i = i + 1
                            Next
                            ValAdrDeb = ValAdrDeb + 1
                        Next
                        DataGridView18.Update()
                        da.Update(dsVoie, "Voies")
                        cn.Close()
                    Catch objExcept

[Igmar]

C'est trouvé !! Merci !!