Hej!

JAg får följande felmeddelande i nedanstående kod: (se en bit ner)



det jag vill göra är att loppa en sql fråga. Jag använder mig an rst.EOF men det funkar inte.

plats markerad med ****

"Åtgärden är inte tillgänglig när objektet är stängt" och det är ju konstigt eftersom jag just öppnat den. Min case 1 fungerar fint men där vill jag inte loopa rst, utan plockar endast en rad.

/phinala

Private Sub sök()
'---------------------------------------------------------
' SÖkrutinerna
'---------------------------------------------------------

' Variabler
Dim mysql As String
Dim strCon As String
Dim X As ListItem
Dim a
Set con = New adodb.Connection
Set rst = New adodb.Recordset

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\GOLF.MDB" & ";Persist Security Info=False"
con.Open
mysql = ""

' Frågorna indelade i olika select case-satser
Select Case fråga

Case 2
On Error GoTo ErrorHandler
' Skapar rubriker samt kolumner i listview
ListView1.ColumnHeaders.Add(1).Text = "Spelare"
ListView1.ColumnHeaders.Add(2).Text = "Bana"
ListView1.ColumnHeaders.Add(3).Text = "Datum"
ListView1.ColumnHeaders.Add(4).Text = "Hcp"
ListView1.ColumnHeaders.Add(5).Text = "Poäng"
ListView1.ColumnHeaders.Add(6).Text = "Slag"


mysql = "SELECT * FROM Spelstat WHERE BanID='" & Bana & "'" & " and SpelID='" & Spelare & "'" ' SQL -satsen
While Not rst.EOF *** Här kommer felet***
Set rst = con.Execute(mysql)
Set X = ListView1.ListItems.Add(, , rst("SpelID")) ' Spelare
X.SubItems(1) = rst("BanID") 'Golfbana
X.SubItems(2) = rst("Datum") ' Spel datum
X.SubItems(3) = rst("Hcp") ' Spelarens handicap
X.SubItems(4) = rst("Totpoäng") ' Totala poängen på rundan
X.SubItems(5) = rst("Totslag") ' Totala antalslag
rst.MoveNext
Wend

Du har satt loopen fel. Du måste skapa recordsetet innan du kan loopa i det.

mysql = "SELECT * FROM Spelstat WHERE BanID='" & Bana & "'" & " and SpelID='" & Spelare & "'" ' SQL -satsen
<b>Set rst = con.Execute(mysql)</b>
While Not rst.EOF

tack pelle!

Det borde jag ha fatta själv. Ibland är man dj--igt blind.