Consulta en Access

bigpetroman · el 29 de junio

Buenas tardes, amigos para ver si alguien me puede dar una mano, tengo las siguientes 2 tablas en Access (son un ejemplo, la primera linea es el encabezado)

TABLA 01
Articulo   Fecha   Campo_01   Campo_02
Articulo_01   01-jun   Valor_01   Valor_C01
Articulo_02   02-jun   Valor_02   Valor_C02
Articulo_03   03-jun   Valor_03   Valor_C03
Articulo_04   04-jun   Valor_04   Valor_C04
Articulo_01   15-may   Valor_05   Valor_C05
Articulo_02   15-may   Valor_06   Valor_C06
Articulo_03   15-may   Valor_07   Valor_C07
Articulo_04   15-may   Valor_08   Valor_C08

TABLA 02
Articulo   Fecha2   Campo_Relacionado
Articulo_01   15-jun   Valor_18
Articulo_01   01-jun   Valor_01
Articulo_02   02-jun   Valor_02
Articulo_03   03-jun   Valor_03
Articulo_04   04-jun   Valor_04
Articulo_05   05-jun   Valor_05
Articulo_06   06-jun   Valor_06
Articulo_07   07-jun   Valor_07
Articulo_08   08-jun   Valor_08
Articulo_09   09-jun   Valor_09
Articulo_01   01-may   Valor_10
Articulo_02   02-may   Valor_11
Articulo_03   03-may   Valor_12
Articulo_04   04-may   Valor_13

Quiero hacer una consulta que me traiga los datos de la tabla 1 y los campos Fecha2 y Campo_Relacionado de la tabla 2 donde
Tabla_01.Articulo = Tabla_02.Articulo
Tabla_02.Fecha2 <= Tabla_01.Fecha
El resultado que quiero es el siguiente, pero no lo logro, me trae los datos duplicados de la tabla_01

Articulo   Fecha   Campo_01   Campo_02   Fecha2   Campo_Relacionado
Articulo_01   01-jun   Valor_01   Valor_C01   01-jun   Valor_01
Articulo_02   02-jun   Valor_02   Valor_C02   02-jun   Valor_02
Articulo_03   03-jun   Valor_03   Valor_C03   03-jun   Valor_03
Articulo_04   04-jun   Valor_04   Valor_C04   04-jun   Valor_04
Articulo_01   15-may   Valor_05   Valor_C05   01-may   Valor_10
Articulo_02   15-may   Valor_06   Valor_C06   02-may   Valor_11
Articulo_03   15-may   Valor_07   Valor_C07   03-may   Valor_12
Articulo_04   15-may   Valor_08   Valor_C08   04-may   Valor_13

Si alguno puede echarme una mano, gracias

anexo un archivo excel con las tablas por si alguno quiere hacer alguna prueba

Miprueba.xls

Antoni · el 29 de junio

Hola:

Aunque la consulta está en el foro de Access, entiendo que quieres que la macro se ejecute desde Excel, si no es así, intetaría adaptar la macro a Access.

Creo que lo he resuelto, pero he sido incapaz de hacerlo solo con sentencias SQL, mi SQL, de no usarlo, está algo oxidado.

He hecho un mix entre SQL y VBA. El resultado se obtiene en la Hoja2.

A ver si es esto.



Dim cnn As Object, rs As Object, SQL As Variant

Dim Fecha As Date, Relacionado As Variant


Sub Consulta()

Application.ScreenUpdating = False

'-----------------------------

Set cnn = New ADODB.Connection

With cnn

   .Provider = "microsoft.jet.oledb.4.0"

   .ConnectionString = "data source=" & [COLOR=#0000cd][B]ThisWorkbook.Path & "\ayuda.mdb"[/B][/COLOR]

   .Open

End With

'--------------------------------------

Hoja2.Cells.ClearContents

Set rs = CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM [COLOR=#0000ff][B]TABLA_01 [/B][/COLOR]ORDER BY 1,2"

Set rs = cnn.Execute(SQL)

Hoja2.Range("A2").CopyFromRecordset rs

rs.Close

'--------------------------------------

Set rs = CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM [COLOR=#0000ff][B]TABLA_02 [/B][/COLOR]ORDER BY 1,2"

Set rs = cnn.Execute(SQL)

Hoja2.Range("G2").CopyFromRecordset rs

rs.Close

'---------------------------------------

Hoja2.Select

For x1 = 2 To Range("A" & Rows.Count).End(xlUp).Row

   x2 = 2

   Do

      Fecha = "31/12/2099"

      Relacionado = ""

      Do Until Range("G" & x2) > Range("A" & x1) Or _

               Range("G" & x2) = ""

         If Range("A" & x1) = Range("G" & x2) Then

            If Not CDate(Range("H" & x2)) > CDate(Range("B" & x1)) Then

               Fecha = CDate(Range("H" & x2))

               Relacionado = Range("I" & x2)

            End If

         End If

         x2 = x2 + 1

      Loop

      If Not Fecha = "31/12/2099" Then

         Range("E" & x1) = Fecha

         Range("F" & x1) = Relacionado

      End If

      Exit Do

   Loop

Next

'-----------------

Range("G:I").Clear

cnn.Close

Application.ScreenUpdating = True

End Sub

[/CODE]

bigpetroman · el 29 de junio

Gracias Macro Antonio, lo coloque aquí porque la consulta es sobre una base de datos de access, aunque efectivamente se realiza desde Excel, por eso no sabía en cual foro preguntar y lo coloque aquí :tennis:

tu procedimiento efectivamente hace lo que quiero (de echo al final realice algo parecido), sin embargo la idea es hacerlo directamente con SQL si es posible ya que son mas de 100.000 registros a procesar, y realmente me quedo la inquietud de si es posible hacerlo o no con SQL, ya el trabajo como tal lo realice y NO requiero la solución para realizar mi trabajo, pero si me gustaría aprender por si mas adelante se presenta algún caso parecido

gracias

- - - - - Mensaje combinado - - - - -

Jejeje, logre hacer la consulta, dejo la consulta por si acaso (tal vez no es la mejor, pero funciona que es importante)



SELECT tbl01Final.* FROM (Select (TABLA_01.Articulo & FORMAT(TABLA_01.Fecha,"DDMMYYYY")) AS Filtro,

TABLA_01.*, TABLA_02.Fecha2 AS FechaFinal, TABLA_02.Campo_Relacionado from TABLA_01, Tabla_02

WHERE  Tabla_02.Articulo = Tabla_01.Articulo        

and Tabla_02.Fecha2 <= Tabla_01.Fecha 

order by Tabla_01.Articulo, Fecha Desc, Fecha2 DESC) tbl01Final,

(SELECT (tbl01.Articulo & FORMAT(tbl01.Fecha,"DDMMYYYY")) AS MiFiltro, Max(tbl01.Fecha2) AS FechaFiltro FROM 

(Select TABLA_01.Articulo, Tabla_01.Fecha, TABLA_02.Fecha2, TABLA_02.Campo_Relacionado from TABLA_01, Tabla_02

WHERE  Tabla_02.Articulo = Tabla_01.Articulo

and Tabla_02.Fecha2 <= Tabla_01.Fecha 

order by Tabla_01.Articulo, Fecha Desc, Fecha2 DESC) tbl01

GROUP BY (tbl01.Articulo & FORMAT(tbl01.Fecha,"DDMMYYYY"))) tblFiltro

WHERE tbl01Final.Filtro = tblFiltro.MiFiltro

AND tbl01Final.FechaFinal = tblFiltro.FechaFiltro  

ORDER BY tbl01Final.Articulo, tbl01Final.Fecha Desc 

[/CODE]

Gracias