08/01/2008, 02:35
|
 | | | Fecha de Ingreso: julio-2003 Ubicación: Madrid
Mensajes: 16
Antigüedad: 21 años, 9 meses Puntos: 1 | |
| Re: ¿Cómo puedo mejorar esta rutina?
El codigo seria algo así.
Código:
...
STRCONNL1="driver={SQL server};server=xxx1;uid=xxx;pwd=;database=xxx1"
SET OCONN1= Server.CreateObject("ADODB.Connection")
OCONN1.OPEN STRCONNL1
STRCONNL2= "DSN=informix"
SET OCONN2= Server.CreateObject("ADODB.Connection")
OCONN2.OPEN STRCONN2
SET RSPEDIDOS= Server.CreateObject("ADODB.Recordset")
SET RSCLIENTES= Server.CreateObject("ADODB.Recordset")
RSPEDIDOS.SOURCE= consulta1
RSPEDIDOS.OPEN, OCONN1, 1, 1
IF RSPEDIDOS.EOF<> TRUE THEN
RSCLIENTES.SOURCE= consulta 2 con un filtro de rspedidos
RSCLIENTES.OPEN, OCONN2, 1, 1
RSCLIENTES.CLOSE
END IF
RSPEDIDOS.CLOSE
OCONN1.CLOSE
OCONN2.CLOSE
SET RSPEDIDOS= NOTHING
SET RSCLIENTES= NOTHING
SET OCONN1= NOTHING
SET OCONN2= NOTHING
...
|