Import d'une valeur issue d'une datatable sur une cellule spécifique d'un datagridview

Version imprimable

Bonjour;

J'ai trouvé ce code sur le net :

Code:

1
2
3
4
5
6
7
8
9
 
        Dim row As String() = New String() {"1", "Product 1", "1000"}
        DataGridView1.Rows.Add(row)
        row = New String() {"2", "Product 2", "2000"}
        DataGridView1.Rows.Add(row)
        row = New String() {"3", "Product 3", "3000"}
        DataGridView1.Rows.Add(row)
        row = New String() {"4", "Product 4", "4000"}
        DataGridView1.Rows.Add(row)

Je souhaite pouvoir afficher à la place de 4000 le résultat d'une requête access ?

Est ce possible ? Si oui, comment procéder ?

Merci beaucoup

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
        Dim resultat As String = ..... 'ton resultat
        Dim row As String() = New String() {"1", "Product 1", "1000"}
        DataGridView1.Rows.Add(row)
        row = New String() {"2", "Product 2", "2000"}
        DataGridView1.Rows.Add(row)
        row = New String() {"3", "Product 3", "3000"}
        DataGridView1.Rows.Add(row)
 
        'Après ici tu mets resultat à la place de 4000 
        row = New String() {"4", "Product 4", resultat }
        DataGridView1.Rows.Add(row)

J'espère que ça va t'aider, même si tu n'as pas donné assez d'informations sur ce que tu veux faire ;)

Merci pour ta réponse.

J'avance ;) ... lentement :weird:

Dim resultat As String =

si je mets une valeur (ex:4000) je suis ok mais je n'arrive pas à faire le lien avec ma valeur dans la bdd access

Je suis reparti sur ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
        Dim Cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Users\...\mabase.accdb;Persist Security Info=False;")
        Dim Cmd As New OleDbCommand
        Dim Da As New OleDbDataAdapter
        Dim Dt As New DataTable
        Dim tables As DataTableCollection
        Dim Ds As New DataSet
        Ds.Clear()
        Cn.Open()
        Cmd.CommandType = CommandType.Text
        Cmd.CommandText = "Select [resultat] from matable"
        tables = Ds.Tables
        Da = New OleDbDataAdapter(Cmd)
        Cmd.Connection = Cn
 
        Da.Fill(Ds, "matable")
        Dt = Ds.Tables("matable")
        Cn.Close()
 
        Dim row As String() = New String() {"4", "Product 4 ", Da}
        dtgResult.Rows.Add(row)

mais c'est pas ca ...

ps : je m'emploie a produire un logiciel de retraitement comptable ;)

Bonjour

peut etre ainsi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Private Sub CopyTableInDatagridview()
        'Copie le dataset dans le datagrid 
 
 
        DataGridView1.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Sunken
        DataGridView1.Font = New Font("arial", 14, FontStyle.Bold, GraphicsUnit.Pixel)
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
        DataGridView1.EnableHeadersVisualStyles = False
        DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.PowderBlue
        Dim bds As New BindingSource
        bds.DataSource = ds.Tables("matable")
        DataGridView1.DataSource = bds
        DataGridView1.AutoSize = True
        DataGridView1.AutoResizeColumns()
 
        DataGridView1.AutoSize =true
 
 
    End Sub

08/11/2014, 11h21
bechetbrice

Avec du retard, je remercie pour ta réponse shayw. Je l'ai étudiée et ça ne correspond pas à ce que cherche à faire. Je suis repartie entre temps sur une autre piste, celle de passer par une requête de ma base de données qui relierait plusieurs autres requêtes (avec des JOIN) par d'autres JOIN. Je travaille dessus mais au regard de la quantité de requête à lier, je pense que je vais passer pas mal de temps dessus.

Je reviendrai poster la solution que je l'aurai trouvée;)