Discussion :

[walid kh]

Salut à tous,
Voilà je veux faire l'affichage d'une table d'une BD MySql via DataGridView en VB 2008. J'ai fait un code pour cela mais c'est toujours l'exception qui est affiché
J'utilise le connecteur MySqlconnector 6.2.2.0
la table : cract
BD : personne

voilà le code :

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
Imports MySql.Data.MySqlClient
Public Class Form1
    Dim conn As New MySqlConnection
    Dim adapt As MySqlDataAdapter
    Dim ds As New DataSet
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        conn.ConnectionString = "server=localhost, user id=root, password=, database=personne"
 
        Try
            conn.Open()
            adapt = New MySqlDataAdapter("SELECT * FROM cract", conn)
            adapt.Fill(ds, "cract")
            DataGrid1.DataSource = ds.Tables("cract")
        Catch ex As Exception
            MessageBox.Show("Erreur lors de affichage", "Afichage données", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class

merci d'avance

[garciajulien]

Salut pourrais tu poster ton erreur?

[mactwist69]

Si c'est tout le code que tu as...

Alors il manque:

Code :

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

1
2
 
ds.Tables.Add("crat")

Avant le Fill bien sur

[walid kh]

j'ai fait cela mais sans succées j'ai essayée un autre code ca marche mais le probléme c'est que j'ai le champ suivant id_p (clé primaire avec auto incrémentation) si j'ajoute un nouveau enregistrement il s'incrémente auto mais cela n'a pas fonctionné c'est tjs la valeur null qui s'affiche dans le datagrid dans le champs id_p voilà le code :

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
 Private Enum StateEnum
        StateIdle = 0
        StateNew = 1
        StateEdit = 2
    End Enum
 
    Dim HostConn As New MySqlConnection 'Pour une conexion a base de données MySQL
    Dim da As MySqlDataAdapter 'is use to update the dataset and datasource
    Dim dst As New DataSet 'miniature of your table - cache table to client
    Dim State As StateEnum 'to know if it is in add, edit, or Idle
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        HostConn.ConnectionString = "server=localhost;" _
                                     & "user id=root;" _
                                     & "password=;" _
                                     & "database=personne"
 
        State = StateEnum.StateIdle
        Call StateChange()
 
        Try
            HostConn.Open()
            da = New MySqlDataAdapter("SELECT * FROM cract", HostConn)
            da.Fill(dst, "cract")
            DataGrid1.DataSource = dst.Tables("cract")
        Catch myerror As MySqlException
            MessageBox.Show("Error Connecting to Database: " & myerror.Message)
 
        End Try
    End Sub
 
    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub
 
 
 
    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        State = StateEnum.StateEdit
        Call StateChange()
        Me.BindingContext(dst.Tables("cract")).Position = DataGrid1.CurrentRowIndex
        txtnom.DataBindings.Add("text", dst.Tables("cract"), "nom")
        txtprenom.DataBindings.Add("text", dst.Tables("cract"), "prenom")
        txtun.DataBindings.Add("text", dst.Tables("cract"), "user")
        txtpass.DataBindings.Add("text", dst.Tables("cract"), "pw")
        Call RemoveDataBindings()
        DataGrid1.Enabled = True
    End Sub
 
    'this procedure is activate the behavior of the controls 
    Private Sub StateChange()
 
    End Sub
 
    Private Sub RemoveDataBindings()
        Dim Ctrl As Control
        For Each Ctrl In GroupBox1.Controls
            Ctrl.DataBindings.Clear()
        Next Ctrl
    End Sub
 
    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        dst.Tables("cract").Rows(DataGrid1.CurrentRowIndex).Delete()
        Dim MyCommBuilder As New MySqlCommandBuilder(da)
        da.Update(dst, "cract")
 
    End Sub
 
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        State = StateEnum.StateNew
        Select Case State
            Case Is = StateEnum.StateNew 'Ajouter un record
                Dim MyNewRow As DataRow = dst.Tables("cract").NewRow
                Try
 
                    MyNewRow("nom") = txtnom.Text
                    MyNewRow("prenom") = txtprenom.Text
                    MyNewRow("user") = txtun.Text
                    MyNewRow("pw") = txtpass.Text
                    dst.Tables("cract").Rows.Add(MyNewRow)
 
                    Dim MyCommBuild As New MySqlCommandBuilder(da)
                    da.Update(dst, "cract")
                Catch err As Exception
                    MsgBox(err.Message, MsgBoxStyle.Exclamation, "error")
                    dst = New DataSet
                    da = New MySqlDataAdapter("SELECT * FROM cract", HostConn)
                    da.Fill(dst, "cract")
                    DataGrid1.DataSource = dst.Tables("cract")
                    Exit Sub
                End Try
 
            Case Is = StateEnum.StateEdit ' Modifier un record
                Dim MyEditRow As DataRow = dst.Tables("cract").Rows(DataGrid1.CurrentRowIndex)
                MyEditRow.BeginEdit()
                MyEditRow("nom") = txtnom.Text
                MyEditRow("prenom") = txtprenom.Text
                MyEditRow("user") = txtun.Text
                MyEditRow("pw") = txtpass.Text
 
                Dim MyCommBuild As New MySqlCommandBuilder(da)
                da.Update(dst, "cract")
 
                MsgBox("Record has been updated", MsgBoxStyle.Information)
                DataGrid1.Enabled = True
        End Select
 
        State = StateEnum.StateIdle
        Call StateChange()
    End Sub

merci de m'aider

[spamitovic]

Salut,

C normal que tu n'arrives pas à l remplir.

Corrige ton code

Code :

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

conn.ConnectionString = "server=localhost; database=certcom; uid=root; password=;"

Tu viens de dire que tu voulais remplir un DatagridView alors que sur ton code, je vois un datagrid.

Il faut mettre des points virgules au lieu des virgules. Pour le reste tout est bon

[walid kh]

Merci pour la réponse mais je ne comprend pas vraiment ce que tu veux dire où je mets les virgules ? pour la connexion c'est bon dès le début je n'ai pas de pbléme de connexion mais le champs "id_p" je veux qu'il soit auto incrémentation , si j'ajoute un nouveau enregistrement il affiche (null) dans le champs "id_p"

[walid kh]

bonjour
voilà maintenant un problème vraiment je ne comprend rien une fois tout ca marche et tout d'un coup rien ne marche
voilà l'exception :

system.NullReferenceException : la référence d'objet n'est pas définie à une instance d'un objet

voilà le code ( c'est un autre code ce n'est pas le même cité avant ) :

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
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        conn.ConnectionString = "server=localhost;" _
                                     & "user id=root;" _
                                     & "password=;" _
                                     & "database=personne"
 
        Try
            conn.Open()
 
            MsgBox(ds.Tables("cract").Columns.Count)
 
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try
 
    End Sub

je veux savoir d'où provient le problème

[garciajulien]

d'ou vient ds ??
Il n'intervient de nulle part.

Pour ce style d'exception pense a utiliser le merveilleux utilitaire qu'est le debugger. Ca t'evitera une grande perte de temps ^^

[walid kh]

comment puisse je le faire

[garciajulien]

Comment faire quoi utiliser le debugger ?

http://loulou.developpez.com/tutoriels/cpp/debogueur-visual-studio/

Super tutoriel pour l'utilisation du debug ^^