[VBA + ACCESS2003] Problema Recordset

[ishanto]

Ciao, ho questo problema:
ho creato una maschera in access che in pratica deve permettere di fare una ricerca in una tabella; la maschera contiene 3 caselle di riepilogo per la data (giorno, mese, anno) e una casella di riepilogo legata ad un altro parametro inerente il programma. in seguito premo il pulsante cerca che ha allegato all'evento onCLick una Routine che preleva questi valori dal db e dovrebbe inserirerli in una casella di riepilogo sempre posta in questa maschera...ecco non riesco a fare appunto il display dei dati, perchè di recuperare li recupera, ho testato con Msgbox. Qualcuno sa aiutarmi?Se volete posso fornire indirizzo di msn per chiarimenti.

ciao

[ishanto]

ragazzi nessuno sa aiutarmi?

[Sir Board]

Puoi inserire il codice che hai scritto nell'applicazione?

Ciao

[ishanto]

ho risolto, comunque il codice associato al tasto è questo :

Private Sub Comando21_Click()

    If Me.elencoRicerca.ListCount = 2 Then
        Me.elencoRicerca.RemoveItem (1)
    End If
    
    Dim stGiorno, stMese, stAnno, stSQL, stStanza As String
    Dim con As ADODB.Connection
    Dim recSet, recSet2 As ADODB.Recordset
    
    stGiorno = Me.casellaGiorno
    stMese = Me.casellaMese
    Select Case stMese
    Case "Gennaio"
        stMese = 1
    Case "Febbraio"
        stMese = 2
    Case "Marzo"
        stMese = 3
    Case "Aprile"
        stMese = 4
    Case "Maggio"
        stMese = 5
    Case "Giugno"
        stMese = 6
    Case "Luglio"
        stMese = 7
     Case "Agosto"
        stMese = 8
    Case "Settembre"
        stMese = 9
    Case "Ottobre"
        stMese = 10
    Case "Novembre"
        stMese = 11
    Case "Dicembre"
        stMese = 12
    End Select
    stAnno = Me.casellaAnno
    stStanza = Me.casellaStanza
    Select Case stStanza
    Case "Singola"
        stStanza = 1
    Case "Doppia"
        stStanza = 2
    Case "Doppia con culla"
        stStanza = 3
    Case "Luna di miele"
        stStanza = 4
    Case "Suite"
        stStanza = 5
    End Select
    
    stSQL = "SELECT * FROM PRENOTAZIONI WHERE DATA_INIZIO_SOGG = #" & stGiorno & "/" & stMese & "/" & stAnno & "# AND ID_STANZA = " & stStanza
    stSQL2 = "SELECT DESCRIZIONE FROM STANZE WHERE ID_STANZA = " & stStanza
    
    Set recSet2 = New ADODB.Recordset
    recSet2.CursorType = adOpenKeyset
    recSet2.LockType = adLockOptimistic
    
    Set con = CurrentProject.Connection
    recSet2.Open stSQL2, con
    
    stStanza = recSet2.Fields("DESCRIZIONE")
    recSet2.Close
    Set recSet2 = Nothing
    
    Set recSet = New ADODB.Recordset
    recSet.CursorType = adOpenKeyset
    recSet.LockType = adLockOptimistic
    
    Set con = CurrentProject.Connection
    recSet.Open stSQL, con
    
    Do Until recSet.EOF
        Me.elencoRicerca.AddItem (recSet.Fields("ID_PRENOTAZIONE") & ";" & recSet.Fields("DATA_INIZIO_SOGG") & ";" & recSet.Fields("DATA_FINE_SOGG") & ";" & stStanza)
        recSet.MoveNext
    Loop
    
    recSet.Close
    con.Close
    Set con = Nothing
    Set recSet = Nothing

End Sub

[Sir Board]