Aidez moi à afficher les données de ma DB mysql Après Recherche par ID sans

Question

Imports MySql.Data.MySqlClient
Imports System.IO
Public Class Etudiant

Private Sub BtnRechercher_Click(sender As Object, e As EventArgs) Handles BtnRechercher.Click
        With Me
            .LoadOption()
            Con.Open()
            Dim _DateNaiss As Date = Convert.ToDateTime(TbxDateNaissance.Text)
            Cmd = New MySqlCommand("SELECT Image, EID,Nom, Prenom,Sexe, DateNaiss,LieuNaiss,Telephone,Email,Adresse, OptionEtudiant, Vacation FROM Tbl_Etudiant  WHERE EID = '" & TbxEID.Text & "'", Con)
            Read = Cmd.ExecuteReader
            Read.Read()
            If Read.HasRows Then
                Dim Len As Long = Read.GetBytes(0, 0, Nothing, 0, 0)
                Dim Arr(CInt(Len)) As Byte
                Read.GetBytes(0, 0, Arr, 0, CInt(Len))
                Dim MS As New MemoryStream(Arr)
                Dim Bitmap As New Bitmap(MS)
                .PictureBoxImageEtudiant.Image = Bitmap

.LblEID.Text = Read.Item("EID").ToString
                .TbxNom.Text = Read.Item("Nom").ToString
                .TbxPrenom.Text = Read.Item("Prenom").ToString
                If ListeDesEtudiants.DgvEtudiant.SelectedRows(0).Cells(4).Value = "Masculin" Then
                    .RadioButtonMasculin.Checked = True
                End If
                If ListeDesEtudiants.DgvEtudiant.SelectedRows(0).Cells(4).Value = "Féminin" Then
                    .RadioButtonFeminin.Checked = True
                End If
                .TbxDateNaissance.Text = Read.Item("DateNaiss").ToString
                .TbxLieuNaissance.Text = Read.Item("LieuNaiss").ToString
                .TbxTel.Text = Read.Item("Telephone").ToString
                .TbxEmail.Text = Read.Item("Email").ToString
                .TbxAdresse.Text = Read.Item("Adresse").ToString
                .CbxOption.Text = Read.Item("OptionEtudiant").ToString
                .CbxVacation.Text = Read.Item("Vacation").ToString
            End If
            Read.Dispose()
            Con.Close()
            .BtnEnregistrer.Visible = False
            .BtnModifier.Visible = True
            .ShowDialog()
        End With
End Class
    End Sub

Roosnap · Answer

https://img-19.ccm2.net/kKHvq_YeQP8YXX67eGNq2pHCHjk=/440x/0da63bf13311434ba732106831fed277/ccm-ugc/Db_Universite.png

vb95 · Answer

Bonjour
Pourquoi ouvrir un nouveau message alors que tu pouvais répondre au message d'origine ?
Si tout le monde fait comme vous le forum deviendrait un vrai bazar .  
Le bouton "Répondre" n'est pas là pour faire joli . 
C'est comme le téléphone . Pour converser avec ton interlocuteur tu ne raccroches pas et tu le rappelles : tu lui réponds directement dans le même appel téléphonique .
Maintenant ton code
1) Regarde les lignes 44 et 45 : cela te paraît logique l'ordre de ces lignes ?
2) Aux lignes 10 et 11 les 2 variables Cmd et Read ne sont pas dimensionnées .
3) Pas judicieux d'appeler une variable avec le même nom qu'une méthode à la ligne 12 . Risque de confusion .
4) Toutes les syntaxes de ce type ( Read.Item("Adresse") ) sont incorrectes .
5) With Me est inutile
6) La ligne 9 est inutile : tu charges la date de naissance depuis la base à la ligne 30
7) Pour le RadioButton pour le sexe pourquoi ne pas se servir de la colonne correspondante dans la base de données au lieu d'aller chercher le contenu d'une DataGridview ?
8) Au lieu de charger les images dans la base mets les dans un répertoire à part et charge dans la base le chemin complet (répertoire et fichier ) de cette image en donnant un nom différent à chaque image . Cela évitera d'alourdir la base .

Si tu fais des corrections à ton code utilise le bouton "Répondre" en n'oubliant pas les balises de codes . 

Je demande la suppression de ton message précédent .

vb95 · Answer

bonjour
As-tu corrigé les autres points ?
Si oui montre nous le code modifié .
Merci

Roosnap · Answer

Sans With Me il me genere  21 erreurs

vb95 · Answer

Bonsoir
Me désigne la Form courante

With Me
    .Textbox1.Text = "bonjour"
End With
 

code équivalent

Textbox1.Text = "bonjour"   ' sans le point devant Textbox1

Aidez moi à afficher les données de ma DB mysql Après Recherche par ID sans

5 réponses

Votre réponse

Discussions similaires