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.
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];
.....
User contributions licensed under CC BY-SA 3.0