Newsgroup: it.comp.appl.access
Titolo: memorizzare un recordset

Ciao
qual è il sistema più veloce per memorizzare un recordset (es il recordclone
di una form!) in una tabella per usi futuri ?
via codice è piuttosto lento.. non c'è una query di comando ?
ciao ciao Adriano

via codice č piuttosto lento.. non c'č una query di comando ?
Scusa, il recordset l'avrai creato con un query o comunque da una tabella,
no?
Anziche' SELECT fai un bell'INSERT INTO e hai risolto con una velocita'
molto superiore.
Saluti.
Luciano

 Luciano
Ok.. ma supponiamo che il recordset salti fuori dalla proprietą
recordsetclone di una maschera.
E supponiamo che la maschera sia filtrata... coem faccio ?
non posso certo usare la proprietą filter della form!
Infatti se fai un filtro by form che assegna qualche valore ad una casella
combinata che ha la collonna indice nascosta (chiaro?) ti troverai delle
cose strane in me.filter che non puoi usare nel codice sql....
e quindi come posso fare ?
Grazie!

 cose strane in me.filter che non puoi usare nel codice sql....
Non mi sono del tutto chiare le tue esigenze.
E' possibile avere a disposizione il recordset in una matrice:
Dim rs as Recordset
Dim varRecordset  As Variant
Set rs = ..................
rs .MoveLast
varRecordset = rs.GetRows(rs.RecordCount)
Cerca  "GetRows" nell'help per saperne di piu'.
    Paolo


infatti al momento faccio proprio così...
tuttavia i vorrei fare delle registrazioni permanenti quindi su tabella e
non su matrice...
grazie

Adriano <Adriano....@silink.it.(togli le parentesi)> wrote in message
94984203...@server.silink.com...

Prova ad utilizzare la seguente routine:
Dim dbs As DATABASE
Dim rstOrigine As Recordset
Dim rstDestinazione As Recordset
Set dbs = CurrentDb()
Set rstOrigine = Forms![Nome Maschera].Form.RecordsetClone
Set rstDestinazione = dbs.OpenRecordset("Nome Tabella")
rstOrigine.MoveFirst
Do While Not rstOrigine.EOF
    rstDestinazione.AddNew
    rstDestinazione![Campo1] = rstOrigine![Campo A]
    rstDestinazione![Campo2] = rstOrigine![Campo B]
    ...
    rstDestinazione.Update
    rstOrigine.MoveNext
Loop
Probabilmente esisterà un metodo più rapido per risolvere lo stesso problema
ma quello che ti ho proposto funziona e non mi sembra particolarmente lento.
Saluti.
AlexFreeNet  :-)

 cose strane in me.filter che non puoi usare nel codice sql....
Lascia perdere la proprieta' recordsetclone, fammi capire cosa intendi con
"cose strane", perche' non mi risultano cose strane nella proprieta'
me.filter, soprattutto non mi risulta che possa contenere cose non
utilizzabili in un sql
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


è presto detto...
Creati una form con una casella combinata a 2 due colonne legata ad una
colonna di larghezza zero.
Es:
Metti come rowsource:
Select IDCliente, Cliente From Clienti
ora imposta le seguenti
larghezza colonne: "0;5"
Colonna associata: 1
Apri la form
Apri un filtro by form
Ora prova a filtrare la form (supponiamo sia la form Fatture) con un
criterio sul controllo IDCliente; ad esempio scrivi "A*" in modo da avere
tutte le fatture di tutti i clienti che iniziano per "A"
applica il filtro
Senza chiudere la form premi ctrl+G
nella finestra immediata (o di debug)  scrivi:
? Forms("Fatture").filter
ti comparirà una cosa tipo
((Lookup_IDCliente.Cliente Like "A*"))
come è giusto che sia... infatti alla definizione di Cliente "A*" possono
corrispondere diversi IDCliente e quindi access non può certo rappresentarli
tutti immediatamente! e quindi non può comparire una cosa tipo "IDCliente=
2" or "IDCLiente = 56" or "IDCliente = 23" or...
che se provi a mettercela pari pari nel codice sql viene interpretata come
un parametro e quindi ti compare la inputbox!
Se non sono stato chiaro avvisami e ti spedisco a casa un piccolo db zippato
d'esempio.





