Conjunto de registros

[kschwartz]

Saludos..
Tengo un conjunto de registros que obtengo de una tabla y deseo grabarla en otra... cunado itento grabar solo me graba un registro... a lo mejor no es el tema correcto... pero solicito su ayuda ..

<%melo=split(request.form("dato"),",")%>
<%
meli=split(request.form("dato"),",")
fcode=request.form("fax")
oacod=request.form("oax")
exp0=request.form("uni")
exp1=request.form("max")
exp2=request.form("pecode")
var1=meli(0)
var2=meli(1)
pcode=000101
set rs_cur=createobject("ADODB.Recordset")
sqltxt2="select FACCODIGO,PLLLLAVECUR,CURCODIGO,CURDESC,PAECODIGO FROM VW_PAC_PROGRAMACION WHERE PRECODIGO LIKE '%"&pcode&"%' and OACCODIGO LIKE'%"&oacod&"%' and FACCODIGO LIKE'%"&fcode&"%' and SEMCODIGO LIKE '%"&var1&"%' and SECCODIGO LIKE '%"&var2&"%'"
rs_cur.open sqltxt2,"DSN=xxx;PWD=xxx"
llave=RS_cur("PLLLLAVECUR")

%>
<% set rs_graba=createobject("ADODB.Recordset")
sqltxt3="INSERT INTO S_A_WWW_LLAVE VALUES('" &exp0& "','" &exp1& "',000101,'" &oacod& "','"&fcode&"','"&exp2&"','"&llave&"',0)"
rs_graba.open sqltxt3,"DSN=xxx;PWD=xxx"

%>
necesitaria hacer un Do..While'..? donde lo pongo para que grabe todos los registros que obtengo de la consulta..
Gracias de antemano..

[trasgukabi]

Código:

do while not  rs_cur.eof
sqltxt3="INSERT INTO S_A_WWW_LLAVE VALUES('" &exp0& "','" &exp1& "',000101,'" &oacod& "','"&fcode&"','"&exp2&"','"&llave&"',0)" 
conn.execute sqltxt3
rs.movenext
loop

[kschwartz]

Hola amigo..
gracias por responder..
He tratado de acomodar a mi codigo la onbservacion que me hiciste pero no he podido hacer que funcione... otra sugerencia?
Como te comente hasta hora solo me graba un registro en la base... y lo que necesito es que me grabe un conjunto de ellos que obtengo de la consulta...

Gracias por su ayuda

[kschwartz]

No he podido hacer que fun cione hasta ahora..
ustedes creen que lo poria hacer mediante esta froma INSERT INTO .. SELECT
como seria el código en este caso.... he probado pero no logro nada....

[kschwartz]

Saludos
Al hacerlo con do while trata de garbar la misma fila y ...

Código:

<%set rs_cur=createobject("ADODB.Recordset")
sqltxt2="select FACCODIGO,PLLLLAVECUR,CURCODIGO,CURDESC,PAECODIGO FROM VW_PAC_PROGRAMACION WHERE PRECODIGO LIKE '%"&pcode&"%' and OACCODIGO LIKE'%"&oacod&"%' and FACCODIGO LIKE'%"&fcode&"%' and SEMCODIGO LIKE '%"&var1&"%' and SECCODIGO LIKE '%"&var2&"%'" 
rs_cur.open sqltxt2,"DSN=xxx;PWD=xxx" 
llave=RS_cur("PLLLLAVECUR")
%>

<%do while not rs_cur.eof%>
<% set rs_graba=createobject("ADODB.Recordset")
sqltxt3="INSERT INTO S_A_WWW_LLAVE VALUES('" &exp0& "','" &exp1& "',000101,'" &oacod& "','"&fcode&"','"&exp2&"','"&llave&"',0)" 
rs_graba.open sqltxt3,"DSN=xxx;PWD=xxx" %>

<%
rs_cur.movenext
loop
%>

Que puedo hacer?????

[AlZuwaga]

Código:

<%do while not rs_cur.eof%>
<% 
sqltxt3="INSERT INTO S_A_WWW_LLAVE VALUES('" &exp0& "','" &exp1& "',000101,'" &oacod& "','"&fcode&"','"&exp2&"','"&llave&"',0)" 
tu_conexion.execute sqltxt3 %>

<%
rs_cur.movenext
loop
%>

edit: me acabo de dar cuenta que es lo mismo que te respondió trasgukabi unos mensajes más arriba

[kschwartz]

Hola
Disculpen las molestias... soy novel en esto ... estoy seguroque la respuesta esta en mi nariz y no la puedo ver...

Me respondieron esto:

Código:

<%do while not rs_cur.eof%>
<% 
sqltxt3="INSERT INTO S_A_WWW_LLAVE VALUES('" &exp0& "','" &exp1& "',000101,'" &oacod& "','"&fcode&"','"&exp2&"','"&llave&"',0)" 
tu_conexion.execute sqltxt3 %>

<%
rs_cur.movenext
loop
%>

Esta perfecto... pero el asunto es que no se como acomodar tu_conexion para que funcione... yo uso para conectarme Recordset y mi conexion es :

Código:

set rs_graba=createobject("ADODB.Recordset")
rs_graba.open sqltxt3,"DSN=xxx;PWD=xxx"

Acaso dbe quedar asi...?

Código:

<%do while not rs_cur.eof
sqltxt3="INSERT INTO S_A_WWW_LLAVE VALUES('" &exp0& "','" &exp1& "',000101,'" &mela1& "','"&mela2&"','"&exp2&"','"&llave&"',0)" 
set rs_graba=createobject("ADODB.Recordset")
rs_graba.open sqltxt3,"DSN=xxx;PWD=xxx"
 %>
<%rs_cur.movenext
loop%>
%>

Gracias y disculpen tantas molestias...

[AlZuwaga]

Acaso dbe quedar asi...?

Te pido el favor que lo pruebes y me comentes si acaso esa forma es correcta (nunca trabajé de esa manera... siempre instancio un objeto connection y luego lo utilizo)

[kschwartz]

Gracias amigo... lo he probado y nada... yo trate de usar connection pero no se conecta a la base Oracle con la que trabajo, me funciona con Recordset... voy a seguir probando..
Gracias y disculpen otra vez

[AlZuwaga]

Bueno, entonces probá de esta manera:

Código:

<%do while not rs_cur.eof%>
<% set rs_graba=createobject("ADODB.Recordset")
sqltxt3="INSERT INTO S_A_WWW_LLAVE VALUES('" &exp0& "','" &exp1& "',000101,'" &oacod& "','"&fcode&"','"&exp2&"','"&llave&"',0)" 
rs_graba.open sqltxt3,"DSN=xxx;PWD=xxx"
set rs_graba = nothing
rs_graba.close
%>

<%
rs_cur.movenext
loop
%>

Pero me parece una paparruchada crear un recordset para hacer un insert.

[kschwartz]

Gracias amigos..
Ya funciona mi conexión, era la forma de grabar mas una condicion en la bd.... muy agradecido por sus sugerencias Al Zuwaga y trasgukabi..

Saludos