Problème pour mettre à jour mon datagridview apres un Update.

**jacko842** · 14/04/2010, 20h53

Bonjour donc j ai remplis un datagridview a partir d'un dataset:

Code :

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

1
2
3
4
5
6
 
 
dta.Fill(dts, str_table)
conn.Close()
dtgv_rech.DataSource = dts 
dtgv_rech.DataMember = str_table

Ensuite je fais un update sur une autre form:

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
 
Dim int_id_cp As Integer = 0
 
 
 
        int_id_cp = FONC_RECH_ID_CP(txt_localite_ajout.Text, int_cp) '//Contient l'id du code postal
 
        If cb_type.Visible = True Then '//Coiffeur
 
            int_id_rech_coiffeur = dts.Tables(str_table).Rows(int_row).Item(0).ToString() '//Id du coiffeur
            Call PROC_ENR_PHOTO("coiff") '//Enregistre la photo si il en a une
 
            str_requete = "UPDATE `tbl_coiffeur` SET" _
            & "`ID_COIFFEUR` = " & CStr(int_id_rech_coiffeur) & "," & "" _
            & "`SGL_TYPE` = " & "'" & str_type_cb & "'" & "," & "" _
            & "`ID_CODE_POSTAL` = " & CStr(int_id_cp) & "," & "" _
            & "`NOM_COIFFEUR` = " & "'" & txt_nom_ajout.Text & "'" & "," & "" _
            & "`PRENOM_COIFFEUR` = " & "'" & txt_pren_ajout.Text & "'" & "," & "" _
            & "`ADRESSE` = " & "'" & txt_adres_ajout.Text & "'" & "," & "" _
            & "`TELEPHONE` =" & "'" & mt_tel_ajout.Text & "'" & "" _
            & "`GSM` = " & "'" & mt_gsm_ajout.Text & "'" & "," & "" _
            & "`URL_PHOTO` = " & "'" & str_chemin_photo & "'" & "," & "" _
            & "`STATUT` = " & "'" & cb_statut.Text & "'" & "," & "" _
            & " WHERE  `ID_CLIENT`= " & CStr(int_id_rech_coiffeur)
 
        Else
 
            int_id_rech_client = dts.Tables(str_table).Rows(int_row).Item(0).ToString() '//Id du client
            Call PROC_ENR_PHOTO("client") '//Enregistre la photo si il en a une
 
 
            str_requete = "UPDATE `tbl_client` SET " _
                & "`ID_CLIENT` = " & CStr(int_id_rech_client) & "," & "" _
                & "`ID_CODE_POSTAL` = " & CStr(int_id_cp) & "," & "" _
                & "`NOM_CLIENT` = " & "'" & txt_nom_ajout.Text & "'" & "," & "" _
                & "`PRENOM_CLIENT` = " & "'" & txt_pren_ajout.Text & "'" & "," & "" _
                & "`ADRESSE` = " & "'" & txt_adres_ajout.Text & "'" & "," & "" _
                & "`TELEPHONE` = " & "'" & mt_gsm_ajout.Text & "'" & "," & "" _
                & "`GSM` =" & "'" & mt_gsm_ajout.Text & "'" & "," & "" _
                & "`STATUT` = " & "'" & cb_statut.Text & "'" & "," & "" _
                & "`URL_PHOTO` =" & "'" & str_chemin_photo & "'" & "" _
                & " WHERE  `ID_CLIENT`= " & CStr(int_id_rech_client)
 
        End If
 
        dts=db.FONC_REQ_DTS_MYSQL(str_requete) '//Execute la requete sur la base de donnée
 
        drap_photo_ou_pas = False '//Initialise la prise de photot
 
        frm_recherche.dtgv_rech.DataSource = dts
        frm_recherche.dtgv_rech.Refresh()

Ma fonction pour me renvoyé un dts

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
 
Function FONC_REQ_DTS_MYSQL(ByVal query As String)
        dts.Clear()
        Try
            str_requete = query
            If conn.State = 0 Then conn.Open()
            '//On execute la requete
            dta = New MySqlDataAdapter(str_requete, conn)
            dta.Fill(dts)
            Return dts
            '//On renvoie la table
        Catch myerror As MySqlException
            MsgBox("Erreur dans la FONC_REQ_MYSQL: " & myerror.Message)
            Return 0
        End Try

Apres la modification je retourne sur la form ou il y a un datagridview mais il est vide, je voudrais pouvoir l'afficher avec les modification.

Merci d'avance.