Problème pour mettre à jour mon datagridview apres un Update.
Bonjour donc j ai remplis un datagridview a partir d'un dataset:
Code:
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:
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:
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.
