oliverell62
Messages postés13Date d'inscriptionmercredi 5 août 2009StatutMembreDernière intervention 3 septembre 2010
-
16 août 2009 à 11:54
oliverell62
Messages postés13Date d'inscriptionmercredi 5 août 2009StatutMembreDernière intervention 3 septembre 2010
-
16 août 2009 à 12:44
je suis dans une impasse
j ai beau avoir passe au crible un sacree paquet de topic, je ne trouve pas
Private Sub Button3_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If ComboBox1.SelectedItem <> "" Then
' selection des options desiré
'create_datagrid_stat(ComboBox3.SelectedItem, ComboBox4.SelectedItem, ComboBox1.SelectedItem)
Dim type As String = ComboBox3.SelectedItem
Dim sorte As String = ComboBox4.SelectedItem
Dim dateurl As String = ComboBox1.SelectedItem
Dim bdd As New access
DataGridView_stats = Nothing ' on vide le datagrid
bdd = connect()
bdd.sql = "select rank_" & Type & "_" & sorte & ".* from rank_" & Type & "_" & sorte & " where datadate='" & dateurl & "'" 'Création de la requête sql
bdd.cmd = New OleDbCommand(bdd.sql) 'Création de la commande et on l'instancie (sql)
bdd.dta = New OleDbDataAdapter(bdd.cmd) 'Création du dataadapter (dta) et on l'instancie (cmd)
bdd.cmd.Connection() = bdd.cnx 'On instancie la commande (cmd) à la connection (cnx)
bdd.dta.Fill(bdd.dts, "rank_" & Type & "_" & sorte) 'On charge le dataset (dts) grace à la propriété fill du dataadapter (dta)
bdd.dtt = bdd.dts.Tables("rank_" & Type & "_" & sorte) 'On charge la datatable (dtt) grace à la propriété tables du dataset (dts)
DataGridView_stats.DataSource = bdd.dtt
Else
MsgBox("date non selectionnée")
End If
End Sub
le msg d erreur est le suivant
la référence objet n a pas pu être défini dans une instance objet