BC42104 La variable 'img' est utilisée avant qu'une valeur ne lui soit affectée

Question

Bonjour,
J'espère que vous aller bien,
Si vous me permettez j'ai un problème avec l'avertissement "BC42104 La variable 'img' est utilisée avant qu'une valeur ne lui soit affectée" dans mon code, chose qui m'empêche d'implémenter des données dans mon application sur visual studio 2019.
Je demande votre aide.
Merci d'avance.

Ci-joint mon code : 
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

If editMode Then

Dim img() As Byte

Try
                Dim mstream As New System.IO.MemoryStream
                PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png)
                img = mstream.GetBuffer()
                mstream.Close()
            Catch ex As Exception

End Try

Try
                Cmd = New NpgsqlCommand("Update bv SET nom=@nom , superficie = @area , carte = @carte  WHERE id =" + CStr(id) + " ;", Conn)
                Cmd.Parameters.Add(New NpgsqlParameter("@nom", DbType.String)).Value = CStr(TextBox1.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@area", DbType.Decimal)).Value = CDec(TextBox2.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@carte", DbType.Binary)).Value = img

vb95 · Answer

Bonjour 
Initialise la variable avec Nothing
Par contre 2 Try Catch  dans la même procédure ? Ce n'est guère recommandé

vb95 · Answer

Sur quelle ligne se produit l'erreur ?
autre chose : la déclaration de variable serait mieux placée dans le Try Catch avec 1 seul Try Catch

If editMode Then
           Try
                Dim img() As Byte = nothing
                Dim mstream As New System.IO.MemoryStream
                PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png)
                img = mstream.GetBuffer()
                mstream.Close()
                Cmd = New NpgsqlCommand("Update bv SET nom=@nom , superficie = @area , carte = @carte  WHERE id =" + CStr(id) + " ;", Conn)
                Cmd.Parameters.Add(New NpgsqlParameter("@nom", DbType.String)).Value = CStr(TextBox1.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@area", DbType.Decimal)).Value = CDec(TextBox2.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@carte", DbType.Binary)).Value = img
'  suite du code 
           Catch ex As Exception

End Try
End If

Whismeril · Answer

Bonjour 

Quand on met try catch et qu’il y a une erreur, il faut la traiter  

Là tu ne traites pas, donc si tu as une erreur dans ton premier bloc (et il y en a probablement une) la variable img n’est pas affectée, comme tu ne traites pas l’erreur, quand tu arrives dans le second bloc, img ne vaut rien.

Utilisateur anonyme · Answer

Bonjour,
S'il vous plait comment je peux traiter l'erreur ?
Merci d'avance.
Voici la totalité du script :
Imports Npgsql
Imports NpgsqlTypes
Imports System.IO
Imports System.Text.RegularExpressions

Public Class Addsbv
    Public id As Integer
    Public id_sbv As Integer
    Public surface As Decimal
    Public nom As String
    Public imgSelected() As Byte
    Public editMode As Boolean

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_eng.Click
        If editMode Then
            Dim img() As Byte = Nothing
            Try
                Dim mstream As New System.IO.MemoryStream
                PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png)
                img = mstream.GetBuffer()
                mstream.Close()

Cmd = New NpgsqlCommand("Update sbv SET nom=@nom , surface = @area , carte = @carte  WHERE id =" + CStr(id_sbv) + " ;", Conn)
                Cmd.Parameters.Add(New NpgsqlParameter("@nom", DbType.String)).Value = CStr(tb_nom.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@area", DbType.Decimal)).Value = CDec(tb_surface.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@carte", DbType.Binary)).Value = img

Conn.Open()
                Cmd.ExecuteNonQuery()
                MsgBox("SBV modifier !")
                Conn.Close()
                Me.Close()

Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Erreur")
                Exit Sub
            Finally
                Conn.Close()
            End Try
        Else
            Dim img() As Byte = Nothing

Try
                Dim mstream As New System.IO.MemoryStream
                PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png)
                img = mstream.GetBuffer()
                mstream.Close()

Cmd = New NpgsqlCommand("INSERT INTO sbv(nom,surface,carte , id_bv) values (@nom , @area , @carte , " & CStr(id) & ")", Conn)
                Cmd.Parameters.Add(New NpgsqlParameter("@nom", DbType.String)).Value = CStr(tb_nom.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@area", DbType.Decimal)).Value = CDec(tb_surface.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@carte", DbType.Binary)).Value = img
                Conn.Open()
                Cmd.ExecuteNonQuery()
                MsgBox("SBV Ajouté !")
                Conn.Close()
                Me.Close()

Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Erreur")
                Exit Sub
            Finally
                Conn.Close()
            End Try

End If
    End Sub

Private Sub PictureBox1_DoubleClick(sender As Object, e As EventArgs) Handles PictureBox1.DoubleClick
        OpenFileDialog1.FileName = Nothing
        OpenFileDialog1.ShowDialog()
        PictureBox1.ImageLocation = OpenFileDialog1.FileName
    End Sub

Private Sub Addsbv_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If editMode Then
            btn_eng.Text = "Modifier"
            tb_nom.Text = nom
            tb_surface.Text = surface
            Try
                Dim ms As New MemoryStream(imgSelected)
                PictureBox1.Image = Image.FromStream(ms)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub
End Class

vb95 · Answer

Bonjour 
Ce bout de code fonctionne sans problème chez moi et img contient bien un tableau de bytes une fois ce code exécuté .

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim img As Byte()
        Dim mstream As New System.IO.MemoryStream
        PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png)
        img = mstream.GetBuffer()
        mstream.Close()

End Sub

End Class


J'en conclus donc que le souci vient de NpgsqlParameter qui n'accepterait donc pas le DbType.Binary .
D'ailleurs on voit que DbType.String et DbType.Decimal sont sur en bleu : ce qui signifie qu'ils sont bien reconnus alors que DbType.Binary ne l'est pas !

Utilisateur anonyme · Answer

Bonjour,
Je vous remercie infiniment pour votre aide précieuse, 
Si vous me permettez comment je peux régler ce problème avec  NpgsqlParameter.
Merci d'avance.

vb95 · Answer

Bonsoir 
Je ne connais pas Npgsql mais en fouillant sur le Net j'ai vu que le type Binary existe avec NpgsqlTypes . 
Remplace tous les DbType par NpgsqlTypes
On ne sait jamais !

Utilisateur anonyme · Answer

Bonsoir,
J'ai remplacé les "DbTypes" par "NpgsqlTypes", mais malheureusement aucune résultat.
Une autre erreur se réclame c'est que le type de variable n'est pas un membre de "NpgsqlTypes".

Voici le script : 

Imports Npgsql
Imports NpgsqlTypes
Imports System.IO
Imports System.Text.RegularExpressions

Public Class Addsbv
    Public id As Integer
    Public id_sbv As Integer
    Public surface As Decimal
    Public nom As String
    Public imgSelected() As Byte
    Public editMode As Boolean

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_eng.Click
        If editMode Then
            Dim img() As Byte = Nothing
            Try
                Dim mstream As New System.IO.MemoryStream
                PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png)
                img = mstream.GetBuffer()
                mstream.Close()

Cmd = New NpgsqlCommand("Update sbv SET nom=@nom , surface = @area , carte = @carte  WHERE id =" + CStr(id_sbv) + " ;", Conn)
                Cmd.Parameters.Add(New NpgsqlParameter("@nom", NpgsqlTypes.String)).Value = CStr(tb_nom.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@area", NpgsqlTypes.Decimal)).Value = CDec(tb_surface.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@carte", NpgsqlTypes.Binary)).Value = img

Conn.Open()
                Cmd.ExecuteNonQuery()
                MsgBox("SBV modifier !")
                Conn.Close()
                Me.Close()

Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Erreur")
                Exit Sub
            Finally
                Conn.Close()
            End Try
        Else
            Dim img() As Byte = Nothing
            Try
                Dim mstream As New System.IO.MemoryStream
                PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png)
                img = mstream.GetBuffer()
                mstream.Close()

Cmd = New NpgsqlCommand("INSERT INTO sbv(nom,surface,carte , id_bv) values (@nom , @area , @carte , " & CStr(id) & ")", Conn)
                Cmd.Parameters.Add(New NpgsqlParameter("@nom", NpgsqlTypes.String)).Value = CStr(tb_nom.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@area", NpgsqlTypes.Decimal)).Value = CDec(tb_surface.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@carte", NpgsqlTypes.Binary)).Value = img
                Conn.Open()
                Cmd.ExecuteNonQuery()
                MsgBox("SBV Ajouté !")
                Conn.Close()
                Me.Close()

Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Erreur")
                Exit Sub
            Finally
                Conn.Close()
            End Try

End If
    End Sub

Private Sub PictureBox1_DoubleClick(sender As Object, e As EventArgs) Handles PictureBox1.DoubleClick
        OpenFileDialog1.FileName = Nothing
        OpenFileDialog1.ShowDialog()
        PictureBox1.ImageLocation = OpenFileDialog1.FileName
    End Sub

Private Sub Addsbv_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If editMode Then
            btn_eng.Text = "Modifier"
            tb_nom.Text = nom
            tb_surface.Text = surface
            Try
                Dim ms As New MemoryStream(imgSelected)
                PictureBox1.Image = Image.FromStream(ms)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub
End Class

vb95 · Answer

Dommage que cela ne fonctionne pas
Reprenons le code : c'est exactement le code d'origine mais je l'ai optimisé . 
Par contre j'ai mis une apostrophe devant l'importation de NpgsqlTypes à la seconde ligne .
Peux-tu me dire si les 6 lignes avec DbType produisent ou non une erreur ?
Si oui enlève l'apostrophe ( cette manipulation nous prouvera que c'est bien DbType.Binary qui pose problème
En fouillant sur le Net j'ai vu que les tableaux de bytes sont du type DbType.Bytea . Je l'ai mis à la place de DbType.Binary dans le code
Si cela ne fonctionne pas il va falloir trouver un autre moyen de stocker les bytes de l'image

Autre chose : dans ton code on voit des MsgBox, Cstr, etc.... Ce sont des mots clés de Visual Basic 6 qui sont gardés par VB Net pour compatibilité . C'est à éviter : si on fait du VB Net autant faire du vrai VB Net
Pour ceci on va dans le menu Projet - Propriétés de "NomduProjet" 
On arrive sur cet interface


On ouvre alors References et on arrive là-dessus


Reste à décocher Microsoft Visual Basic
J'ai fait les quelques corrections pour avoir du vrai VB Net

Imports Npgsql
'Imports NpgsqlTypes
Imports System.IO
Imports System.Text.RegularExpressions

Public Class Addsbv
    Public id As Integer
    Public id_sbv As Integer
    Public surface As Decimal
    Public nom As String
    Public imgSelected() As Byte
    Public editMode As Boolean

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_eng.Click
       
         Try                
                Dim img() As Byte  
                Dim mstream As New MemoryStream
                PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png)
                img = mstream.GetBuffer()
                mstream.Close()
                If editMode Then
                        Cmd = New NpgsqlCommand("Update sbv SET nom=@nom , surface = @area , carte = @carte  WHERE id =" + id_sbv.ToString + " ;", Conn)
                        Cmd.Parameters.Add(New NpgsqlParameter("@nom", DbType.String)).Value = tb_nom.Text
                        Cmd.Parameters.Add(New NpgsqlParameter("@area", DbType.Decimal)).Value = ConVert.ToDecimal(tb_surface.Text)
                        Cmd.Parameters.Add(New NpgsqlParameter("@carte", DbType.Bytea)).Value = img
                        Conn.Open()
                        Cmd.ExecuteNonQuery()
                        MessageBox.Show("SBV modifier !")
                Else
                       Cmd = New NpgsqlCommand("INSERT INTO sbv(nom,surface,carte , id_bv) values (@nom , @area , @carte , " & id.ToString & ")", Conn)
                       Cmd.Parameters.Add(New NpgsqlParameter("@nom", DbType.String)).Value = tb_nom.Text
                       Cmd.Parameters.Add(New NpgsqlParameter("@area", DbType.Decimal)).Value = Convert.ToDecimal(tb_surface.Text)
                       Cmd.Parameters.Add(New NpgsqlParameter("@carte", DbType.Bytea)).Value = img
                       Conn.Open()
                       Cmd.ExecuteNonQuery()
                       MessageBox.Show("SBV Ajouté !")
              End If
       Catch ex As Exception
             MessageBox.Show(ex.Message, "Erreur",MessageBoxButtons.OK, MessageBoxIcon.Warning)
             Exit Sub
        Finally
             Conn.Close()
             Me.Close()
        End Try

End Sub

Private Sub PictureBox1_DoubleClick(sender As Object, e As EventArgs) Handles PictureBox1.DoubleClick
        OpenFileDialog1.FileName = Nothing
        OpenFileDialog1.ShowDialog()
        PictureBox1.ImageLocation = OpenFileDialog1.FileName
    End Sub

Private Sub Addsbv_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If editMode Then
            btn_eng.Text = "Modifier"
            tb_nom.Text = nom
            tb_surface.Text = surface
            Try
                Dim ms As New MemoryStream(imgSelected)
                PictureBox1.Image = Image.FromStream(ms)
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Erreur",MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End Try
        End If
    End Sub
End Class

Utilisateur anonyme · Answer

Bonsoir,
Je tien à vous remercie pleinement pour les efforts que vous fournissez
J'ai décoché Microsoft Visual Basic du référence.
Les seules lignes qui produisent un erreur sont ceux qui contiennent "DbType.Bytea", donc le même problème qui se produit.
S'il vous plait comment alors on peut trouver un autre moyen de stocker les bytes de l'image ?
Je vous remercie très sincèrement.

Utilisateur anonyme · Answer

Bonsoir,
J'ai des petites images à implémenter de format png, ce sont des cartes des bassins versants et de leurs sous bassins.
Est ce que je peux recopier le code que vous m'avez donné pour tous les séquences là où je doit implémenter des images ?
J'apprécie beaucoup le temps que vous m'avez consacré, je vous remercie très sincèrement.

Utilisateur anonyme · Answer

S'il vous plait, je m'excuse pour ce dérangement mais j'ai pas saisie comment je dois faire la conversion inverse pour lire l'image dans la base.
En effet, j'ai essayé le code mais lorsque j'ajoute la carte, elle ne s'affiche pas.
L'avertissement suivant s'affiche :

Merci d'avance.

Utilisateur anonyme · Answer

Bonsoir,
Pour la première question j'utilise PostgreSql et je ne trouve pas le type string dans les choix de déclaration est ce que je peux utiliser le type char ?
Puis je pense que la partie du code pour afficher la carte me manque.
Pouvez vous m'aidez s'il vous plait.
Merci d'avance.

Utilisateur anonyme · Answer

Bonjour,
Hier j'ai eu un grand problème que j'ai pas pu le discuter avec vous, j'ai supprimé la table carte de la base de données par accident, puis j'ai créé une nouvelle table avec les critères que vous m'avez décrit mais il m'affiche que la relation carte n'existe plus. Puisque j'utilise PostgreSql 12.
Maintenant je suis perturbé et je ne sais pas qu'est que je dois faire.
Il me reste un petit espoir en vous si vous pouvez m'aider s'il vous plait.
Je vous remercie très sincèrement.

vb95 · Answer

Bonjour  !
Cela tombe mal car les bases de données ce n'est pas mon domaine de prédilection et de plus je ne connais point PostgreSql du tout . Toutes les informations que je vous ai données je les ai trouvées sur le Net en fouillant .

Utilisateur anonyme · Answer

Bonjour,
je vous remercie infiniment pour votre aide.
Cordialement.

Whismeril · Answer

Bonjour

je n'ai pas pu revenir sur ce sujet hier en raison du réseau aléatoire là où j'étais.
Et VB95 faisais ça très bien (salut copain).
Je n'ai pas plus de compétence que lui en bases de données.

Cependant, je peux répondre à cette question, qui je crois est restée en suspend
 
S'il vous plait comment je peux traiter l'erreur ?
Déjà 2 blocs try/catch à la suite n'est pas une bonne idée, il vaut mieux regrouper, comme tu l'as fait.
La première chose à faire est de mettre un messageBox comme tu l'as fait, aussi.
Si l'erreur est systématique, il faut en trouver la raison et la corriger.
Si c'est une erreur récurrente, si on peut l'éviter c'est mieux, par exemple si tu dois ouvrir un fichier sur un réseau, il faut mieux vérifier avant que le fichier existe que de traiter une exception "fichier introuvable".
Si on ne peut pas l'éviter, il peut être utile de faire un bloc catch spécifique à ce type d'erreur. Par exemple, ce fichier y'a un programme qui l'écrit quand il veut et toi tu veux le lire toute les heures. Il est possible que tu essayes de lire pendant l'écriture et ton accès est bloqué. Si tu fais un bloc catch pour cette erreur, tu peux lancer un timer de 5 secondes qui fera retenter la lecture.

Je voulais aussi rebondir sur cet excellent conseil de VB95 Mieux vaut le copier qu'une fois dans un sous-programme et l'appeler lorsque l'on en a besoin .
Plus qu'un conseil cela devrait être une "loi" pour tout codeur.
Si tu dois écrire 2 fois le même code, c'est que tu as mal codé.
En effet, s'il y a une correction ou une évolution, il faudra l'implémentée autant de fois que tu as dupliqué le code.

Rien que là (regarde les commentaires à partir de Else)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_eng.Click
        If editMode Then
            Dim img() As Byte = Nothing
            Try
                Dim mstream As New System.IO.MemoryStream
                PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png)
                img = mstream.GetBuffer()
                mstream.Close()

Cmd = New NpgsqlCommand("Update sbv SET nom=@nom , surface = @area , carte = @carte  WHERE id =" + CStr(id_sbv) + " ;", Conn)
                Cmd.Parameters.Add(New NpgsqlParameter("@nom", NpgsqlTypes.String)).Value = CStr(tb_nom.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@area", NpgsqlTypes.Decimal)).Value = CDec(tb_surface.Text)
                Cmd.Parameters.Add(New NpgsqlParameter("@carte", NpgsqlTypes.Binary)).Value = img

Conn.Open()
                Cmd.ExecuteNonQuery()
                MsgBox("SBV modifier !")
                Conn.Close()
                Me.Close()

Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Erreur")
                Exit Sub
            Finally
                Conn.Close()
            End Try
        Else
            Dim img() As Byte = Nothing  'ligne dupliquée
            Try  'ligne dupliquée
                Dim mstream As New System.IO.MemoryStream  'ligne dupliquée
                PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png)  'ligne dupliquée
                img = mstream.GetBuffer()  'ligne dupliquée
                mstream.Close()  'ligne dupliquée

Cmd = New NpgsqlCommand("INSERT INTO sbv(nom,surface,carte , id_bv) values (@nom , @area , @carte , " & CStr(id) & ")", Conn)
                Cmd.Parameters.Add(New NpgsqlParameter("@nom", NpgsqlTypes.String)).Value = CStr(tb_nom.Text)  'ligne dupliquée
                Cmd.Parameters.Add(New NpgsqlParameter("@area", NpgsqlTypes.Decimal)).Value = CDec(tb_surface.Text)  'ligne dupliquée
                Cmd.Parameters.Add(New NpgsqlParameter("@carte", NpgsqlTypes.Binary)).Value = img  'ligne dupliquée
                Conn.Open()  'ligne dupliquée
                Cmd.ExecuteNonQuery()
                MsgBox("SBV Ajouté !")
                Conn.Close()  'ligne dupliquée
                Me.Close()  'ligne dupliquée

Catch ex As Exception  'ligne dupliquée
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Erreur")  'ligne dupliquée
                Exit Sub  'ligne dupliquée
            Finally  'ligne dupliquée
                Conn.Close()  'ligne dupliquée
            End Try  'ligne dupliquée

End If
    End Sub

Sur 20 lignes, 2 ne sont pas dupiquées, et encore elle sont très proches.

VB95 a déjà condensé dans son message 15
https://codes-sources.commentcamarche.net/forum/affich-10101483-bc42104-la-variable-img-est-utilisee-avant-qu-une-valeur-ne-lui-soit-affectee#15 , mais on peut réduire encore plus

Try
            Dim StringImage As String
            Dim img As Byte()
            Dim mstream As New MemoryStream
            PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png)
            img = mstream.GetBuffer() ' les bytes de l'image
            For i = 0 To img.Length - 1
                StringImage = StringImage & img(i).ToString("X2") ' on convertit chaque byte en 2 caractères hexadécimaux
            Next
            
            Dim leMessage As String = "SBV modifier !"
            mstream.Close()
            If editMode Then
                Cmd = New NpgsqlCommand("Update sbv SET nom=@nom , surface = @area , carte = @carte  WHERE id =" + id_sbv.ToString + " ;", Conn)
            Else
                Cmd = New NpgsqlCommand("INSERT INTO sbv(nom,surface,carte , id_bv) values (@nom , @area , @carte , " & id.ToString & ")", Conn)
                leMessage As String = "SBV Ajouté !"
            End If

Cmd.Parameters.Add(New NpgsqlParameter("@nom", DbType.String)).Value = tb_nom.Text
            Cmd.Parameters.Add(New NpgsqlParameter("@area", DbType.Decimal)).Value = Convert.ToDecimal(tb_surface.Text)
            Cmd.Parameters.Add(New NpgsqlParameter("@carte", DbType.String)).Value = Stringimage
            Conn.Open()
            Cmd.ExecuteNonQuery()
            MessageBox.Show(leMessage)

Catch ex As Exception
            MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        Finally
            Conn.Close()
            Me.Close()
        End Try

Utilisateur anonyme · Answer

Bonjour
Merci beaucoup pour votre aide, mais mon problème reste le même : mes cartes ne s'affichent pas lorsqu'elles sont ajoutées.
Merci d'avance.

Utilisateur anonyme · Answer

Bonsoir,
Oui vous avez raison quand j'enregistre une nouvelle carte, ne s'ajoute pas à la base, ainsi que la carte est affichée dans la Picturebox1 avant son enregistrement.
Quand je reviens à la base dans la table carte je ne trouve pas de carte, la table des cartes (avec son nom, son aera et sa carte ( les 3 champs)) ne s'affiche pas dans l'écran.
pouvez vous m'aider afin que je puisse les ajouter à la base.

Mon niveau de programmation est débutant et c'est mon premier projet dans le cadre du cours de conception et gestion de base de données.

Merci d'avance.

BC42104 La variable 'img' est utilisée avant qu'une valeur ne lui soit affectée

19 réponses

Votre réponse