Problème avec deux datagridview sur deux forms différentes

Version imprimable

Bonsoir,

J'ai deux forms avec un datagridview sur chacune des forms et je viens de remarqué que si j'allimente un datagridview l'autre se vide et vise versa !!!!

Je ne vois pas ou est l'erreur j'utilise deux dataset de noms différents.

Premier datagridview

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
 
  Private Sub cb_nom_client_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cb_nom_client.TextChanged, cb_nom_client.Click
        Dim str_rech As String = cb_nom_client.Text
        Dim dta As MySqlDataAdapter
        Dim dts_client_rdv As DataSet
 
        dtgv_nom_client_rdv.Visible = False
        lbl_nouv_client.Visible = False
 
        dtgv_nom_client_rdv.DataSource = Nothing
        str_table_rdv = "client_rdv"
 
        If str_rech <> vbNullString Then '//Si la recherche n est pas vide
            str_requete = "SELECT ID_CLIENT,NOM_CLIENT AS NOM,PRENOM_CLIENT AS PRENOM,ADRESSE FROM vue_renseignement_client WHERE NOM_CLIENT LIKE " & "'" & str_rech & "%'"
 
            dta = New MySqlDataAdapter(str_requete, conn)
 
            '//Dataset cache en memoire de donnée
            dts_client_rdv = db.FONC_REQ_DTS_MYSQL(str_requete)
 
            dta.Fill(dts_client_rdv, str_table_rdv)
            dt = dts_client_rdv.Tables(str_table_rdv) '//DataTable
            conn.Close()
            '//Cache la colonne de l'id du client(pour l'ajout tbl_coiffeur_tranche)
            dts_client_rdv.Tables(str_table_rdv).Columns("ID_CLIENT").ColumnMapping = MappingType.Hidden
 
            If BindingContext(dts_client_rdv, str_table_rdv).Count > 0 Then
                dtgv_nom_client_rdv.Visible = True
                lbl_nouv_client.Visible = False
 
            Else
                dtgv_nom_client_rdv.Visible = False
                lbl_nouv_client.Visible = True
            End If
 
            conn.Close() '// On ferme la connexion le plus tôt possible
 
            dtgv_nom_client_rdv.DataSource = dts_client_rdv
            dtgv_nom_client_rdv.DataMember = str_table_rdv
 
        End If
 
    End Sub

Deuxième datagridview

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
 
 Private Sub cb_nom_client_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cb_nom_client.TextChanged, cb_nom_client.Click
        Dim str_rech As String = cb_nom_client.Text
        Dim dta As MySqlDataAdapter
 
        dtgv_nom_client_rdv.Visible = False
        lbl_nouv_client.Visible = False
 
        dtgv_nom_client_rdv.DataSource = Nothing
        str_table_rdv = "client_rdv"
 
        If str_rech <> vbNullString Then '//Si la recherche n est pas vide
            str_requete = "SELECT ID_CLIENT,NOM_CLIENT AS NOM,PRENOM_CLIENT AS PRENOM,ADRESSE FROM vue_renseignement_client WHERE NOM_CLIENT LIKE " & "'" & str_rech & "%'"
 
            dta = New MySqlDataAdapter(str_requete, conn)
            dts.Clear()
            '//Dataset cache en memoire de donnée
            dts = db.FONC_REQ_DTS_MYSQL(str_requete)
 
            dta.Fill(dts, str_table_rdv)
            dt = dts.Tables(str_table_rdv) '//DataTable
            conn.Close()
            '//Cache la colonne de l'id du client(pour l'ajout tbl_coiffeur_tranche)
            dts.Tables(str_table_rdv).Columns("ID_CLIENT").ColumnMapping = MappingType.Hidden
 
            If BindingContext(dts, str_table_rdv).Count > 0 Then
                dtgv_nom_client_rdv.Visible = True
                lbl_nouv_client.Visible = False
 
            Else
                dtgv_nom_client_rdv.Visible = False
                lbl_nouv_client.Visible = True
            End If
 
            conn.Close() '// On ferme la connexion le plus tôt possible
 
            dtgv_nom_client_rdv.DataSource = dts
            dtgv_nom_client_rdv.DataMember = str_table_rdv
 
        End If
 
    End Sub

Merci d'avance.

10/05/2010, 21h21
Pol63

essaye avec 2 connexions différentes

et puis ca manque de try catch et de using ...
10/05/2010, 21h42
jacko842

J'ai utilisé deux connexions différentes et toujours le même.

Je ne mets pas la gestions d'erreur pour le moment car je n'ai pas fini.

Merci de ton aide.
10/05/2010, 22h30
Pol63

dans ton code tu utilises la variable conn dans les 2 cas

Voila j ai essayé avec une autre variable pour la connexion, rien n'y change

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
 
    Private Sub PROC_REMPLIR_DBGRID_HISTORIQUE()
        Dim dta_hist As MySqlDataAdapter
        Dim dts_historique As DataSet
 
        lbl_aucun_result.Visible = False '//Initialise
 
        str_requete = "SELECT ID_CLIENT,JOUR_OUVRABLE AS DATE,HEURE_DEBUT AS HEURE,DESCRIPTION AS PRESTATION FROM `vue_historique_coupe` WHERE ID_CLIENT=" & int_id_rech_client
 
        '//La méthode Fill de l'objet dta permet de remplir le Dataset
        '//le dataset s'appelle "clients" ou "coiffeur" qui est le nom de l'espace mémoire
        '//le DataSet peut travailler en mode déconnecté
        dta_hist = New MySqlDataAdapter(str_requete, conn)
 
        ''//Dataset cache en memoire de donnée
        dts_historique = db.FONC_REQ_DTS_MYSQL(str_requete)
 
        dta_hist.Fill(dts_historique, "vue_historique")
        conn.Close()
        '//Cacher la colonne obligé d'avoir un champ primary key dans le dataset pour les modif via le dtgb_rechr
        dts_historique.Tables("vue_historique").Columns("ID_CLIENT").ColumnMapping = MappingType.Hidden
 
        dtgv_histo.Columns.Clear() '//On efface les noms des collones
        dtgv_histo.DataSource = Nothing '//On libère le datagridview
 
        If (BindingContext(dts_historique, "vue_historique").Count = 0) Then
            dtgv_histo.Columns.Clear() '//On efface les noms des collones
            dtgv_histo.DataSource = Nothing '//On libère le datagridview
            lbl_aucun_result.Visible = True
        Else
            dtgv_histo.DataSource = dts_historique '//On remplis le datagrid via une liaison de donnée 
            dtgv_histo.DataMember = "vue_historique" '//Spécifie une des tables vers laquelle effectuer la liaison
        End If
    End Sub

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
 
Private Sub cb_nom_client_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cb_nom_client.TextChanged, cb_nom_client.Click
        Dim str_rech As String = cb_nom_client.Text
        Dim dta As MySqlDataAdapter
        Dim dts_client_rdv As DataSet
 
        dtgv_nom_client_rdv.Visible = False
        lbl_nouv_client.Visible = False
 
        dtgv_nom_client_rdv.DataSource = Nothing
        str_table_rdv = "client_rdv"
 
        If str_rech <> vbNullString Then '//Si la recherche n est pas vide
            str_requete = "SELECT ID_CLIENT,NOM_CLIENT AS NOM,PRENOM_CLIENT AS PRENOM,ADRESSE FROM vue_renseignement_client WHERE NOM_CLIENT LIKE " & "'" & str_rech & "%'"
 
            dta = New MySqlDataAdapter(str_requete, conn1)
 
            '//Dataset cache en memoire de donnée
            dts_client_rdv = db.FONC_REQ_DTS_MYSQL(str_requete)
 
            dta.Fill(dts_client_rdv, str_table_rdv)
            dt = dts_client_rdv.Tables(str_table_rdv) '//DataTable
            conn.Close()
            '//Cache la colonne de l'id du client(pour l'ajout tbl_coiffeur_tranche)
            dts_client_rdv.Tables(str_table_rdv).Columns("ID_CLIENT").ColumnMapping = MappingType.Hidden
 
            If BindingContext(dts_client_rdv, str_table_rdv).Count > 0 Then
                dtgv_nom_client_rdv.Visible = True
                lbl_nouv_client.Visible = False
 
            Else
                dtgv_nom_client_rdv.Visible = False
                lbl_nouv_client.Visible = True
            End If
 
            conn.Close() '// On ferme la connexion le plus tôt possible
 
            dtgv_nom_client_rdv.DataSource = dts_client_rdv
            dtgv_nom_client_rdv.DataMember = str_table_rdv
 
        End If
 
    End Sub

Pour la connexion:

Code:

1
2
3
4
 
    Public connString As String = ConfigurationManager.ConnectionStrings("Chaine_con").ConnectionString
    Public conn As New MySqlConnection(connString)
    Public conn1 As New MySqlConnection(connString)

Pour la fonction pour la requete dataset dans une classe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 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
 
    End Function

Merci

11/05/2010, 00h55
Pol63

ta fonction n'est pas typée, et elle agit sur un unique dataset
11/05/2010, 09h40
mactwist69

Le code au début était bien... Mais le problème dans tes fonctions, c'est que tu faisais:

Code:

dts.clear()

Alors forcement, ça efface tes datatables.

D'ailleurs ton dataset, est déclaré en variable local, il devrait plutôt être déclaré en Public, pour que tu puisses y accéder de plusieurs Form.
11/05/2010, 10h17
jacko842

C'etait bien le dts.clear je l'avais pas vu :oops::oops:

Merci a vous