Finns det några poster som motsvarar din fråga då? jo, som jag sa, när jag kör den andra frågan i Query Analyzer så får jag ca 2000 rader Du kanske har stavat fel eller nåt. Testa att köra Profiler och kopiera frågan därifrån för att se om den går att köra i Query Analyzer. Hej, igen....Problem med Recordset
Public ConFDB As ADODB.Connection
Public RecFDB As ADODB.Recordset
Jag har en ADODB-koppling till min databas
ConnectFDB ger connectionsträngen och detta fungerar bra
Dim kortId_Arr As Variant
Dim utrId_Arr As Variant
Set ConFDB = New ADODB.Connection
ConFDB.Open ConnectFDB
Denna fråga returnerar drygt 6000 rader och detta fungerar också bra, dvs arrayen kortId_Arr populeras.
Set RecFDB = ConFDB.Execute(" SELECT k.inKortID " & _
" FROM kort k, utrustning u, utrnotis un" & _
" Where k.inUtrID = u.inUtrID" & _
" and u.inUtrID=un.inUtrID AND un.vcRubrik='NE ID'" & _
" and (k.dtavvecklad is null or k.dtavvecklad > getdate())" & _
" and (u.dtavvecklad is null or u.dtavvecklad > getdate())" & _
" Order by 1")
If Not RecFDB.EOF Then
kortId_Arr = RecFDB.GetRows
End If
RecFDB.Close
Nu har jag en annan fråga som jag skulle vilja köra (jag kan köra den utan problem i SQL Query Analyzer och får där ca 2000 rader) men när jag kör den i mitt vb-program får jag inga rader... :(
Set RecFDB = ConFDB.Execute(" SELECT u.inUtrID" & _
" FROM utrustning u, utrnotis un" & _
" Where u.inUtrID = un.inUtrID" & _
" and (u.dtavvecklad is null or u.dtavvecklad > getdate())" & _
" AND un.vcRubrik='NE ID'" & _
" Order by 1")
If Not RecFDB.EOF Then
utrId_Arr = RecFDB.GetRows
End If
RecFDB.Close
Kan någon se vad som är fel.... jag har stirrat mig blid nu tror jag :(
// David
Sv: Problem med Recordset
BTW. kan du inte använda COALESCE() i stället för is null?
COALESCE(u.dtavvecklad, GETDATE())Sv:Problem med Recordset
ok, ska titta på COALESCE()Sv: Problem med Recordset
Om du sätter en breakpoint på .eof, kommer du dit?
Och om du sätter en breakpoint inuti if satsen där du tilldelar varianten värdet, kommer du dit?
Vad händer, händer ingenting, får du nåt felmeddelande....?Sv:Problem med Recordset
Antagligen hjälper det att bara fråga...
det är väl som att ta med sig paraply på stan... då regnar det inte.... däremot om man har det hemma regnar det garanterat...
Nu har jag kopierat frågan från Query Analyzer igen.... vilket jag gjort flera gånger tidigare.... men skillnaden är att det fungerar nu :)
Tack för all hjälp.
// David