Discussion :

[sa1956]

Bonjour,

Je débute, je commence par vb.net puis passer a C# (c'est ce qu'on ma conseillé)

J'aimerai programmer en Vb le DtaGridView,
C'est dire :
Définir le nombre de colonnes.
Définir le type de colonnes
par exemple
Col 0 : Image
Col 1 : Texte
Col 2 : Texte
Col 3 : Image
Col 4 : CheckBox

Merci de votre aide
Sa1956

[Juaaah]

Salut, je vais te fournir du code, et tu devras l'analyser, et jouer avec jusqu'à obtenir ton résultat, tu devrais pouvoir t'en sortir avec ceci :

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
Dim dataGridView1 As New DataGridView()
    Sub initDGV()
        Controls.Add(dataGridView1)
        ConfigurerDataGridView()
        addImageTest()
    End Sub
    Private Sub ConfigurerDataGridView()
        ' Ajouter les colonnes au DataGridView
        dataGridView1.Columns.Add(New CustomImageColumn())
        dataGridView1.Columns.Add("ColText1", "Texte 1")
        dataGridView1.Columns.Add("ColText2", "Texte 2")
        dataGridView1.Columns.Add(New CustomImageColumn())
        dataGridView1.Columns.Add(New CustomCheckBoxColumn())
    End Sub
 
    Public Class CustomImageColumn
        Inherits DataGridViewImageColumn
 
        Public Sub New()
            Me.CellTemplate = New CustomImageCell()
        End Sub
    End Class
 
    Public Class CustomImageCell
        Inherits DataGridViewImageCell
    End Class
 
    Public Class CustomCheckBoxColumn
        Inherits DataGridViewCheckBoxColumn
 
        Public Sub New()
            Me.CellTemplate = New CustomCheckBoxCell()
        End Sub
    End Class
 
    Public Class CustomCheckBoxCell
        Inherits DataGridViewCheckBoxCell
    End Class
 
    Sub addImageTest()
 
        Dim rowIndex As Integer = 0 ' Indice de la ligne où vous souhaitez insérer l'image
        Dim columnIndex As Integer = 0 ' Indice de la colonne image
 
        ' Charger l'image depuis un fichier (vous pouvez également charger l'image depuis une ressource, un flux, etc.)
        Dim imageFilePath As String = "C:\Users\gfdgdfgdfgdffg\Desktop\icon.png"
        Dim image As Image = Image.FromFile(imageFilePath)
 
        ' Accéder à la cellule spécifiée dans le DataGridView
        Dim cell As CustomImageCell = DirectCast(dataGridView1.Rows(rowIndex).Cells(columnIndex), CustomImageCell)
 
        ' Affecter l'image à la cellule
        cell.Value = image
    End Sub

++

[sa1956]

Bonjour,

Merci pour votre aide.

Je vais tenter d'appliquer.

Bien a vous
Bonne journée
Sa1956

[sa1956]

Bonjour,

J'ai un problème.

Voici mon code :

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
      Sql = "UPDATE * FROM Elstroem "
      Sql &= " Set Index = " & Lbl_Elstroem_Editer_Index.Text
      Sql &= ", Annee = " & Txt_Elstroem_Editer_Annee.Text
      Sql &= ", Cob = '" & Txt_Elstroem_Editer_Cob.Text & "'"
      Sql &= ", Faciale = '" & Txt_Elstroem_Editer_Faciale.Text & "'"
      Sql &= ", Couleurs = '" & Txt_Elstroem_Editer_Couleur.Text & "'"
      Sql &= ", Papier = '" & Txt_Elstroem_Editer_Papier.Text & "'"
      Sql &= ", Gomme = '" & Txt_Elstroem_Editer_Gomme.Text & "'"
      Sql &= ", Timbre = " & IIf(Chk_Elstroem_Editer_Timbre.Checked = True, 1, 0)
      Sql &= ", Jai1 = " & IIf(Chk_Elstroem_Editer_Pl1.Checked = True, 1, 0)
      Sql &= ", Jai2 = " & IIf(Chk_Elstroem_Editer_Pl2.Checked = True, 1, 0)
      Sql &= ", Jai3 = " & IIf(Chk_Elstroem_Editer_Pl3.Checked = True, 1, 0)
      Sql &= ", Jai4 = " & IIf(Chk_Elstroem_Editer_Pl4.Checked = True, 1, 0)
      Sql &= ", Jai5 = " & IIf(Chk_Elstroem_Editer_Pl5.Checked = True, 1, 0)
      Sql &= ", Jai6 = " & IIf(Chk_Elstroem_Editer_Pl6.Checked = True, 1, 0)
      Sql &= ", Total_Jai = " & Txt_Elstroem_Editer_Pocede.Text
      Sql &= ", Total_PL = " & Txt_Elstroem_Editer_NmbPl.Text
      Sql &= ", CD4 = " & IIf(Chk_Elstroem_Editer_Cd.Checked = True, 1, 0)
      Sql &= ", Fdc = " & IIf(Chk_Elstroem_Editer_Fdc.Checked = True, 1, 0)
      Sql &= ", Bande = " & IIf(Chk_Elstroem_Editer_Bande.Checked = True, 1, 0)
      Sql &= ", Nom_Pl = '" & Txt_Elstroem_Editer_NomsPl.Text & "'"
      Sql &= " WHERE (Index = " & Convert.ToInt16(Lbl_Elstroem_Editer_Index.Text) & ")"

J'ai cette erreur :

System.Runtime.InteropServices.COMException*: 'Erreur de syntaxe dans l'instruction UPDATE.'

Voila ce que contient Sql :

"UPDATE * FROM Elstroem Set
Index = 7,
Annee = 1971,
Cob = '1583',
Faciale = '9F',
Couleurs = 'Brun olive',
Papier = 'P3',
Gomme = 'Papier phosphorescent (W1), Gomme arabique brillante',
Timbre = 1,
Jai1 = 1,
Jai2 = 1,
Jai3 = 1,
Jai4 = 1,
Jai5 = 0,
Jai6 = 0,
Total_Jai = 4,
Total_PL = 4,
CD4 = 1,
Fdc = 1,
Bande = 1,
Nom_Pl = '1583-PL1.PNG;1583-PL2.PNG;1583-PL3.PNG;1583-PL4.PNG'
WHERE (Index = 7)"

Je ne vois pas ou il y a une erreur !!!!

Merci a l'avance de votre aide

Bien a vous
Sa1956

[licardentaistor]

c'est la syntaxe de la requête qui n'est pas bonne, UPDATE Elstroem SET .....

[popo]

licardentaistor a raison.

Je suggère également de passer par une requête paramétrée pour éviter d'autres problèmes plus graves.