Crear consulta de Paso a Través al servidor de datos PostgreSQL, para numerar los empleados por cada sección y los grupos

En Access se resuelve con un informe, no es necesario programar nada (a lo sumo crear los marcos y darles color).

En los informes se pueden crear grupos y numerar los grupos (tanto en conjunto como individualmente).

Eduardo:

Lo único que vale la pena de tu respuesta es:

... El archivo en formato CVS ...

Que pereza tener que crear una tabla para generar un conjunto de datos para responder ... cuando el que está interesado (y no domina ninguno de los dos entornos) puede facilitar los medios y posiblemente obtener más de una respuesta creativa para presentar ese conjunto de datos estáticos.

Inestimable Eduardo:

En mi opinión este es un foro de ACCESS, no de 'bordar punto de cuz', para entornos específicos hay foros específicos y las preguntas y respuestas deberían de ir en el adecuado (al Cesar lo ...).

Si tan formado estas en ese entorno tan 'nuboso' y deseas ser alabado como el más sabio, practícalo en los foros dedicados (en los cuales no figuras y además ... parecen abandonados).

Tengo una gran duda al respecto de los hilos en los que con los mismos datos solicitan respuestas en varios entornos, la duda es: ¿Qué se busca? ... Si es por compararlos será porque no le convence lo que tiene y esa es una duda a resolver si se desea avanzar.

Te aclaro que lo que si IGNORO es el camino a NINGUNA PARTE, pero no te preocupes, si llega 'la necesidad' te lo preguntare pues parece que lo recorres de forma continua.

Envíeme el archivo en formato CVS y le preparo la consulta de tal forma que se ajuste con la pregunta. Puede enviarlo a [email protected]. No obstante, su pregunta se refiere es presentarlo como consulta no como informe de Access.

Enrique observe y aprenda. Hernán, como le expliqué en su pregunta anterior sobre consulta paso a través debe existir un DSN del sistema en su PC, con base en este creamos la consulta, siguiendo el ejemplo de Microsoft, así digan FUSILAR algunos ignorantes.

Consulta en PostgreSQL

Explicación de la consulta en PostgreSQL:

ROW_NUMBER es una función de ventana que asigna un entero secuencial a cada fila de un conjunto de resultados.

OVER determina exactamente cómo se dividen las filas de la consulta para que las procese la función de ventana.

PARTITION BY pertenece a la categoría Funciones de ventana. Las funciones de ventana de PostgreSQL son las que son capaces de realizar cálculos que abarcan varias filas de una columna, pero no todas las filas.

DENSE_RANK() se utiliza para asignar un rango a cada fila dentro de una partición de un conjunto de resultados, sin brechas en los valores de clasificación. El DENSE_RANK() asigna un rango a cada fila de cada partición de un conjunto de resultados. A diferencia de la función RANK(), la función DENSE_RANK() siempre devuelve valores de rango consecutivos. Para cada partición, la función DENSE_RANK() devuelve el mismo rango para las filas que tienen los mismos valores

ORDER BY permite ordenar por el año, igualmente se debe convertir el campo fecha. Se había podido crear una función en PostgreSQL para pasar la fecha como parámetro y obtener el año.

Resultado de la consulta desde Access

Código de la función

Public Function CreaQueryNumeraFilaGrupoParticion(SPTQueryName As String)
 'Numera filas por partición de grupo y el grupo
'                       Microsfot ActiveX Data Objectc 6.1 Library
'                       Microsfot ADO Ext. 6.0 for DLL and Security
'Fuente:
'    Microsoft
'Adpatación para PostgreSQL
'Eduardo Pérez Fernández
'Fecha: 12/09/2022
'Parametros:
'               SPTQueryName  --> Nombre de la consulta a crear
 On Error GoTo hay_Error
Dim cat As ADOX.Catalog
Dim cmd As ADODB.Command
Dim strSQl As String
Dim tB As DAO.TableDef
Dim MyQueryDef As QueryDef
With CurrentDb
  For Each MyQueryDef In CurrentDb.QueryDefs
   If MyQueryDef.Name = SPTQueryName Then
   .QueryDefs.Delete (SPTQueryName)
   .QueryDefs.Refresh
   Exit For
   End If
  Next
End With
Set cat = New ADOX.Catalog
Set cmd = New ADODB.Command
cat.ActiveConnection = CurrentProject.Connection
Set cmd.ActiveConnection = cat.ActiveConnection
  strSQl = "select idempleado,nombres,apellidos" & vbCrLf
  strSQl = strSQl & "           , idseccion, row_number() over (partition" & vbCrLf
  strSQl = strSQl & "          by idseccion" & vbCrLf
  strSQl = strSQl & "    ORDER BY idseccion) as fila_grupo, dense_rank() over (" & vbCrLf
  strSQl = strSQl & "    ORDER BY idseccion) as grupo" & vbCrLf
  strSQl = strSQl & "        FROM tblempleados;"
  cmd.CommandText = strSQl
  cmd.Properties("Jet OLEDB:ODBC Pass-Through Statement") = True
cmd.Properties _
     ("Jet OLEDB:Pass Through Query Connect String") = _
       "ODBC;DSN=dbconta;"
  cat.Procedures.Append SPTQueryName, cmd
  Set cat = Nothing
  Set cmd = Nothing
hay_Error_Exit:
   Exit Function
hay_Error:
    MsgBox "Ocurrió el error " & Err.Number & vbCrLf & vbCrLf & Err.Description, vbCritical, "Error..."
    Resume hay_Error_Exit
End Function

La gran ventaja de la consulta paso a través es que no tiene que vincular tablas con el servidor y puede hacer una consulta a su base de datos PostgreSQL alojada en la nube, por ejemplo, pruebo las funciones con el servidor de CLOUD CLUSTER. Espero que Enrique haya entendido algo.

Esto es algo que no es fácil y practico hacerlo con SQL en Access y todavía existen personas que atacan todas mis respuestas donde hago referencia a PostgreSQL con Access.

Ignorante Enrique respondo porque la pregunta encaja en el foro, toda vez, que es de Access y más precisamente sobre CONSULTAS DE PASO A TRAVÉS, pero para que discutir si usted no tiene idea del uso de servidores de daos con Access.

Ahora complemento la respuesta elaborando la consulta, pero solo para Access.

CONSULTA

SELECT tblempleados.idempleado, tblempleados.nombres, tblempleados.apellidos,
 tblempleados.fechanacio, tblempleados.idseccion, tblempleados.genero,
 RT_NumerarParcialSQL(idseccion) AS OrdenParcial, RT_Tab1([idseccion],[idseccion]) AS ngrupo
FROM tblempleados
ORDER BY tblempleados. Idseccion;

Para esta consulta utilicé y adapté las funciones del maestro JESUS MANSILLA CASTELLS, estas permiten numerar filas y grupos sin necesidad de hacer subconsultas.

FUNCIONES

'---------------------------------------------------------------------------------------------
' Autor : JESUS MANSILLA CASTELLS -Mihura-
'---------------------------------------------------------------------------------------------
Public Function RT_NumerarParcialSQL(nDato) As Long
'variable que no se pierde entre las distintas llamadas
Static nCONTADOR As Long, nANTERIOR As String
     If IsNull(nDato) Then 'si nDato es nulo: Iniciamos valor
         nCONTADOR = 0
         nANTERIOR = ""
         Exit Function
     End If
     '- si nDato es igual al valor memorizado sumamos 1 al contador
     If nDato = nANTERIOR Then
         nCONTADOR = nCONTADOR + 1
       Else '- iniciamos valor y memorizamos el anterior
         nCONTADOR = 1
         nANTERIOR = nDato
     End If
     RT_NumerarParcialSQL = nCONTADOR
End Function
'---------------------------------------------------------------------------------------------
' Autor : JESUS MANSILLA CASTELLS -Mihura-
'---------------------------------------------------------------------------------------------
Function RT_Tab1(id As Long, seccion As Long) As Long
Static NumeroGrupo As Long
Static IdOld As Long
   'Adaptada para respuesta TodoExpertos
   'Eduardo Pérez Fernánez
   '22/09/2022
     'controlamos si pertenece al mismo grupo que el anterior
     If id <> IdOld Or _
          seccion <> seccion Then
             NumeroGrupo = NumeroGrupo + 1
     End If
     IdOld = id
     RT_Tab1 = NumeroGrupo
End Function

La diferencia con el código de PostgreSQL es que ésa no aplica para aplicaciones cliente servidor con tablas NO vinculadas.

Ahí la tiene intolerante Enrique Feijóo.