[VB 6] Errore su record.movenext

[allejo]

Ciao a tutti

while not record.eof
addnew
record.movenext
wend

Inserisco tanti record ad un certo punto nel record.movenext mi da questo errore:
il provider di dati o un altro servizio ha restituito una stato E_FAIL



Mi sapete aiutarmi?

[xegallo]

stai facendo un ciclo infinito

[allejo]

Originariamente inviato da xegallo
stai facendo un ciclo infinito

Un ciclo infinito?
No finisce fino a record.eof

while not record.eof 
addnew 
record.movenext 
wend

[GudFella]

Originariamente inviato da allejo
Un ciclo infinito?
No finisce fino a record.eof

while not record.eof 
addnew
record.movenext 
wend

però ad ogni giro aggiungi un record ... (addnew)

[allejo]

forse non mi sono spiegato bene

ciclo su una tabella di nome pippo -record
addnew su tabelle di nome pluto
record.movenext -ovvero sulla tabella pippo
update su tabella pluto
wend

Mi sono spiegato bene?

[xegallo]

Originariamente inviato da allejo
forse non mi sono spiegato bene

ciclo su una tabella di nome pippo -record
addnew su tabelle di nome pluto
record.movenext -ovvero sulla tabella pippo
update su tabella pluto
wend

Mi sono spiegato bene?

adesso si non è la stessa cosa che avevi scritto prima
cmq per tornare al problema dovrei sapere i 2 recordset come sono aperti

[allejo]

allora posto il mio codice

Dim rcset as ADODB.Recordset
Dim lvtb As Table  
Set rcset = New ADODB.Recordset
rcset.CursorLocation = adUseClient
rcset.Open "SELECT * " & _
            "FROM PIPPO  ", DB, adOpenForwardOnly

Set dbSiggraph = OpenDatabase(gvs_path_graph & "ACCESSO.mdb", False, False)

Set lvtb = dbSiggraph.OpenTable("pluto")
    lvtb.Index = "PrimaryKey"

While Not rcset.EOF
    lvtb.AddNew
    lvtb!Pluto = Trim(rcset!Pippo)
    lvtb.Update
    rcset.MoveNext
Wend
rcset.Close
End Sub

Ecco il mio piccolo codice
Fa tanti inserimenti ad un certo pundo si ferma su rcset.movenext e mi da quell'errore

[allejo]

Nessuno mi può aiutare?

[allejo]

Ho trovato l'errore xkè non supportava questa sintassi
rcset.CursorLocation = adUseClient
Xkè?
Se lo tolgo funziona tutto.