[ASP] Foutmelding bij BOF van recordset

[El_BingO]

Halloa,

Heb de volgende functie:

code:

Function getResultSet(SQL)
      dbconn.open Application("conn_string")
      Set rs = Server.CreateObject("ADODB.RecordSet")
      rs.ActiveConnection = dbconn
      rs.CursorLocation = adUseClient 
      rs.open SQL,,adOpenStatic,adLockReadOnly
      rs.ActiveConnection = Nothing 
      dbconn.close
     getResultSet = rs
End Function

En vervolgens roep ik deze zo aan:

code:

Set rs_user = getResultSet("SELECT * FROM tabel")

If Not rs_user.BOF And Not rs_user.EOF Then

En dan geeft ie hier de foutmelding:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'rs_user.BOF'

Wat ik dus wil is een losgekoppelde (van de connection) resultset maken (dat lukt, getest), en die terug geven met de function. Hij geeft het ook terug, want als ik boven de BOF aanroep rs_user("KOLOM") aanroep, geeft ie wel een waarde terug.

Hij herkent BOF dus niet, terwijl als ik dezelfde code uit de functie haal en er boven zet, dan doet ie het wel! Help!

[El_BingO]

Tis al gelukt, waarschijnlijk geeft de functie het object niet goed terug.

Voor de volledigheid post ik nog maar ff de oplossing:
functie code:

code:

Sub getResultSet(ByRef rs,SQL)
    dbconn.open Application("conn_string")
    Set rs = Server.CreateObject("ADODB.RecordSet") 
        rs.ActiveConnection = dbconn
        
    rs.CursorLocation = adUseClient 
    rs.open SQL,,adOpenStatic,adLockReadOnly
    rs.ActiveConnection = Nothing   
    dbconn.close
End Sub

aanroep:

code:

Set rs_user = Server.CreateObject("ADODB.RecordSet")
getResultSet rs_user, "SELECT * FROM tabel"

Met de ByRef methode kan je dus de meegegeven resultset direct toewijzen (daarom een Sub, geen function).

Toch bedankt, El BingO!

[ Voor 0% gewijzigd door El_BingO op 02-08-2002 11:26 . Reden: quote-je weg gehaald ]

[zneek]

Zo zo, reply jij eff op je eigen post?

[Glimi]

Ik vind het prijzenswaardig om even terug te komen en de oplossing te posten Hebben anderen er nog wat aan later

[zneek]

Glimi schreef op 02 augustus 2002 @ 11:31:
Ik vind het prijzenswaardig om even terug te komen en de oplossing te posten Hebben anderen er nog wat aan later

Ik ook hoor

[El_BingO]

zneek schreef op 02 augustus 2002 @ 11:33:
[...]

Ik ook hoor

[zneek]

BTW, nieuwe smilies zijn best kewl:

[El_BingO]

zneek schreef op 02 augustus 2002 @ 11:39:
BTW, nieuwe smilies zijn best kewl:

Wat heeft de belastingdienst er nou weer mee te maken

[Crazy D]

Nog een kleine tip: wat ik zelf bij dat soort functies wel handig vind, om er geen sub maar een functie van te maken, en een boolean terug te laten geven of er iets gevonden is of niet, zodat je niet

code:

getResultset rs, query
if not rs.EOF then ...

hoeft te doen, maar in 1 keer

code:

if getResultset(rs, query) then ...

[D2k]

<h3>blijven we nog wel ontopic SVP </h3>

[zneek]

D2k schreef op 02 augustus 2002 @ 12:00:
<h3>blijven we nog wel ontopic SVP </h3>

We zijn toch ontopic? Goed idee Crazy_D, lijkt me ook de beste oplossing.

[El_BingO]

Crazy_D schreef op 02 augustus 2002 @ 11:59:
Nog een kleine tip: wat ik zelf bij dat soort functies wel handig vind, om er geen sub maar een functie van te maken, en een boolean terug te laten geven of er iets gevonden is of niet, zodat je niet

code:

getResultset rs, query
if not rs.EOF then ...

hoeft te doen, maar in 1 keer

code:

if getResultset(rs, query) then ...

Idd een erg goede oplossing. Kneem het mee, en ik denk zelfs dat het terugkeren van de rowcount ipv een boolean misschien nog handiger kan zijn. Thnx in ieder geval!