Discussion :

[Gdal]

Bonjjour,

Mon but est de créer un sub me permettant de charger le dataset de différentes tables
Table N° 1 => 1 DataAdapter, 1 DataSet, 1 DataTable
Table N° 2 => 1 DataAdapter, 1 DataSet, 1 DataTable

J'ai un formulaire "Form1" contenant:
3 boutons (cmdChargerVehicule, cmdChargerRepertoire, cmdTousCharger)
3 textbox (txtIDVehicule, txtIDRepertoire, txtVoirDataTable)
2 DataGridView (dgvVehicule, dgvRepertoire)

Voici 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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
 
Imports System
Imports System.Data
Imports System.Data.OleDb
 
Public Class Form1
 
#Region "Déclaration des variables"
 
    '  Déclaration Objet Connexion
    Private objConnexion As OleDbConnection
    ' Paramètres de connexion à la base
    Private strConnexion As String
    ' String contenant la 'Requête SQL'
    Private strSql As String
    ' Déclaration Objet Commande
    Private objCommand As OleDbCommand
    ' Pour recompiler les données modifiées avant de les remettre dans le "DataAdapter"
    Private objCommandBuilder As OleDbCommandBuilder
 
    ' !=> Véhicule <=!
    '  Déclaration Objet DataAdapter
    Private objDataAdapterVehicule As OleDbDataAdapter
    ' Déclaration Objet DataSet
    Private objDataSetVehicule As New DataSet()
    ' Déclaration Objet DataTable
    Private objDataTableVehicule As DataTable
    ' Déclaration Objet DataRow (ligne)
    Private objDataRowVehicule As DataRow
 
    ' !=> Répertoire <=!
    ' Déclaration Objet DataAdapter
    Private objDataAdapterRepertoire As OleDbDataAdapter
    ' Déclaration Objet DataSet
    Private objDataSetRepertoire As New DataSet()
    ' Déclaration Objet DataTable
    Private objDataTableRepertoire As DataTable
    ' Déclaration Objet DataRow (ligne)
    Private objDataRowRepertoire As DataRow
 
#End Region
 
    Private Sub InitConnexionTest(ByVal strSqlFiltre As String, ByVal PassDataAdapter As OleDbDataAdapter, _
                                  ByVal PassDataSet As DataSet, ByVal PassDataTable As DataTable, _
                                  ByVal PassNomtable As String)
 
        Try
 
            ' Vider le DataSet
            PassDataSet.Clear()
 
            'Initialisation de la chaîne de paramètres pour la connexion
            strConnexion = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                            "Data Source =" & Application.StartupPath & "\Source\Parc Vehicule.mdb;"
 
            'Initialisation de la chaîne contenant l'instruction SQL
            strSql = strSqlFiltre
 
            'Instanciation d'un objet Connexion
            objConnexion = New OleDbConnection()
            'Donner à la propriété ConnectionString les paramètres de connexion
            objConnexion.ConnectionString = strConnexion
 
            'Ouvrir la connexion
            objConnexion.Open()
 
            'Instancier un objet Commande
            objCommand = New OleDbCommand(strSql)
            'Instancier un objet Adapter
            PassDataAdapter = New OleDbDataAdapter(objCommand)
            'Initialiser l'objet Command
            objCommand.Connection() = objConnexion
            'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
            PassDataAdapter.Fill(PassDataSet, PassNomtable)
            'Mettre dans un objet DataTable une table du DataSet
            PassDataTable = PassDataSet.Tables(PassNomtable)
 
        Catch ex As Exception
            'Message d'erreur
            MessageBox.Show(ex.ToString, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
        Finally
            ' Fermer la connexion
            objConnexion.Close()
 
        End Try
 
    End Sub
 
    Private Sub cmdChargerVehicule_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdChargerVehicule.Click
 
        Dim strFiltreVehicule As String
        strFiltreVehicule = "SELECT Tbl_Vehicule.* " & _
                            "FROM Tbl_Vehicule " & _
                           "WHERE Tbl_Vehicule.ID_Vehicule = " & Me.txtIDVehicule.Text & ";"
 
        InitConnexionTest(strFiltreVehicule, objDataAdapterVehicule, objDataSetVehicule, objDataTableVehicule, "FicheVehicule")
 
        Me.dgvVehicule.DataSource = objDataSetVehicule
        Me.dgvVehicule.DataMember = "FicheVehicule"
 
    End Sub
 
    Private Sub cmdChargerRepertoire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdChargerRepertoire.Click
 
        Dim strFiltreRepertoire As String
        strFiltreRepertoire = "SELECT Tbl_Repertoire.* " & _
                              "FROM Tbl_Repertoire " & _
                              "WHERE Tbl_Repertoire.ID_Repertoire = " & Me.txtIDRepertoire.Text & ";"
 
        InitConnexionTest(strFiltreRepertoire, objDataAdapterRepertoire, objDataSetRepertoire, objDataTableRepertoire, "FicheRepertoire")
 
        Me.dgvRepertoire.DataSource = objDataSetRepertoire
        Me.dgvRepertoire.DataMember = "FicheRepertoire"
 
    End Sub
 
    Private Sub cmdTousCharger_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTousCharger.Click
 
        Dim strFiltreVehicule As String
        strFiltreVehicule = "SELECT Tbl_Vehicule.* " & _
                            "FROM Tbl_Vehicule " & _
                            "WHERE Tbl_Vehicule.ID_Vehicule = " & Me.txtIDVehicule.Text & ";"
 
        InitConnexionTest(strFiltreVehicule, objDataAdapterVehicule, objDataSetVehicule, objDataTableVehicule, "FicheVehicule")
 
        Dim strFiltreRepertoire As String
        strFiltreRepertoire = "SELECT Tbl_Repertoire.* " & _
                              "FROM Tbl_Repertoire " & _
                              "WHERE Tbl_Repertoire.ID_Repertoire = " & objDataTableVehicule.Rows(0).Item("ID_TblRepertoire").ToString & ";"
 
        InitConnexionTest(strFiltreRepertoire, objDataAdapterRepertoire, objDataSetRepertoire, objDataTableRepertoire, "FicheRepertoire")
 
        Me.dgvVehicule.DataSource = objDataSetVehicule
        Me.dgvVehicule.DataMember = "FicheVehicule"
 
        Me.dgvRepertoire.DataSource = objDataSetRepertoire
        Me.dgvRepertoire.DataMember = "FicheRepertoire"
 
 
 
    End Sub
 
End Class

Lorsque je souhaite charger une table dans un dataset, j'appelle InitConnexionTest en précisant:
strSqlFiltre As String
PassDataAdapter As OleDbDataAdapter
PassDataSet As DataSet
PassDataTable As DataTable
PassNomtable As String

Le problème est ici

Dim strFiltreRepertoire As String
strFiltreRepertoire = "SELECT Tbl_Repertoire.* " & _
"FROM Tbl_Repertoire " & _
"WHERE Tbl_Repertoire.ID_Repertoire = " & objDataTableVehicule.Rows(0).Item("ID_TblRepertoire").ToString & ";"

Lorsque j'ai voulu vérifier la valeur de objDataTableVehicule.Rows(0).Item("ID_TblRepertoire").ToString
en faisant Me.txtVoirDataTable.Text = objDataTableVehicule.Rows(0).Item("ID_TblRepertoire").ToString j'ai eu la même erreur.

Le problème viens donc de mon DataTable qui est nul. Mais pourquoi ?
Si je mets charge avec le bouton cmdChargerRepertoire en indiquant une valeur le chargement est correct....

Comme faire ?

Merci d'avance.

Gwendal

Le message d'erreur

L'exception System.NullReferenceException n'a pas été gérée
Message="La référence d'objet n'est pas définie à une instance d'un objet."
Source="Gestion Parc"

[Gdal]

Réponse


ByRef PassDataTable As DataTable au lieu de byval


Merci Moi

Gwendal