[VB.NET] Svuotare il contenuto di un controllo DataGridView

[x69asterix]

come si svuota una DataGridView?

praticamente prima di effettuare il seguente codice?

Dim StringaConnessione As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & Application.StartupPath & "\ore.mdb;Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
        Dim cn As New OleDbConnection(StringaConnessione)
        cn.Open()

        Dim da As New OleDbDataAdapter("SELECT * FROM ore", cn)
        da.Fill(ds, "ore")
        cn.Close()
        Application.DoEvents()
        Me.DataGridView1.DataSource = ds
        Me.DataGridView1.DataMember = "ore"

[power.mobile]

basta che imposti il datasource a nothing... oppure svuoti il datasource, in questo caso un datatable...

[x69asterix]

difatti è quello che faccio, ma non ottengo quanto voluto,

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DataGridView1.DataBindings.Clear()
        DataGridView1.DataSource = Nothing
        DataGridView1.DataMember = Nothing
        DataGridView1.Refresh()

        Dim StringaConnessione As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & Application.StartupPath & "\ore.mdb;Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
        Dim cn As New OleDbConnection(StringaConnessione)
        cn.Open()

        Dim da As New OleDbDataAdapter("SELECT * FROM ore where Causale= '" & ComboBox1.Text & "'", cn)
        da.Fill(ds, "ore")
        Application.DoEvents()
        Me.DataGridView1.DataSource = ds
        Me.DataGridView1.DataMember = "ore"

        cn.Close()
 End Sub

difatti al primo click è corretto, ma dal secondo in poi me li aggiunge tutti

[power.mobile]

il problema allora è un'altro.. devi svuotare anche il dataset che riempi con il fill... il fill non te lo svuota in automatico ma ti aggiunge ogni volta quelli che carica a quelli esistenti...

---edit----

scusa il datatable non il dataset...

[x69asterix]

ok risolto

        DataGridView1.DataBindings.Clear()
        DataGridView1.DataSource = Nothing
        DataGridView1.DataMember = Nothing
        DataGridView1.Rows.Clear()
        DataGridView1.Refresh()
        Dim ds As New DataSet()
        Dim StringaConnessione As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & Application.StartupPath & "\ore.mdb;Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
        Dim cn As New OleDbConnection(StringaConnessione)
        cn.Open()

        Dim da As New OleDbDataAdapter("SELECT * FROM ore where Causale= '" & ComboBox1.Text & "'", cn)
        da.Fill(ds, "ore")
        Application.DoEvents()
        Me.DataGridView1.DataSource = ds
        Me.DataGridView1.DataMember = "ore"
        cn.Close()
        ds = Nothing