Como realizar Insert ha una variable q trae un listado

[mparadas]

Como puedo realizar el insert ha una tabla cuando la variable que viene de un recordset trae un listado de codigo como ingreso ese listado a otra tabla he probado con addnew de esta forma y corre el prorama pero no inserta nada en la tabla

Set RS1 = Server.CreateObject("ADODB.Recordset")
sqlstr= " SELECT * "
sqlstr= sqlstr & " FROM sistemges_gestion, sistemges_actividad"
sqlstr= sqlstr & " where codigo_actividad_gestion= codigo_actividad "
Rs1.CursorType = 0
Rs1.CursorLocation = 2
Rs1.LockType = 3
RS1.Open sqlstr, oConn,2,3
do while not rs1.eof

rs1.AddNew
rs1.Fields("codigo_actividad") = rs1("codigo_actividad_gestion")

rs1.GuardarBD rs1.Fields("codigo_actividad_gestion")
RS1.movenext
loop
RS1.Close
response.Write("Datos Cargados")
response.write RS1("codigo_actividad")

[a n g e l u s]

Haber Si Te Entiendo, Quieres Copiar Un Dato De Una Tabla A Otra En Resumen De Todo Lo Que Intentas Dicir!!!? Cierto!!?

El Codigo No Te Lo Entiendo Pa Na, Tiene Que Ser Por Que Hoy Es Lunes, Analizemos El Procedimiento Mejor.

Primero Cuentame Las Tablas Que Vas A Usar, El Dato Que Se Va A Traspasar Y A Que Tabla Se Va A Traspasar Ese Dato.

Y Con Eso Quedamos Listo Como Para Ayudarte, Por Lo Menos Yo.

[ElAprendiz]

do while not rs1.eof
sql="insert into tabla2 (campo1, campo2)values("&rs1("campo1")&", "&rs1("campo2")&")"
set rs2=conn.execute(sql)
RS1.movenext
loop

[trasgukabi]

Mejor

Código:

do while not rs1.eof
sql="insert into tabla2 (campo1, campo2)values("&rs1("campo1")&", "&rs1("campo2")&")"
conn.execute(sql)
RS1.movenext
loop

[mparadas]

Iniciado por ElAprendiz

do while not rs1.eof
sql="insert into tabla2 (campo1, campo2)values("&rs1("campo1")&", "&rs1("campo2")&")"
set rs2=conn.execute(sql)
RS1.movenext
loop

la tabla 1A al aplicarle el select me trae por ejemplo un listado con numeros de cedulas esas cedulas les tengo q cargar el nombre y apellido e ingresarlo a la tabla 1B pero con este insert q cito q publico El aprendiz me inserta la primera cedula mas no las restantes

[ElAprendiz]

no deberias tener problemas para insertar, a menos que la consulta que hiciste te devuelva un solo registro.

puedes colocar un contador para ver cuantas vueltas da.
i=0
do while not rs1.eof
sql="insert into tabla2 (campo1, campo2)values("&rs1("campo1")&", "&rs1("campo2")&")"
set rs2=conn.execute(sql)
i=i+1
RS1.movenext
loop
response.write i

[mparadas]

Iniciado por ElAprendiz

no deberias tener problemas para insertar, a menos que la consulta que hiciste te devuelva un solo registro.

puedes colocar un contador para ver cuantas vueltas da.
i=0
do while not rs1.eof
sql="insert into tabla2 (campo1, campo2)values("&rs1("campo1")&", "&rs1("campo2")&")"
set rs2=conn.execute(sql)
i=i+1
RS1.movenext
loop
response.write i

disculpa lo coloque de la forma q me dices pero me muestra cero eso quiere decir q no esta realizando el loop

[ElAprendiz]

si es cero, es que no encontro ningun registro



saludos

[ElAprendiz]

haber, como dijo jack el destripador, vamos por partes

sqlstr= " SELECT * "
sqlstr= sqlstr & " FROM sistemges_gestion, sistemges_actividad"
sqlstr= sqlstr & " where codigo_actividad_gestion= codigo_actividad "

codigo_actividad es una variable?
y sistemges_actividad es otra tabla?

[mparadas]

Iniciado por ElAprendiz

haber, como dijo jack el destripador, vamos por partes

sqlstr= " SELECT * "
sqlstr= sqlstr & " FROM sistemges_gestion, sistemges_actividad"
sqlstr= sqlstr & " where codigo_actividad_gestion= codigo_actividad "

codigo_actividad es una variable?
y sistemges_actividad es otra tabla?

si Codigo_actividad lo llamo con un recordset es decir es una variable
y sistemges_actividad es otra tabla

[Myakire]

Iniciado por mparadas

si Codigo_actividad lo llamo con un recordset es decir es una variable
y sistemges_actividad es otra tabla

entonces es:

sqlstr= " SELECT * "
sqlstr= sqlstr & " FROM sistemges_gestion, sistemges_actividad"
sqlstr= sqlstr & " where codigo_actividad_gestion= " & codigo_actividad

Por cierto. esa consulta esta mal relacionada, te va a regresar registros "de más".

Saludos