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.

[sa1956]

Bonjour,

Merci de votre réponse, je vais corriger

Je pense que j'ai déjà modifier cette ligne de code.

L'erreur est toujours la !!!

Je vais vérifier ...... c'est exact, ligne modifiée, mais toujours l'erreur.

Bonne journee
Sa1956

[licardentaistor]

c'est forcément une autre erreur du coup, mais laquelle ?

[sa1956]

Pour plus de detail.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
      Try
         Rset.Close()
         Fichier_Data.Close()
      Catch ex As Exception
      End Try
      Fichier_Data.Open("Provider = Microsoft.ACE.OLEDB.12.0;Data Source =" & Chemin_Fichier & ";Persist Security Info=False")
      Rset.Open(Sql, Fichier_Data) ' c'est a cette ligne que l'erreur se produit
 
      TabCntl.SelectTab(0)

Je sais c'est une vielle tech.

[licardentaistor]

oui mais donne nous le détail de l'erreur.

[sa1956]

Voila

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

[licardentaistor]

et quel est la requête exécutée au moment de l'erreur ?

[sa1956]

l'exemple de l'Update, voici le 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) & ")"

[sa1956]

c'est le mauvais 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 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) & ")"

voila le bon, enfin ma derniere version !!

[licardentaistor]

potentiellement il manque des quotes pour les colonnes textes, on ne sait pas les paramètres qui sont passés au moment de l'erreur ...

[sa1956]

Voila le résultat(contenu de la variable Sql, décomposée manuellement)

"UPDATE 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)"

[licardentaistor]

pourquoi tu mets à jour ton Index alors qu'il est censé te garantir l'unicité de la ligne que tu mets à jour si c'est le cas ...

[sa1956]

Vus les erreurs que j'ai eu, je pensée mettre toutes les zones dans l'Update, pour éviter les erreurs mais rien n'as changé

[licardentaistor]

et si tu lances la requête directement dans Access ça dit quoi?

[sa1956]

ca j'ai pas essayer. je vais le faire cette après-midi