[ACCESS / VBA] Vraag over results van pass-through query *

[Verwijderd]

Beste allemaal,

Waarschijnlijk heel simpel, maar ik blijf er al een tijdje op steken. Het geval is als volgt:

Ik heb in access een passthrough query aangemaakt en wil daarmee vanuit VBA een query direct op Oracle uitvoeren, dit is de query:

SQL:

select sum(sum(decode(discount_type, 3, 0, delivered))) As total_units from t******* tr,
 c***** c, lookup_period lp, lookup_period_current lpc where tr.CONFIRMDATE = lp.targetdate and 
tr.localproductno = c.localproductno and lp.financialyear = lpc.financialyear and lp.financialmonth =
lpc.financialmonth and tr.discount_type <> 3 and tr.trans_type not in ('F','R') and tr.product_group < 
900 and tr.delivered <> 0 and tr.backorder_code <> 'D' and tr.upcno = '" & recSPrevRec("UPCNO") &
 "' Group by tr.CONFIRMDATE order by tr.CONFIRMDATE

(**** = dingen die jullie helaas niet mogen zien)

Dit is de funtie waarmee ik de query push:

Visual Basic:

Public Function ChangeSQLrr(pstrSPTName As String, pstrSQL As String, returnrecords As Boolean)

    'Requires reference to DAO library
    Dim db As DAO.Database
    Dim qd As DAO.QueryDef
    Set db = CurrentDb
    Set qd = db.QueryDefs(pstrSPTName)
    qd.SQL = pstrSQL 'set new value
    qd.ReturnsRecords = returnrecords
    Set qd = Nothing
    Set db = Nothing
    
End Function

en dan:

Visual Basic:

Call ChangeSQLrr (<pstrSPTName>, <pstrSQL>, <returnrecords>)

Dit is allemaal logisch en werkt ook gewoon, maar nu:

Als result van die query krijg ik een waarde, maar hoe kan ik die opvangen in een variabele in VBA?

Iemand een concreet voorbeeld?

Mijn dank is bij voorbaat groot.


- Jeroen

[Verwijderd]

Sluit topic maar, het is me na veel klooien wel gelukt door de record set in een global te proppen en niet te returnen met de functie wat ik eerst deed en steeds fout ging:

Visual Basic:

Public Sub ChangeSQLrr(pstrSPTName As String, pstrSQL As String, returnrecords As Boolean)

    'Requires reference to DAO library
    Dim db As DAO.Database
    Dim qd As DAO.QueryDef
    Dim prm As DAO.Parameter
    Dim rst As DAO.Recordset
    
    Set db = CurrentDb
    Set qd = db.QueryDefs(pstrSPTName)
    
    qd.SQL = pstrSQL 'set new value
    qd.ReturnsRecords = returnrecords
    
    For Each prm In qd.Parameters
        prm.Value = Eval(prm.Name)
    Next prm
    
    Set gPushRSet = db.OpenRecordset(pstrSPTName, dbOpenDynaset)


    Set qd = Nothing
    Set db = Nothing
    
End Sub

[RobIII]

Een slotje is niet nodig op een topic als je je oplossing hebt. Zie daarvoor ook onze faq betreffende topiceinde.

[Verwijderd]

Ahaok, ik haal zo af en toe wat fora door elkaar

[Lustucru]

FYI: mocht je nou in de toekomst een functie wel een waarde terug willen laten geven zonder globale variabelen:

Visual Basic:

Function MyFunc() as recordset
    \\ bla 
    Set MyFunc=db.openrecordset()
End Function

Sub Main
    dim rs as recorset
    Set rs=MyFunc()
End Sub

[Verwijderd]

Thanks,

Ga ik morgen even proberen.