Newsgroup: it.comp.lang.visual-basic
Titolo: inserire da codice un valore in un campo di un recordset

Scusate ho un problema di questo tipo devo aggiungere un recordset ad una
tabella temporanea di access
ma mentre vado ad aggiungere i valori del recorset ai vari campi, in un
campo che si chiama flag devo inserire un carattere letterale una "L" io ho
utilizzato questo codice ma mi da un'errore,
With DE_Dati.rsCOM_TEMP
   .AddNew
   For Each fld In .Fields
        With fld
             .Value = DE_Dati.rsCOM_SCELTA(.Name).Value
                          End With
             Next fld
             .Update
              DE_Dati.rsCOM_TEMP("prog").Value = "L"
              DE_Dati.rsCOM_TEMP.MoveNext
             End With
Come faccio a inserire nel campo della colonna "prog" il valore L????
Grezie a tutti !!!!!!
--
----------------------------------------------------------------------------
------------
Stefano Grassi
System  Admin Sabiana S.p.A
Sabiana S.p.A
Via Piave , 53 20011
Corbetta MI
Tel. 02972031
Web Site: 
www.Sabiana.it
 
www.Sabiana.com
----------------------------------------------------------------------------
--------------------------------------------------------
INFORMAZIONI STRETTAMENTE CONFIDENZIALI
L'invio di questa e-mail è destinato solo ad uso personale o a enti sopra
nominati e potrebbe contenere informazioni riservate, coperte da segreto
professionale e non soggette a divulgazione ai sensi di legge. Se non ne
siete i corretti destinatari, con la presente siete informati che non Vi è
assolutamente permessa alcuna divulgazione, copia, distribuzione, o altro
uso delle informazioni in essa contenute. Se per errore avete ricevuto
questo messaggio, Vi chiedo cortesemente di informarmi immediatamente al
mio indirizzo di posta elettronica. Grazie.

Ti consiglio di non utilizzare With innestate, perchè il comportamento del
codice diventa
imprevedibile...come ti è di fatto successo!
Lascia quello esterno ed elimina quello interno.
E prova
--------------------------------
Inviato via 
http://usenet.libero.it

               DE_Dati.rsCOM_TEMP("prog").Value = "L"
buon lavoro...

Ma Io ho usato anche questo tipo di codice con edit e update ma non funziona
!!!!
With DE_Dati.rsCOM_TEMP
   .AddNew
   For Each fld In .Fields
        With fld
             .Value = DE_Dati.rsCOM_SCELTA(.Name).Value
             End With
             Next fld
             .Update
             .EditMode
              DE_Dati.rsCOM_TEMP("prog").Value = "L"
              .Update
              DE_Dati.rsCOM_TEMP.MoveNext
             End With

               .Update
Buon lavoro, Giorgio.

Si e'  vero hai ragione
dunque sto utilizzando ADO tramite DataEnvironmnet
e il messaggio di errore mi dice che la prorieta' value del campo Field e'
in sola lettura  ma non capisco perche' visto che con quel codice riesco a
portarmi tutti i valori di ogni campo di un recordset all'interno di
un'altro recordset vuoto.
Riassumendo il codice che mi porta i valori da un datagrid  ad un'altro e'
questo :
Dim fld As ADODB.Field
With DE_Dati.rsCOM_TEMP
   .AddNew
   For Each fld In .Fields
        With fld
             .Value = DE_Dati.rsCOM_SCELTA(.Name).Value
             End With
             Next fld
            .Update
              DE_Dati.rsCOM_TEMP.MoveNext
             End With
e funziona benissimo !!!! ora il mio problema e' che all'interno del
recordset rsCom_temp che visualizza il contenuto della tabella temp di
access c'e' un campo  FL_PROD che normalmente e' blank  e devo cambiare il
valore a "L" ma se uso questa riga di codice
DE_Dati.rsCOM_TEMP.Fields("FL_PROD") = "L"
mi da come errore " impossibile trovare l'oggetto nell'insieme
corrispondente al nome o al numero richiesto "
Ciao Ste :-))