[vb6] returning een recordset

[reapher]

Ten eerste ik heb niet zo erg veel verstand van VB6 maar ik moet dit even werkend krijgen. Ik heb twee stukken code de eerste een stuk wat met de database babbelt.

code:

Public Function ConnectionObjectX(sqlstring As String, dsn As String, uid As String, db As String, Optional pwd As String) As Recordset

    Dim wrkODBC As Workspace
    Dim conPubs As Connection
    Dim myRS As Recordset
    Dim users As String
        
    
    Set wrkODBC = CreateWorkspace("NewODBCWorkspace", _
        "admin", "", dbUseODBC)
    Set conPubs = wrkODBC.OpenConnection("Connection1", , , _
                  "ODBC;DATABASE=" + db + ";UID=" + uid + ";PWD=" + pwd + ";DSN=" + dsn)
                  
    Set myRS = conPubs.OpenRecordset(sqlstring)
    
    Set ConnectionObjectX = myRS
        
    conPubs.Close
    wrkODBC.Close
End Function

En de tweede die deze function aanroept

code:

 Set sqldata = ConnectionObjectX(query, "distru", "root", "distru2")
    
    If Not sqldata.EOF Then
      While Not sqldata.EOF
         MsgBox sqldata!gebruikersnaam
         sqldata.MoveNext
      Wend
    End If

Nu lukt dit allemaal goed functie enz maar zodra hij bij If Not sqldata.EOF Then komt geeft hij de volgende melding "object invalid or no longer set" Ik heb al gezocht met google en hier maar kon weinig interesants vinden.
Ik wil dus de recordset die uit de function komt gebruiken in me programma. Maar dat laat hij niet toe. Doe ik iets stoms? of kan dit niet?

[whoami]

Waarom schrijf je een If rond die WHILE ?

[glashio]

& IPV + ? Als AppendString teken.

[reapher]

Nope zou ook vreemd zijn als dat het was immers dat gedeelte gaat wel goed

[xtra]

Je maakt een recordset met conPubs als Connection. Bij het einde sluit je de Connection, dus dat is einde recordset.
Maak van conPubs een globale variabele of geef hem als reference mee aan de functie.

[reapher]

Ok dat heb ik nu maar als ik in me main function conpubs.close aanroep geeft hij weer dezelfde foutmelding.

me funcie roep ik zo aan

code:

Set dataarray = ConnectionObjectX(conPubs, query, "distru", "root", "distru2", 0)

en de functie zelf is beschreven als

code:

Public Function ConnectionObjectX(ByRef conPubs As Connection, sqlstring As String, dsn As String, uid As String, db As String, keuze As Integer, Optional pwd As String) As Recordset

verder staat er boven

Global conPubs As Connection

maar nog steeds niks

[ Voor 91% gewijzigd door reapher op 19-06-2003 00:11 ]

[reapher]

Schopje

[farlane]

Je code is op zich goed, je moet alleen die workspace en connection bewaren ( door ze bijvoorbeel private te declareren in een module samen met je functie waarin je je records ophaalt.
Pas als je klaar bent met je bewerkingen op je recordset opjecten ( Als je je programma afsluit bijvoorbeeld ) kun je je connection en je workspace closen.

Overigens is Global geen keyword in VB

[ Voor 7% gewijzigd door farlane op 20-06-2003 19:14 ]

[robjanssen]

Bestudeer dit stuk code maar eens goed:

Visual Basic:

Private Sub Command1_Click()
Dim wrkODBC As Workspace
Dim conPubs As Connection
Dim sqldata As Recordset
Dim query As String

query = "SELECT * FROM Test"

Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "admin", "", dbUseODBC)
Set conPubs = wrkODBC.OpenConnection("Verbinding1", dbDriverNoPrompt, , "ODBC;DATABASE=Test;UID=sa;WWD=;DSN=Uitgevers")
Set sqldata = ConnectionObjectX(conPubs, query)
    
While Not sqldata.EOF
   MsgBox sqldata!Test
   sqldata.MoveNext
Wend

conPubs.Close
wrkODBC.Close

Set sqldata = Nothing
Set conPubs = Nothing
Set wrkODBC = Nothing

End Sub

Public Function ConnectionObjectX(conPubs As Connection, sqlstring As String) As Recordset

Set ConnectionObjectX = conPubs.OpenRecordset(sqlstring)

End Function

[reapher]

Dat werkt way beter dank u