Affichage de donnée DataGridView par Access

Version imprimable

Bonsoir

je suis entrain de faire une appli en VB et j'ai lié à mon application une base de donnée que j'ai fais sous access.

Une fois la connexion effectué grâce à Visual Basic Express 2008, j'aimerais afficher le résultat d'une requête "SELECT * FROM Table1" dans un DataGridView

Or je ne sais pas comment faire... est-ce quelqu'un peut m'aider ?
Code:

1 2 3 4 5 6 7 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Table1TableAdapter.Fill(Me.FollowflashDataSet.Table1) End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub
Je vous remercie :)

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
Dim Connection As New OleDb.OleDbConnection()
Dim AdapTContact As OleDb.OleDbDataAdapter
Dim DtSet As New DataSet()
Dim Sql As string
 
'Parametrage de la chaine de connection
Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"data source= " & Application.StartupPath & "\" & "tnombdd.mdb;"
 
‘ouverture de la connection
Connection.Open()
 
‘definition de la requete
Sql="select * from nomtable", Connection
 
‘definition du DataAdapter
AdapTContact=new OleDbDataAdapter (Sql, connection)
 
' remplissage du dataset
AdapTContact.Fill(DtSet, "nomtable")
 
‘Fermeture de la connection
Connection.Close()
 
  Dim Matable As DataTable
Matable = DtSet.Tables("nomtable")
DatagridView.DataSource = Matable

Sa fonctionne ce que tu a fait ??
Code:

1 2 3 4 5 6 7 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Table1TableAdapter.Fill(Me.FollowflashDataSet.Table1) End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub
Je ne met pas en doute ce que tu a fait mais sa me parais tellement simple que sa m'étonne
(je me suis galérer pour établir une connections avec ma base Acces ... )

Juste pour faire une requête SQL c'est simple:
Code:

1 2 3 "SELECT table1.* FROM table1" 'ou en plus complet "SELECT table1.* FROM table1 ORDER BY MaColonne1"
mais ou la mettre avec ton code et quand l'appeler je ne saurais pas trop te dire ...

Tu peu essayer datagridView.dataSource() et mettre le chemin d'accès dans les ()

non évidemment ca ne fonctionne pas, je montrais simplement ce que j'avais à la base,

en tous cas je remercie selkis pour sa réponse ultra complète,
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 Private Sub Fonction() Dim Connection As New OleDb.OleDbConnection() Dim AdapTContact As OleDb.OleDbDataAdapter Dim DtSet As New DataSet() Dim Sql As String 'Parametrage de la chaine de connection Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _ "data source= " & Application.StartupPath & "\" & "followflash.accdb;" 'ouverture de la connection Connection.Open() 'definition de la requete Sql = "select * from Table1" 'definition du DataAdapter AdapTContact = New OleDb.OleDbDataAdapter(Sql, Connection) ' remplissage du dataset AdapTContact.Fill(DtSet, "Table1") 'Fermeture de la connection Connection.Close() Dim Matable As DataTable Matable = DtSet.Tables("Table1") DataGridView1.DataSource = Matable End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO*: cette ligne de code charge les données dans la table 'FollowflashDataSet.Table1'. Vous pouvez la déplacer ou la supprimer selon vos besoins. Me.Table1TableAdapter.Fill(Me.FollowflashDataSet.Table1) Fonction() End Sub
Mais sa ne fonctionne pas... j'ai toujours rien dans mon DataGridView :(

EDIT1 : j'ai trouvé pourquoi, je suis sous windows 7 x64 et ce n'est pas géré en 64 bits j'ai donc du procéder de la manière suivante :

Citation:

Dans Outils / Options cliquez sur "Affichez tous les paramètres" en bas à gauche.
Dans l'arbrescence, sélectionnez "Projets et solutions/Général".
Activez l'option : "Afficher les configurations de génération avancées"
Dans le menu Générer / Gestionnaire de configuration.
Dans la liste déroulante "Plateforme de la solution active" choisissez : "Nouveau".
Dans la liste déroulante "Tapez ou sélectionnez la nouvelle plateforme", choissez : "x86" et cliquez sur "OK".
Vérifiez que la plateforme "x86" est sélectionnée dans la liste de vos projets.

Citation:

Envoyé par alexandre01

Bonsoir

Code:

1
2
3
4
5
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Table1TableAdapter.Fill(Me.FollowflashDataSet.Table1)
    End Sub
 
    End Sub

ca devrait marcher normalement ce code :? est ce qui t'es sur que ton dataset contient les données de ta tables???

sinon essaye avec ce code :

Code:

1
2
3
4
5
6
7
8
9
 strQuery = "SELECT * FROM table1"
 
            myCommand.CommandText = strQuery
            dr = myCommand.ExecuteReader()
 
 
            While dr.Read()
                DataGridView2.Rows.Add(dr(0), dr(1), dr(5), ............)
            End While

12/04/2010, 11h22
AnGe7s

Oui Oui en faite ca fonctionnait c'est juste que mon code était compilé en 64bits (je suis sous windows 7 x64) et dans les paramètre de compilation j'ai indiqué x86 et maintenant ca fonctionne.

Maintenant je cherche à ajouter une entrée dans ma Table avec des champs texte que je remplis :)

Code:

1
2
3
4
5
6
Dim tonConnecteurBDD As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source = followflash.accdb")
                tonConnecteurBDD.Open()
                Dim taCommandeSQL As String = "Insert INTO Table1 VALUES('','var','var1','var','var','var','var','var','var','var','var','var','var');"
                Dim maCommande As OleDb.OleDbCommand = New OleDb.OleDbCommand(taCommandeSQL, tonConnecteurBDD)
                maCommande.ExecuteNonQuery()
                tonConnecteurBDD.Close()

Je n'ai aucune erreur mais l'entrée n'est pas ajouté à ma table :( pourquoi ?

c'est quoi var??? ce son les valeurs des textbox que tu récupère??

sinon t'a pas mentionné les champs de la table je crois:?

voici une requête qui fonctionne:
Code:

1 2 3 4 5 strQuery1 = "insert into llx_product(ref,label,stock) values ('" & TextBox3.Text & "', '" & TextBox1.Text & "','" & TextBox2.Text & "') " myCommand1.Connection = conn1 myCommand1.CommandText = strQuery1 myCommand1.ExecuteNonQuery()

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
 Dim tonConnecteurBDD As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=followflash.accdb")
                tonConnecteurBDD.Open()
 
                Dim taCommandeSQL As String = "Insert INTO Table1 (NOM,PRENOM,MAIL,TEL,CONSOLE,MODELE,SERIAL,LECTEUR,INTERVENTION,TARIF,DATE_INTER,PAYE) VALUES('var','var1','var','var','var','var','var','var','var','50','10/01/1998','var')"
                Dim maCommande As OleDb.OleDbCommand = New OleDb.OleDbCommand(taCommandeSQL, tonConnecteurBDD)
                maCommande.CommandText = taCommandeSQL
                maCommande.ExecuteNonQuery()
 
                tonConnecteurBDD.Close()
                MsgBox("C'est ajouté !")

'var' étant simplement pour tester si ca va mettre 'var' dans ma table or la ce n'est pas le cas...

Sa ne m'ajoute rien dans ma table... pourquoi ?

j'ai résolus !

j'ai rajouté maCommande.connection = tonConnecteurBDD !

Code:

1
2
3
4
5
6
7
8
9
10
11
 Dim tonConnecteurBDD As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=followflash.accdb")
                tonConnecteurBDD.Open()
 
                Dim taCommandeSQL As String = "Insert INTO Table1 (NOM,PRENOM,MAIL,TEL,CONSOLE,MODELE,SERIAL,LECTEUR,INTERVENTION,TARIF,DATE_INTER,PAYE) VALUES('var','var1','var','var','var','var','var','var','var','50','10/01/1998','var')"
                Dim maCommande As OleDb.OleDbCommand = New OleDb.OleDbCommand(taCommandeSQL, tonConnecteurBDD)
maCommande.connection = tonConnecteurBDD
                maCommande.CommandText = taCommandeSQL
                maCommande.ExecuteNonQuery()
 
                tonConnecteurBDD.Close()
                MsgBox("C'est ajouté !")

maintenant est-ce que vous pouvez dire comment supprimer de la table une entrée sélectionnée dans un GridDataView ?

Merci :)

bon bein non ca ne fonctionne pas...

j'ai réussi tout a l'heure je ne sais pas comment j'ai fais... la impossible...

aucune erreur ni SQL ni VB et ca veut pas s'ajouter dans ma table...

voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  Dim tonConnecteurBDD As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=followflash.accdb;")
 
 
                tonConnecteurBDD.Open()
 
                Dim taCommandeSQL As String = "Insert INTO Table1 (NOM,PRENOM,MAIL,TEL,CONSOLE,MODELE,SERIAL,LECTEUR,INTERVENTION,TARIF,DATE_INTER,PAYE) VALUES('var','var1','var','var','var','var','var','var','var','50','10/01/1998','var')"
                Dim maCommande As OleDb.OleDbCommand = New OleDb.OleDbCommand(taCommandeSQL, tonConnecteurBDD)
                'Try
                maCommande.Connection = tonConnecteurBDD
                maCommande.CommandText = taCommandeSQL
                maCommande.ExecuteNonQuery()
 
                ' Catch ex As Exception
                'MessageBox.Show(ex.ToString, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
                ' End Try
 
                tonConnecteurBDD.Close()
                MsgBox("C'est ajouté !")

si sa continu je vais me jeter par la fenêtre.... c'est entrain de me mettre au bout du rouleau...

Je n'ais pas travaillé comme toi
j'ais directement ajouté des lignes dans le DataSet puis je l'ais a jour à chaque fois
(mais a voir si tu utilise un DataSet ou aute chose la je sais pas aprés ...)

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
        '################################################################
        '################ Enregistrement des Dimensions #################
        '################################################################
 
        'Ajout d'une ligne dans l'objetdata
        ObjetDataRowTblDim = ObjetDataSetTblDim.Tables("tblDimensions").NewRow()
        ' On rempli les champs dans l'objetData
        ObjetDataRowTblDim("NumCoupure") = LastNumCoupure + 1
        ObjetDataRowTblDim("NomCoupure") = Nomcoupure
        ObjetDataRowTblDim("CodeProduit") = CodeProduit
        ObjetDataRowTblDim("LargeurPalette") = LargeurPalette
        ObjetDataRowTblDim("LongueurPalette") = LongueurPalette
        ObjetDataRowTblDim("HauteurPalette") = HauteurPalette
        ObjetDataRowTblDim("LargeurBoite") = LargeurBoite
        ObjetDataRowTblDim("LongueurBoite") = LongueurBoite
        ObjetDataRowTblDim("HauteurBoite") = HauteurBoite
        'On remplie la ligne ajoutée dans l'objetData
        ObjetDataSetTblDim.Tables("tblDimensions").Rows.Add(ObjetDataRowTblDim)
        'Pour modifier les valeurs changées dans le DataAdapter
        ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapterTblDim)
        'Mise à jour
        ObjetDataAdapterTblDim.Update(ObjetDataSetTblDim, "tblDimensions")
        'On vide le DataSet et on le 'recharge' de nouveau
        ObjetDataSetTblDim.Clear()
        ObjetDataAdapterTblDim.Fill(ObjetDataSetTblDim, "tblDimensions")
 
 
 
        ObjetConnection.Close()

*En espérant que sa puisse t'aider un peut*

12/04/2010, 16h19
AnGe7s

merci mais j'arrive pas à adapter ton code au mien...

Citation:

Envoyé par alexandre01

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
 Dim tonConnecteurBDD As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=followflash.accdb")
                tonConnecteurBDD.Open()
 
                Dim taCommandeSQL As String = "Insert INTO Table1 (NOM,PRENOM,MAIL,TEL,CONSOLE,MODELE,SERIAL,LECTEUR,INTERVENTION,TARIF,DATE_INTER,PAYE) VALUES('var','var1','var','var','var','var','var','var','var','50','10/01/1998','var')"
                Dim maCommande As OleDb.OleDbCommand = New OleDb.OleDbCommand(taCommandeSQL, tonConnecteurBDD)
                maCommande.CommandText = taCommandeSQL
                maCommande.ExecuteNonQuery()
 
                tonConnecteurBDD.Close()
                MsgBox("C'est ajouté !")

Code:

1
2
3
4
5
6
7
8
9
10
11
 Dim tonConnecteurBDD As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=followflash.accdb")
                tonConnecteurBDD.Open()
 
                Dim taCommandeSQL As String = "Insert INTO Table1 (NOM,PRENOM,MAIL,TEL,CONSOLE,MODELE,SERIAL,LECTEUR,INTERVENTION,TARIF,DATE_INTER,PAYE) VALUES('var','var1','var','var','var','var','var','var','var','50','10/01/1998','var')"
                Dim maCommande As OleDb.OleDbCommand = New OleDb.OleDbCommand(taCommandeSQL, tonConnecteurBDD)
maCommande.connection = tonConnecteurBDD
                maCommande.CommandText = taCommandeSQL
                maCommande.ExecuteNonQuery()
 
                tonConnecteurBDD.Close()
                MsgBox("C'est ajouté !")

maintenant est-ce que vous pouvez dire comment supprimer de la table une entrée sélectionnée dans un GridDataView ?

Merci :)

pour l'insertion essaye de faire la requete via accès a fin de vérifier si elle passe sinon y'a rien qui cloche normalement :?

je te donne le code complet sous mysql

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  Dim conn1 As MySqlConnection
 
        conn1 = New MySqlConnection()
        conn1.ConnectionString = "Data Source= localhost;user id= utilisa ;password=1234;database=dolib"
 
        Try
            conn2.Open()
 
            Dim myCommand1 As New MySqlCommand
 
 
            Dim strQuery1 As String
            strQuery1 = "insert into llx_product(ref,label,stock) values ('" & TextEdit3.Text & "', '" & TextEdit1.Text & "','" & TextEdit2.Text & "')  "
            myCommand1.Connection = conn1
            myCommand1.CommandText = strQuery1
            myCommand1.ExecuteNonQuery()

sinon pour le datagridview:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'tu récupere l'index de ton dataveiw
   Dim i, pos As Integer
            For i = 0 To Me.DataGridView1.Rows.Count - 1
                If Me.DataGridView1.Rows.Item(i).Selected Then
                    pos = i
 
                End If
            Next
' par la suite tu fait une requete simple
 
delete from table where x='" & me.datagridview(0,(pos)).value &"'
'ps: 0 représente l'index de la première colonne

13/04/2010, 00h16
AnGe7s

merci pour ta réponse,

le datagridview fonctionne lui, et ma requête je l'ai testé dans visual basic express et mes données sont bien ajoutées à ma BD, sauf que quand je clique sur le bouton Ajouter de mon forme, sa veut pas exécuter ma requête !

n'y a t'il pas moyen de voir si ca me renvoi une erreur SQL ou autre ?
13/04/2010, 00h49
zOoOm_10

dans ce cas vérifie ton code le problème est surement la !!! ou alors t'a changer l'évènement de ton bouton

Bonne chance;)
13/04/2010, 00h58
AnGe7s

déjà vérifié, l'event de mon boutton est bien "click" et puis j'ai bien la msgbox qui s'affiche donc...

Aucune modification je ne comprend pas... j'arrive au bout du rouleau...
13/04/2010, 11h43
AnGe7s

j'ai trouvé d'où vient le problème : mon datasource

Code:

Dim tonConnecteurBDD As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\Users\Alex\Documents\Visual Studio 2008\Projects\Follow Flash\Follow Flash\followflash.accdb; Persist Security Info=False;")

avec le chemin absolue vers la base de donnée, cela fonctionne, si je met simplement followflash.accdb cela ne fonctionne pas.

est-ce que cela ne vas pas poser problème lors du compilage ?
13/04/2010, 13h22
AnGe7s

est-ce que quelqu'un peut me dire comment je retourne l'ID (contenu dans ma base de donnée access) d'un élément que je sélectionne dans un DataGridView dans lequel j'affiche mes données de ma BD ?

edit1 :

c'est bon :

Code:

Dim idf As String = DataGridView1.CurrentRow.Cells(0).Value.ToString

Par contre n'y a t'il pas la possibilité d'actualisé le datagridview ? car l'entrée est bien supprimée mais le datagridview ne se met pas a jour,

je suis obligé de fermer le programme pour voir la modification.