canabis717
18 de Diciembre del 2003

como arreglo este error voy a pasar datos de una base a otra y la hice asi pero me da el error 3152 como lo arreglo?
Private Sub COMMAND1_Click()

Dim FUENTE As New ADODB.Recordset
Dim DESTINO As New ADODB.Recordset
FUENTE.Open "SELECT * FROM EMIARTICULOS", CN, adOpenKeyset, adLockReadOnly
DESTINO.Open "SELECT * FROM temporal", CN, adOpenKeyset, adLockReadOnly
FUENTE.MoveFirst
Do
With DESTINO
.AddNew
.Fields!ID = FUENTE.Fields!ID
.Fields!total = FUENTE.Fields!total
.Fields!txtfechaentrega = FUENTE.Fields!txtfechaentrega
.Fields!txtobservacion = FUENTE.Fields!txtobservacion
.Fields!txtmercado = FUENTE.Fields!txtmercado
.Fields!txtawb = FUENTE.Fields!txtawb
.Fields!txtcarton = FUENTE.Fields!txtcarton
.Fields!txttipocaja = FUENTE.Fields!txttipocaja
.Fields!txttotallos = FUENTE.Fields!txttotallos
.Fields!txtcajas = FUENTE.Fields!txtcajas
.Fields!txtal = FUENTE.Fields!txtal
.Fields!txttoventa = FUENTE.Fields!txttoventa
.Fields!txttocompra = FUENTE.Fields!txttocompra
.Fields!txtganancia = .Fields!txtganancia
.Fields!C = FUENTE.Fields!C
.Fields!R = FUENTE.Fields!R
.Fields!variedad = FUENTE.Fields!variedad
.Fields!tallo = FUENTE.Fields!tallo
.Fields!vendedor = FUENTE.Fields!vendedor
.Fields!proovedor = FUENTE.Fields!proovedor
.Fields!cliente = FUENTE.Fields!cliente
.Fields!num = FUENTE.Fields!num
.Update
End With
'List3.AddItem ARTIC.Fields!ARTICULO
FUENTE.MoveNext
Loop While Not FUENTE.EOF


End Sub

kinoscar
18 de Diciembre del 2003

fields se usa asi

fields("total").value=fuente.fields("total").value

ojeador
18 de Diciembre del 2003

ayuda de visual basic sobre la coleccion fields:

Para hacer referencia a un objeto Field en una colección por su número de orden o por su valor de propiedad Name, utilice los formatos de sintaxis siguientes:

Fields(0)
Fields("nombre")
Fields![nombre]

con lo cual ambas opciones son validas.

huanan
18 de Diciembre del 2003

Hola.
En tu codigo hay un error: el recordset llamado como "DESTINO" lo habres como solo lectura (adLockReadOnly) pero quieres lo quieres para añadir.

Ademas al abrir el recorset "FUENTE" haces un movefirst: no hace falta, y posiblemente el proveedor no dea hacer este comando. ¿ el error te da en esta linea?

Repasa ademas las propiedades de CN, cambia el tipo de cursor.

Espero que te sea util
huanan