Mitt program hittar inga poster i databasen. Jag skrev enligt nedan. Vad är fel?

Dim i As Integer
Dim RS As ADODB.Recordset

Set RS = New ADODB.Recordset
With RS

If .State = adStateOpen Then .Close

.ActiveConnection = GetCon
.CursorType = adOpenKeyset
.Source = "Select * from Tabell1 order by Datum"
.Open

If RecordCount > 0 Then _
.MoveFirst

While Not .EOF
Debug.Print .Fields(1)
Wend

RS.Close
Set RS = Nothing
End With

Lite synpunkter:<br>
* With Satsen är helt onödig.<br>
* State = adStateOpen kontrollen behövs inte efter som du precis skapat recordsetet.<br>
* Använd parametrana till Open metoden när du öppna recordsetet.<br>
* Onödigt att använda "Keyset"-cursor. Använd istället "Forward Only"-Cursor (adOpenForwardOnly) när man bara loopar igenom recordsetet en gång.<br>
* Utan MoveNext blir det en evighets loop.<br>
* While Wend är föråldrad Do loop'er ger dig mer möjligheter.<br>
<code>
Dim i As Integer
Dim RS As ADODB.Recordset

Set RS = New ADODB.Recordset
RS.Open "SELECT * FROM Tabell1 ORDER BY Datum", GetCon

Do Until RS.EOF
Debug.Print RS.Fields(1)
RS.Movenext
Loop

RS.Close
Set RS = Nothing
</code>

Programmet hittar fortfarande inga poster i databasen, vad ska jag göra åt det då?

Vet inte hur din anslutning eller felhantering ser ut. MEn skulle gissa på:
* Antagligen är tabellen tom.
* Första kolumnen för alla poster tom.
*Du öppnar en dubblett av databasen. Inte den databas du lagt till poster i.

Är det inget av dessa. Kan du då vara vänlig att maila databasen till mig. Är då ett problem jag inte stött på tidigare.

Test ett - kopiera din query från debugläget och kör den direkt mot din
databas - då ser du exakt vad du bör få. Enkelt och snabbt sätt att se om
det är frågan eller koden det är fel på.

Test två - Fungerar det med:
Set rs = connection.execute(dinQuery)
Där connection är din databasuppkoppling

/Emma

Bara ett litet slarvfel, jag öppnade en annan databas med samma namn som var tom =D

Det har jag "aldrig" gjort.

*Ler*

Det klassiska felet...

"Jag vet ju att jag gör rätt!" Två timmar och _många_ okvädesord senare
"Eh, ojsan, var den variabeln fel...." *rodna*

/Emma