Newsgroup: it.comp.appl.access
Titolo: Come inserire risultati di un Recordset in una Casella di riepilogo?

Salve a tutti: ho difficoltà a capire come posso riportare i risultati
di un Recordset nella casella di riepilogo.
Mi spiego: ho una maschera chiamata "123" che genera un Recordset;
io riesco a visualizzare il risutato nella Finestra Immediata del VBA.
All'interno della Maschera 123, ci sono 2 campi non associati per effettuare
la ricerca (ancora da attivare perchè non ho trovato ancora il
sistema di farlo!), il tasto per eseguire il RecordSet e una casella di
riepilogo "list" dove vorrei vedere i risultati del recordset,
che sono quelli che riesco a vedere nella Finestra Combinata. Come devo fare
per fargli scrivere il Risultato del RecordSet
nella "list"?
Vi riporto il codice VBA della Maschera 123.
Un'altra domanda: nel VBA è presente il collegamento al file mdb sorgente
della ricerca;
se volessi fare la ricerca nel file mbd della maschera stessa, cosa devo
scrivere al posto del percorso?
Qualcosa tipo CurrentDB???
Private Sub tasto_Click()
Dim Cn As New ADODB.Connection
Dim NomeDb As String
Dim Rs As New ADODB.Recordset, Campo As ADODB.Field
NomeDb = _
  "c:\Programmi\Microsoft Office\Office10\1040\FPNWIND.MDB;"
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDb
Rs.Open "Select Name, Value From Clienti", Cn, adOpenDynamic,
adLockPessimistic
If Not Rs.EOF Then
  Rs.MoveFirst
End If
  Do Until Rs.EOF
For Each Campo In Rs.Fields
    Debug.Print Campo.Name & ": " & Campo.Value
    Next
    Rs.MoveNext
Loop
  Rs.Close
  Cn.Close
End Sub

 ha scritto nel messaggio
news:zpAna.28291$LB6.6...@news1.tin.it...

Poichè usi ADO credo tu stria usando versioni di Access superiori al 97
quindi se non sbaglio il Controllo ListBox dovrebbe supportare
l'attribuzione
diretta del Recordset.
In pratica quando hai verificato che il RS non è vuoto puoi inserire questa
riga:
Me.NomeListBox.Recordset=rs
Per quanto riguarda CurrentDb dovrebbe esserci CurrentProject......!
@Alex.


Non Funziona!
Nella listbox non appare il risultato!
Che cosa manca??
Riporto il codice della maschera 123 in questione.....
------------------------------------------------
Option Compare Database
Option Explicit
Private Sub tasto_Click()
Dim Cn As New ADODB.Connection
Dim NomeDb As String
Dim Rs As New ADODB.Recordset, Campo As ADODB.Field
Set Cn = CurrentProject.Connection
Rs.Open "Select Name, CAP From Clienti", Cn, adOpenDynamic,
adLockPessimistic
If Not Rs.EOF Then
  Rs.MoveFirst
End If
  Do Until Rs.EOF
For Each Campo In Rs.Fields
    Debug.Print Campo.Name & ": " & Campo.Value
    Next
    Rs.MoveNext
Loop
Me.ListBox = Rs
  Rs.Close
  Cn.Close
End Sub
-------------------------------------------------------------

 ha scritto nel messaggio
news:8Zlpa.77851$T34.2...@news2.tin.it...

Ma hai provato a vedere sull'HELP la proprietà Recordset
dell'oggetto ListBox.....???
Private Sub tasto_Click()
 Dim Cn As New ADODB.Connection
 Dim NomeDb As String
 Dim Rs As New ADODB.Recordset, Campo As ADODB.Field
 Set Cn = CurrentProject.Connection
 Rs.Open "Select Name, CAP From Clienti", Cn, adOpenDynamic,
 adLockPessimistic
 If Not Rs.EOF Then
   Rs.MoveFirst
   Me.ListBox.Recordset = Rs
End If
 Rs.Close
Cn.Close
End Sub
Ciao.
@Alex.