Problema al recoger los parámetros.

Hola de nuevo, y gracias por la anterior duda.
Ahora se me ha presentado un problema de ámbito distinto. Lo que hago es:
Set TBL = New ADODB.Recordset
TBL.Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If TBL.EOF Then
Exit Sub
Else
TBL.MoveFirst
Do Until TBL.EOF
sql2 = " INSERT INTO output (Nom) Values (TBL("Nom"))"
BDD.Execute sql2
TBL.MoveNext
Loop
End If
TBL1.Close
BDD.Close
Pero me dice que la sentencia de SQL esta mal construida, a la hora de pasar el parámetro. Es decir, es incorrecto esto de TBL("Nom")
¿Me puedes dar alguna solución?

1 Respuesta

Respuesta
1
Tu problema creo esta aquí:
sql2 = " INSERT INTO output (Nom) Values ('" & TBL("Nom") & "')"
No puedes colocar el nombre del campo dentro de elas comillas de la sentencia, tienes que armarla, así como te la coloque arriba.
Hola de nuevo. He cambiado tal y como me has indicado el parámetro a adOpenDynamic, pero aun así me sigue dando error como antes.
El error que me dice es:
"Variable de objeto o bloque With no establecido"
Ojala sepas de donde proviene el fallo y lo pueda solucionar lo antes posible.
Gracias por todo de nuevo.
En la sentencia de apertura del recordset TBL. Open, hay un parámetro que esta mal, si vas a modificar o a insertar debes utilizar adOpenDynamic, no adOpenKeyset, pues adOpenKeyset es un recordset de lectura.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas