Newsgroup: it.comp.lang.visual-basic
Titolo: Help Listbox

Aiutoooo!!!
Premetto che lavoro in access e non in VB ma provo a postare anche qua
perche' ho un problema urgente.
sto sviluppando un prg cosi' composto:
Un DB sul server con solo le tabelle
Un DB sul client dove vorrei solo le form
Un DB sempre sul cliente con delle tabelle di supporto.
Ho fatto due DB sul client per due motivi,
1 - mantenere il piů leggero possibile il FE
2 - poter compattare piu' spesso il DB di supporto visto che ci sono
continui inserimenti e cancellazioni record e quindi dopo un ora di uso il
Db e' 12 mb.
a questo punto mi sorge il problema che penso sia stupido da risolvere ma
non ci riesco
Come faccio a dire a delle listbox e a delle combobox che devono prendere i
dati dal DB di supporto?
Premetto che non posso collegare le tabelle del DB di supporto ma pesco il
path da un file INI
Ho una function che mi mette in una variale il percorso del DB e quando mi
serve la chiamo e poi faccio cosi'
dim dbstemp as database
set dbstemp = opendatabase(percorsolocale, ,false)
Ciao a tutto il NG da Ricky

set dbstemp = opendatabase(percorsolocale, ,false)
Se associ le listbox o combo che siano ad un controllo Data, basta modificare la prop. secordsource
di quest'ultimo. Altrimenti (e mi pare di aver intuito che fai così), genera un recordset che punti
su una tabella del DB locale e quindi popili la listbox con quello:
set rsttemp=dbstemp.openrecordset("nometabella")
dove dbstemp è l'oggetto db già creato nel modo di cui sopra.
Poi, per popolare la listbox:
list1.clear
do
	list1.additem rsttemp("campo che vuoi usare")
	rsttemp.mevenext	
loop until rsttemp.eof
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 loop until rsttemp.eof
direi:
list1.clear
do until rsttemp.eof    'sennò se è già vuoto in partenza va in errore
    'Se il campo è di tipo String, caso mai sia null...
    list1.additem "" & rsttemp("campo che vuoi usare")
    rsttemp.movenext
loop
Ciao
Faber



OK, non fa una piega.... ;-))



Cacchio non funziona!!! Aiutooooooooo
Mi da' l'erroro su List1.clear e su List1.additem dicendomi che il metodo
non e stato trovato.
Devo mettere nei riferimenti di access qualche libreria particolare?



 non e stato trovato.
ehmmm... sei sicuro che la tua ListBox si chiami List1?  :)
Faber

 wrote in message
news:8dms35$cs0$1...@nmaster.tin.it...

Purtroppo ne sono sicuro.
ATTENZIONE che lavoro in access e non in VB, forse ci sono delle differenze
nei metodi supportati?



Beh, diciamo semplicemente che... cambia tutto!!! ;-)
Infatti nessuno dei due metodi è supportato dal controllo Elenco di Access.... quindi non saprei
come aiutarti...


 come aiutarti...
uh purtroppo neanch'io so come aiutarti, io e VBA non andiamo molto
d'accordo e non ne so nulla...     :(
Faber

 nei metodi supportati?
La casella di riepilogo di Access è un po' più flessibile.
E' sufficiente assegnare un recordsource alla proprietà
.RowSource del controllo.
SQL = "SELECT <NomeCampo> FROM <NomeTabella>"
List1.RowSource  = SQL
E' possibile assegnare alla proprietà anche il valore di ritorno di
una funzione custom.