[VBA ACCESS 2002] Accodare recordset a tabella

[Desperado]

Devo accodare un recordset ad una tabella, come posso fare???

La tabella ha 2 campi id_servizio e id_fruitore, il recordset ha al suo interno un elenco di id_fruitore mentre il campo id_servizio che dovrei accodare è in una variabile che ho chiamato serv.

Grazie mille

[Brainjar]

Non potresti essere più preciso ?
Cosa devi esattamente fare, aggiungere un recor al recordset ?
O riempire un campo in un record ?

Se non è chiaro il problema, non ti possiamo aiutare.

Ciao,

[Desperado]

esempio:
la tabella tbl_servizi_fruitori contiene questi dati

id_servizio      id_fruitore
GE1216253658     GE1524788965
GE1216253658     GE5698746251
GE2565874125     GE6986545241
GE2565874125     GE2458997563

In un recordset metto i valori di id_fruitore che hanno come id_servizio GE1216253658.
Ora devo accodare alla tabella tbl_servizi_fruitori questo recordset assegnando al valore id_servizio per ogni record accodato un valore che ho in una variabile presa dalla maschera.
Spero che sia chiaro, ho fatto delmio meglio

[Brainjar]

Perchè usi il recordset con, mi sembra di capire, il solo campo
id_fruitore ?

Non puoi aggiungere direttamente un record con tutti e due i campi
nella tabella ?

Ancora non è chiaro, un piccolo sforzo.

Ciao,

[Desperado]

perchè non mi interessa che accodi anche il campo id_servizio, in quanto quello avrà il valore che ho nella variabile, e non quello che aveva in tabella...
In pratica, da una situazione così

id_servizio      id_fruitore
GE1216253658     GE1524788965
GE1216253658     GE5698746251
GE2565874125     GE6986545241
GE2565874125     GE2458997563

devo arrivare ad avere una situazione così

id_servizio      id_fruitore
GE1216253658     GE1524788965
GE1216253658     GE5698746251
GE2565874125     GE6986545241
GE2565874125     GE2458997563
(VARIABILE X)    GE1524788965
(VARIABILE X)    GE5698746251

dove VARIABILE X è un valore che prendo da una maschera.

Come si nota i valori di id_servizio abbinati a VARIABILE X sono i medesimi che erano nei primi due record, mentre il valore di id_servizio è cambiato.

[Desperado]

Uppettino, scusate...

[Brainjar]

Provo a imbastire una soluzione.
Te la posto verso l'ora di pranzo.Ora ho da fare.

Ciao,

[Desperado]

La soluzione al probelma n° 1 l'ho trovata (alla fine non è poi così difficile,non so perchè non ci ho pensato)... Bastava fare così:

    Set objRS = objConn.Execute("SELECT id_fruitore FROM Tbl_servizi_fruitori where id_servizio = '" & serv & "'")
    objRS.MoveFirst
While Not objRS.EOF
MsgBox objRS.Fields("id_fruitore").Value
objConn.Execute "INSERT INTO Tbl_servizi_fruitori " & _
                 "(id_servizio,id_fruitore) " & _
                 "VALUES ('" & _
                 serv & "','" & objRS.Fields("id_fruitore").Value & "');"
   objRS.MoveNext
Wend

Ora però mi si pone un'altro problema: ogni volta che lancio il comando, accessmi da messaggiodi errore perchè dice che non può bloccare la tabella perchè è in uso (ed in effetti lo è, dalla maschera dal quale lancio il comando).
Come si fa ad aggiarare questo ostacolo???
Sigh... se non lo faccio entro oggi non posso consegnare e ho dei seri problemi!!!

[Brainjar]

Prova a disconnettere il resodset dalla connessione. In pratica,
prima di eseguire la ojjConn.Execute ...... :

 
Set objRS = objConn.Execute("SELECT id_fruitore FROM Tbl_servizi_fruitori where id_servizio = '" & serv & "'")
' ------------------------------------------------
' Effettua la disconnessione
' ------------------------------------------------
  Set objRS.ActiveConnection = Nothing
' ------------------------------------------------
objRS.MoveFirst
While Not objRS.EOF
MsgBox objRS.Fields("id_fruitore").Value
objConn.Execute "INSERT INTO Tbl_servizi_fruitori " & _
                 "(id_servizio,id_fruitore) " & _
                 "VALUES ('" & _
                 serv & "','" & objRS.Fields("id_fruitore").Value & "');"
   objRS.MoveNext
Wend

Con la disconnessione fovresti liberare le risorse collegate al
recordset e l'eventuale blocco sulla tabella.

Purtroppo, come si discuteva con Alka, qualche post fa, molte
soluzioni solo alla fine dimostrano limiti che inizialmente non
erano previsti.

In bocca al lupo.

Ciao,

[Desperado]

Ma se faccio così non svuoto il recordset e quindi perdo i dati che devo accodare???