Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/01/2003, 19:16
Avatar de carlunchos
carlunchos
 
Fecha de Ingreso: enero-2002
Ubicación: no tengo, soy un desubicado?.
Mensajes: 438
Antigüedad: 23 años, 3 meses
Puntos: 1
Pregunta Grabar mas de un sql.

Que tal sres. Foreros:
Tengo en un form1 y en el 2 tablas de 1 rowx5columns cada una. La idea es que los nombres de las columnas son las mismas para los 2 rows pero los valores de las celdas son distintos. Por ende escribi 2 sql:
sqlagrega1
sqlagrega2

Lo idspuse asi:
if num1<>"" then

set rst = Server.CreateObject("ADODB.Recordset")
sqlnum="select * from Consulta1 where NFact="&nfac
rst.open sqlnum, strProvider

set rst = Server.CreateObject("ADODB.Recordset")
sqlagrega1="Insert Into domicilios1(NFact,num, codcalle, prov, local, calle, numpol, depto) Values ("&nfac&", "&num1&", '"&codcalle1&"', '"&prov1&"', '"&local1&"', '"&calle1&"', "&numpol1&", '"&depto1&"')"
rst.open sqlagrega1 ,strProvider, adOpenDynamic, adLockReadOnly, adCmdText
end if

if num2<>"" then

set rst = Server.CreateObject("ADODB.Recordset")
sqlnum="select * from Consulta1 where NFact="&nfac
rst.open sqlnum, strProvider

set rst = Server.CreateObject("ADODB.Recordset")
sqlagrega2="Insert Into domicilios1(NFact,num, codcalle, prov, local, calle, numpol, depto) Values ("&nfac&", "&num2&", '"&codcalle2&"', '"&prov2&"', '"&local2&"', '"&calle2&"', "&numpol2&", '"&depto2&"')"
rst.open sqlagrega2, strProvider, adOpenDynamic, adLockReadOnly, adCmdText
end if

pero solo me guarda los datos del primer row (sqlagrega1).

Como deberia ser el codigo para que guarde los 2 insert into?

Gracias.
__________________
Carlunchos