Get the last 2 moths data from access database table

1

i have this code for get the last 2 moth of data from access data base to list view in vb.net, but this give me error

this is my code:

Public Sub showlistview()
        Dim dt As New DataTable
        Dim ds As New DataSet
    ds.Tables.Add(dt)
    Dim da As New OleDbDataAdapter("SELECT * FROM pay_pretalk _
                                   WHERE sdate > DATE_SUB(now(), INTERVAL 2 MONTH)", con)
    da.Fill(dt)
        Dim myrow As DataRow
        For Each myrow In dt.Rows
            ListView1.Items.Add(myrow.Item(2))
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3))
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(4))
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(5))
        ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(6))
        ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(7))
        Next
End Sub

and this is the error:

IErrorInfo.GetDescription failed with E_FAIL(0x80004005).

how can i do this.

vb.net
ms-access
asked on Stack Overflow May 2, 2016 by Noor Phone • edited Jul 6, 2020 by Martijn Pieters

1 Answer

0
            dim ds as new DataSet();
            dim adapter as new OleDataDataAdapter("SELECT * FROM pay_pretalk                                             

            WHERE sdate > DateAdd("m", -2, Date())", con);
            adapter.Fill(ds);
            dt = ds.Tables[0];

.....

answered on Stack Overflow May 2, 2016 by Michael Rudner Evanchik • edited May 3, 2016 by Michael Rudner Evanchik

User contributions licensed under CC BY-SA 3.0