HEJ

Jag försökte list ut alla hyrnr som jag har i min databas, men när jag klicker i listview så får jag bara den första posten i textruttorna och inte resten av hyrnr när bländrar vidare,,jag menar det händer ingenting efter post ett.
koden ser ut så här:


Dim SQL As String
Set rsKunder = New ADODB.Recordset

SQL = "SELECT * FROM hyr"
rsKunder.Open SQL, dbkoppling, adOpenStatic
If Not rsKunder.EOF Then

'For i = 1 To lsvMembers(1).ListItems.Count

If lsvMembers(1).SelectedItem.Selected = True Then
Text1.Text = rsKunder.Fields(1)
Text2.Text = rsKunder.Fields(2)
Text3.Text = rsKunder.Fields(3)
Text4.Text = rsKunder.Fields(4)
Text5.Text = rsKunder.Fields(5)
Text6.Text = rsKunder.Fields(6)
Text7.Text = rsKunder.Fields(0)
'Exit For
End If
rsKunder.MoveNext


'Next i
End If

kan nån hjälpa mig

MVH
/Abbe

1. SelectedItem är alltid selekterad, eller hur? Skippa raden lsvMembers(1).SelectedItem.Selected = True

2. Du har nog inte hajjat detta med databaser..Och jag hajjar inte riktigt vad du vill göra.

Om du vill lista alla grejjer i din databas:

Public Sub dbFillListView(conObject as ADODBConnection)
Dim SQL As String

SQL = "SELECT * FROM hyr"
set rsKunder = conObject.execute(sql)

while not rsKunder.EOF
lsvMembers(1).ListItems.Add ,"k" & rsKunder!kundid, rsKunder!namn
rsKunder.MoveNext
wend

rsKunder.Close

End Sub

om du vill visa info om ett fält:

Public Sub dbListViewShowSelected(conObject as ADODBConnection)

if rsKunder.SelectedItem = Nothing then exit sub

Dim SQL As String
SQL = "SELECT * FROM hyr WHERE kundid=" & mid(lsvMembers (1).SelectedItem.Key,2)

set rsKunder = conObject.execute(sql)
if rsKunder.EOF then exit sub

Text1.Text = rsKunder.Fields(1)
Text2.Text = rsKunder.Fields(2)
Text3.Text = rsKunder.Fields(3)
Text4.Text = rsKunder.Fields(4)
Text5.Text = rsKunder.Fields(5)
Text6.Text = rsKunder.Fields(6)
Text7.Text = rsKunder.Fields(0)

rsKunder.Close
End Sub

<code>
Dim SQL As String
Dim Item as ListItem
Dim Items as ListItems

Set Items = lsvMembers.ListItems
Items.Clear

SQL = "SELECT * FROM hyr"

Set rsKunder = New ADODB.Recordset
rsKunder.Open SQL, dbkoppling

Do until rsKunder.EOF
Set Item = Items.Add(,,"" & rsKunder.Fields(1))
Item.SubItem(1) = "" & rsKunder.Fields(2)
Item.SubItem(2) = "" & rsKunder.Fields(3)
Item.SubItem(3) = "" & rsKunder.Fields(4)
Item.SubItem(4) = "" & rsKunder.Fields(5)
Item.SubItem(5) = "" & rsKunder.Fields(6)
rsKunder.MoveNext
Loop
</code>