Discussion :

[titi2b]

Bonsoir,

Quelle est la meilleure façon de charger plusieurs tables dans différents datagridview sur le même formulaire.

Voici la méthode que j'utilise pour une table :

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
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
 
Public Class Frm1
 
    Private cnx As OleDbConnection
    Private cmd As OleDbCommand
    Private dta As OleDbDataAdapter
    Private cmdb As OleDbCommandBuilder
    Private dr As OleDbDataReader
    Private dts As New DataSet
    Private dtt As DataTable
    Private dtc As DataColumn
    Private dtr As DataRow
    Private rownum As Integer
    Private conn As String
    Private sql As String
 
Private Sub Frm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Settings.Dossier1Bd
cnx = New OleDbConnection
cnx.ConnectionString = conn
cnx.Open()
sql = "select * from matable1"
cmd = New OleDbCommand(sql)
dta = New OleDbDataAdapter(cmd)
cmd.Connection() = cnx
dta.Fill(dts, "matable1")
dtt = dts.Tables("matable1")
DataGridView1.DataSource = dtt

Merci d'avance de m'indiquer la meilleure façon pour alimenter mon datagridview2

a plus

[garciajulien]

Je ne comprends pas trop ta question. Peux-tu etre plus clair dans ce que tu veux faire?

[titi2b]

Je souhaite dans le même formulaire afficher 2 datagridview, un pour la table "ABC" et l'autre "DEF", et ces tables sont dans la même base.

Voici ce que j'ai fait je voudrais savoir si c'est la bonne méthode.

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
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
 
Public Class Frm1
 
    Private cnx As OleDbConnection
    Private cmd As OleDbCommand
    Private dta1 As OleDbDataAdapter 
    Private dta2 As OleDbDataAdapter
    Private cmdb As OleDbCommandBuilder
    Private dr As OleDbDataReader
    Private dts As New DataSet
    Private dtt1 As DataTable
    Private dttl2 As DataTable
    Private dtc As DataColumn
    Private dtr As DataRow
    Private rownum As Integer
    Private conn As String
    Private sql1 As String
    Private sql2 As String
 
    Private Sub Frm1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        Try
            cnx.Close()
            Me.Dispose()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub Frm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Try
            conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Settings.Dossier1Bd
            cnx = New OleDbConnection
            cnx.ConnectionString = conn
            cnx.Open()
            sql1 = "select * from matable1 "
            cmd = New OleDbCommand(sql)
            dta1 = New OleDbDataAdapter(cmd)
            cmd.Connection() = cnx
            dta1.Fill(dts, "matable1")
            dtt1 = dts.Tables("matable1")
 
 
            sql2 = "select * from matable2"
            cmd = New OleDbCommand(sql2)
            dta2 = New OleDbDataAdapter(cmd)
            cmd.Connection() = cnx
            dta2.Fill(dts, "matable2")
            dttl2 = dts.Tables("matable2")
 
            'si la table est vide alors
            If rownum > dtt.Rows.Count - 1 Then
                MsgBox("Aucun Enregistrement", MsgBoxStyle.Exclamation)
                Exit Sub
 
            Else
 
                'affichage des données dans le datagrid
 
                DataGridView1.DataSource = dtt1
                DataGridView2.DataSource = dtt2
 
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub

[garciajulien]

Salut,
Je ne comprends pas ta question car ce que tu fais devrais marcher donc, tu veux savoir s'il y a une alternative a ce que tu fais?

[titi2b]

Oui tout a fait ca fonctionne mais je voulait savoir si c'est la bonne méthode.
Et pour abuser un peu une seconde question.

Pour masquer une colonne de mon datagridview, j'utilise :

Code :

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

DataGridView1.Columns(0).Visible = False

Comment faire pour en masquer plusieurs?

Faut il faire :

Code :

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

1
2
LigneDevisDataGridView.Columns(0).Visible = False
LigneDevisDataGridView.Columns(1).Visible = False

ou existe-t'il une méthode du style

Code :

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

LigneDevisDataGridView.Columns("0","1").Visible = False   'ceci ne fonctionne pas'

Merci de ton aide
sympa

[garciajulien]

non effectivement tu dois masquer toutes les colonnes que tu ne veux pas voir.
Je te conseille tout de meme si tu ne dois pas utiliser ces colonnes de ne specifier dans ta requete sql que les colonnes dont tu as besoin