La operación solicitada por la aplicación no es compatible con el proveedor
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
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
fields se usa asi
fields("total").value=fuente.fields("total").value
fields("total").value=fuente.fields("total").value
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.
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.
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
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