Problemas con un RecordSet

[bufy]

Hola

He hecho el siguiente código:

Dim dbinicio As Database
Dim regdbinicio As Recordset
Dim dbtransicion As Database
Dim regdbtransicion As Recordset
Dim sql As String



ChDir App.Path
Set dbinicio = OpenDatabase("inicio.mdb")
Set dbtransicion = OpenDatabase("transicion.mdb")

sql = "select * from articulo"
Set regdbinicio = dbinicio.OpenRecordset(sql)
While (Not regdbinicio.EOF)
sql = "insert into articulosvendidos values ('" & regdbinicio!cref
sql = sql + "','" & regdbinicio!detalle
sql = sql + "',0)"
dbtransicion.Execute (sql)
regdbinicio.MoveNext
Wend


Cuando lo ejecuto me da el siguienete error en la línea roja

"no coinciden los tipos de datos"

¿Alguien podría orientarme y decirme a que puede deberse este error?. Muchas gracias de antemano

Un saludo

[sdemingo]

Iniciado por bufy

Hola

He hecho el siguiente código:

Dim dbinicio As Database
Dim regdbinicio As Recordset
Dim dbtransicion As Database
Dim regdbtransicion As Recordset
Dim sql As String



ChDir App.Path
Set dbinicio = OpenDatabase("inicio.mdb")
Set dbtransicion = OpenDatabase("transicion.mdb")

sql = "select * from articulo"
Set regdbinicio = dbinicio.OpenRecordset(sql)
While (Not regdbinicio.EOF)
sql = "insert into articulosvendidos values ('" & regdbinicio!cref
sql = sql + "','" & regdbinicio!detalle
sql = sql + "',0)"
dbtransicion.Execute (sql)
regdbinicio.MoveNext
Wend


Cuando lo ejecuto me da el siguienete error en la línea roja

"no coinciden los tipos de datos"

¿Alguien podría orientarme y decirme a que puede deberse este error?. Muchas gracias de antemano

Un saludo

y por qué no lo haces con ADO como todo hijo de vecino

[rahd_rr]

sql = "insert into articulosvendidos values ('" & regdbinicio!cref & '", "' & regdbinicio!detalle & "', 0)"

intenalo asi yo piensoq eu ese error esta en la fotma en que pasa los valores deberias ponerlo de la forma general......

[bufy]

Iniciado por sdemingo

y por qué no lo haces con ADO como todo hijo de vecino

Pues porque siempre lo he hecho así y me ha funcionado y no se porque demonios hoy no tira.

[bufy]

Bueno, pues ya tengo la solución. La pongo por si algún día alguien se encuentra con el mismo problema, era una chorrada. Este error se produce cuando están activadas en conjunto las referencias a ADO y a DAO

[sdemingo]

Iniciado por bufy

Bueno, pues ya tengo la solución. La pongo por si algún día alguien se encuentra con el mismo problema, era una chorrada. Este error se produce cuando están activadas en conjunto las referencias a ADO y a DAO

mmmm que raro... yo tengo en un proyecto ambas referencias activas porque tiro de las dos y no me da problemas

[mikivivone]

tambien puede ser un problema de referencias,proba declarar el recordset con new
asi creas la variable y no solo una referencia de ella.

bye