Reload DataGridView

[bishmedia]

Ok this is driving me crazy, i am loading a datagridview sorted by date as follows.....

Public Sub LoadDatabaseDetails()
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"

theDatabase = "\FirstDirect.mdb"
myDocumentsFolder = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
fullDatabasPath = myDocumentsFolder & theDatabase

dbSource = "Data Source = " & fullDatabasPath
con.ConnectionString = dbProvider & dbSource

con.Open()

da = New OleDb.OleDbDataAdapter("SELECT * FROM tblContacts ORDER BY newDate DESC", con)

da.Fill(ds, "BankStatement")
tables = ds.Tables
Dim view As New DataView(tables(0))

frmMaster.DataGridFD.DataSource = view

con.Close()
End Sub

I am adding new data without any issues but it always add's it to the bottom instead of Date order, i add using the following...

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
If inc <> -1 Then

Dim cb As New OleDb.OleDbCommandBuilder(da)
Dim dsNewRow As DataRow

dsNewRow = ds.Tables("BankStatement").NewRow()

dsNewRow.Item("newDate") = txtDate.Text
dsNewRow.Item("Description") = txtDescription.Text
dsNewRow.Item("AmountIn") = txtAmountIn.Text
dsNewRow.Item("AmountOut") = txtAmountOut.Text

ds.Tables("BankStatement").Rows.Add(dsNewRow)
da.Update(ds, "BankStatement")
MessageBox.Show("New Record added to the Database")

da.Fill(ds)
DataGridFD.ResetBindings()
End If
End Sub

It's taken me ages to figure out
da.Fill(ds)
DataGridFD.ResetBindings()

Is there a better was of reloading the Data ????

[IanRyder]

Hi,

Since the DataGridView is displaying your information with the Newest record at the top of the DGV why not use the InsertAt Method of the Datatable’s Rows collection to add the new record at the Top of the DataGridView? Ie:-

yourDT.Rows.InsertAt(someNewDataRow, 0)

This way you do not need to reload the table and reset your bindings after saving the new information to the database.

Hope that helps.

Cheers,

Ian

BTW, when using Dates you need to be using Date Types rather than Strings to get the results you will be expecting in the future.

[KGComputers]

Hi,

First, please surround your code snippets with code tags to make it readable.

How about performing sort operation on the table after insertion of new record? Make sure that your column is a date type.

ds.Tables("BankStatement").DefaultView.Sort = "newDate desc"

Reference: RESOLVED-Sorting-a-DataTable-DefaultView

- kgc

[bishmedia]

Whilst adding the record and i have now changed the global variable to 'DATE' like..

Public todaysdate As Date

The record is still going to the bottom :-9

        If inc <> -1 Then

            Dim cb As New OleDb.OleDbCommandBuilder(da)
            Dim dsNewRow As DataRow

            todaysdate = txtDate.Text

            dsNewRow = ds.Tables("BankStatement").NewRow()

            dsNewRow.Item("newDate") = todaysdate
            dsNewRow.Item("Description") = txtDescription.Text
            dsNewRow.Item("AmountIn") = txtAmountIn.Text
            dsNewRow.Item("AmountOut") = txtAmountOut.Text

            ds.Tables("BankStatement").Rows.Add(dsNewRow)
            da.Update(ds, "BankStatement")
            MessageBox.Show("New Record added to the Database")

            ds.Tables("BankStatement").DefaultView.Sort = "newDate desc"

        End If

[KGComputers]

Is newDate datacolumn a System.DateTime type?

[bishmedia]

Hi
This is pulled from a Access Database as above which is entered as datatype Date/Time (Short Date)

I must admit, i have been pulling my hair out with this and i really thought there would be a simple answer :-(

[KGComputers]

Try putting this code

ds.Tables("BankStatement").DefaultView.Sort = "newDate desc"

right above

da.Update(ds, "BankStatement")

[bishmedia]

Sorry getting really confused now, it's still going to the bottom, think i will have to rethink this whole thing, i have the following, not sure if ive messed up anything....

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        If inc <> -1 Then

            Dim cb As New OleDb.OleDbCommandBuilder(da)
            Dim dsNewRow As DataRow

            dsNewRow = ds.Tables("BankStatement").NewRow()

            todaysdate = txtDate.Text

            dsNewRow.Item("newDate") = todaysdate
            dsNewRow.Item("Description") = txtDescription.Text
            dsNewRow.Item("AmountIn") = txtAmountIn.Text
            dsNewRow.Item("AmountOut") = txtAmountOut.Text

            ds.Tables("BankStatement").Rows.Add(dsNewRow)

            ds.Tables("BankStatement").DefaultView.Sort = "newDate desc"
            da.Update(ds, "BankStatement")

            MessageBox.Show("New Record added to the Database")
        End If
    End Sub

[bishmedia]

Is it because we aren't binding/sorting the datagridview, in this case DataGridFD ???

[bishmedia]

Ive done it, because the DataGridView is populated programatically i was able to use the Sort method after Adding a new record like...

DataGridFD.Sort(DataGridFD.Columns("newDate"), System.ComponentModel.ListSortDirection.Descending)

Works a treat :-)