Buena tarde, estimados tengo el siguiente código el cual tiene dos recordsets, el primero corre sin problemas ya que llena las tablas temporales y ejecuta el SP, el problema que tengo es que en la clausula Where del segundo recordset necesito utilizar la variable que declaro en el primer recordset. alguno tiene idea de como se hace esto.
Gracias
Cells.Clear
Dim oConn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Set oConn1 = New ADODB.Connection
oConn1.ConnectionString = "Provider=SQLOLEDB.1;Password=" & Contraseña.Text & ";Persist Security Info=True;User ID= " & Usuario.Text & "; Initial Catalog =" & bases.Text & ";Data Source= ADGNT01\ADG;"
oConn1.ConnectionTimeout = 200
oConn1.Open
Set rs1 = New ADODB.Recordset
rs1.ActiveConnection = oConn1
' rs1.Source = "SELECT * FROM CLIENTES"
Set rs2 = New ADODB.Recordset
rs2.ActiveConnection = oConn1
rs1.Open
rs2.Source = "Select P.NOMBRE_DEPARTAMENTO,M.NOMBRE_MUNICIPIO,R.NOMBRE_TERRITORIO,V.NOMBRE_VENDEDOR,C.CODIGO_DE_CONDICION,E.CODIGO_DE_CLIENTE,C.NOMBRE_CLIENTE, " & _
"D.CODIGO_MOVIMIENTO,D.SERIE_DEL_DOCUMENTO,D.NUMERO_DOCUMENTO, " & _
"(ME.MONTO_TOTAL * ME.CAMBIO_MONEDA_LOCAL) AS MONTO_MONEDA_LOCAL,D.SALDO_MONEDA_LOCAL,convert(varchar(10),D.FECHA_DOCUMENTO,103) AS FECHA_DOCUMENTO, " & _
"convert(varchar(10),D.FECHA_VENCIMIENTO,103) AS FECHA_VENCIMIENTO,D.DIAS_DE_ANTIGUEDAD, " & _
"CASE WHEN D.DIAS_DE_ANTIGUEDAD =0 THEN D.SALDO_MONEDA_LOCAL ELSE 0 END AS 'NO VENCIDO', " & _
"CASE WHEN D.DIAS_DE_ANTIGUEDAD >=1 AND D.DIAS_DE_ANTIGUEDAD <=15 THEN D.SALDO_MONEDA_LOCAL ELSE 0 END AS 'DE 1 A 15 DIAS', " & _
"CASE WHEN D.DIAS_DE_ANTIGUEDAD >=16 AND D.DIAS_DE_ANTIGUEDAD <=30 THEN D.SALDO_MONEDA_LOCAL ELSE 0 END AS 'DE 16 A 30 DIAS', " & _
"CASE WHEN D.DIAS_DE_ANTIGUEDAD >=31 AND D.DIAS_DE_ANTIGUEDAD <=60 THEN D.SALDO_MONEDA_LOCAL ELSE 0 END AS 'DE 31 A 60 DIAS', " & _
"CASE WHEN D.DIAS_DE_ANTIGUEDAD >=61 AND D.DIAS_DE_ANTIGUEDAD <=90 THEN D.SALDO_MONEDA_LOCAL ELSE 0 END AS 'DE 61 A 90 DIAS', " & _
"CASE WHEN D.DIAS_DE_ANTIGUEDAD >=91 AND D.DIAS_DE_ANTIGUEDAD <=9999 THEN D.SALDO_MONEDA_LOCAL ELSE 0 END AS 'DE 91 A 9999 DIAS' " & _
"From CLIENTES C INNER JOIN CLIENTES_SALDOS_E E ON E.CODIGO_DE_CLIENTE = C.CODIGO_DE_CLIENTE " & _
"INNER JOIN CLIENTES_SALDOS_D D ON D.CODIGO_DE_CLIENTE = E.CODIGO_DE_CLIENTE AND D.PROCESO_ID = E.PROCESO_ID " & _
"INNER JOIN MOVIMIENTOS_TIPO T ON T.CODIGO_MOVIMIENTO = D.CODIGO_MOVIMIENTO INNER JOIN DEPARTAMENTOS P ON C.CODIGO_DE_PAIS= P.CODIGO_DE_PAIS AND C.CODIGO_DEPARTAMENTO = P.CODIGO_DEPARTAMENTO " & _
"INNER JOIN MUNICIPIOS M ON C.CODIGO_DE_PAIS = M.CODIGO_DE_PAIS AND C.CODIGO_DEPARTAMENTO = M.CODIGO_DEPARTAMENTO AND C.CODIGO_MUNICIPIO = M.CODIGO_MUNICIPIO " & _
"INNER JOIN TERRITORIOS R ON C.CODIGO_TERRITORIO = R.CODIGO_TERRITORIO LEFT JOIN CLIENTE_VENDEDOR CV ON C.CODIGO_DE_CLIENTE = CV.CODIGO_DE_CLIENTE " & _
"LEFT JOIN VENDEDORES V ON CV.CODIGO_VENDEDOR = V.CODIGO_VENDEDOR INNER JOIN MOVIMIENTO_ENC ME ON D.SERIE_DEL_DOCUMENTO = ME.SERIE_DEL_DOCUMENTO AND D.NUMERO_DOCUMENTO = ME.NUMERO_DOCUMENTO AND D.CODIGO_MOVIMIENTO = ME.CODIGO_MOVIMIENTO " & _
"Where E.PROCESO_ID = @id And T.TIPO_TRANSACCION = 'S' And D.ID_EMPRESA = 'GN' And D.ID_SUCURSAL = '01' And D.ID_CENTRO_OPERATIVO = '001' AND D.SALDO_MONEDA_LOCAL > 0"
'"Delete CLIENTES_SALDOS_E Where PROCESO_ID = @id " & _
'"Delete CLIENTES_SALDOS_D Where PROCESO_ID = @id"
rs2.Open
encabezados
Range("A2").CopyFromRecordset rs2
'a = rs1.Fields.Count
' rs1.Close
rs2.Close
oConn1.Close
MsgBox ("Reporte Generado")
Set rs1 = Nothing
Set rs2 = Nothing
Set oConn1 = Nothing[/CODE]
[/size]
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buena tarde, estimados tengo el siguiente código el cual tiene dos recordsets, el primero corre sin problemas ya que llena las tablas temporales y ejecuta el SP, el problema que tengo es que en la clausula Where del segundo recordset necesito utilizar la variable que declaro en el primer recordset. alguno tiene idea de como se hace esto.
Gracias
[/size]