Håller på lite med databaser, men jag har problem med att få in alla poster i en listview. Programmet hänger sig när man kör igång det och jag är rätt säker på att det är loopen som det är problem med, men jag vet inte hur jag ska göra...jag har gjort såhär: Du har glömt MoveNext i Loopen. Därför får du en evigloop.hämta data från en databas [LÖST]
<code>
Global con As ADODB.Connection 'General Declaration
Public Sub openDb() 'Open database
On Error Resume Next
dbConString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\r2003.mdb"
Set con = New ADODB.Connection
con.ConnectionString = dbConString
con.Open
End Sub
Public Sub closeDb() 'Close database
On Error Resume Next
con.Close
Set con = Nothing
End Sub
Public Sub LoadToList() 'Load posts to list
Dim RecSet As ADODB.Recordset
Set RecSet = New ADODB.Recordset
strSQL = "Select * From Tabell"
RecSet.Open strSQL, con
Do Until RecSet.EOF
With frmMain.lstView.ListItems.Add
.Text = RecSet("ID")
.ListSubItems(1) = RecSet("Title")
.ListSubItems(2) = RecSet("Date")
.ListSubItems(3) = RecSet("Time")
End With
Loop
Call closeDb
End Sub
</code>
/MickeSv: hämta data från en databas
RecSet.MovNext