Holen Sie sich die letzten 2 Motten Daten aus Access-Datenbank-Tabelle

Question

ich habe diesen Code für die letzte 2 Motte von Daten von Bankzugriff Datenansicht in vb.net zu verzeichnen, aber ich

dies ist mein Code-Fehler geben :

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 

und das ist der Fehler:

IErrorInfo.GetDescription failed with E_FAIL(0x80004005).

, wie ich dies tun kann.

Answer 1

  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]; 

.....