ms-access - una - unir celdas en excel

Combinar filas/concatenar filas

Question

Estoy buscando un Access 2007 equivalente a la función COALESCE de SQL Server.

En SQL Server, podrías hacer algo como:

Persona

John
Steve
Richard

SQL

DECLARE @PersonList nvarchar(1024)
SELECT @PersonList = COALESCE(@PersonList + '','','''') + Person
FROM PersonTable
PRINT @PersonList

Que produce: John, Steve, Richard

Quiero hacer lo mismo, pero en Access 2007.

¿Alguien sabe cómo combinar filas como esta en Access 2007?

Answer 1

Aunque Nz hace algo similar a COALESCE, no puede usarlo en Access para realizar la operación que está realizando. No es COALESCE quien está construyendo la lista de valores de fila, es la concatenación en una variable.

Desafortunadamente, esto no es posible dentro de una consulta de Access que tiene que ser una sola declaración SQL y donde no hay ninguna posibilidad de declarar una variable.

Creo que necesitaría crear una función que abriera un conjunto de resultados, iterar sobre él y concatenar los valores de fila en una cadena.

Answer 2

Creo que Nz es lo que buscas, la sintaxis es Nz(variant, [if null value]) . Aquí está el enlace de documentación: Función Nz

---Person---
John
Steve
Richard
DECLARE @PersonList nvarchar(1024)
SELECT @PersonList = Nz(@PersonList + '','','''') + Person
FROM PersonTable
PRINT @PersonList

Answer 3

Entiendo aquí que tiene una tabla "persona" con 3 registros. No hay nada comparable a lo que describes en Access.

En el acceso "estándar" (conjunto de registros DAO), tendrá que abrir un juego de registros y usar el método getrows para tener sus datos

Dim rs as DAO.recordset, _
personList as String, _
personArray() as variant
set rs = currentDb.open("Person")
set personArray = rs.getRows(rs.recordcount)
rs.close

una vez que tenga este conjunto (será bidimensional), puede manipularlo para extraer la "columna" que necesitará. Puede haber una forma inteligente de extraer una matriz unidimensional de esta, para que luego pueda usar la instrucción "Unir" para concatenar cada valor de matriz en una cadena.

Answer 4

Para combinar filas en Access, probablemente necesites un código que se parece a esto:

Public Function Coalesce(pstrTableName As String, pstrFieldName As String)
Dim rst As DAO.Recordset
Dim str As String
Set rst = CurrentDb.OpenRecordset(pstrTableName)
Do While rst.EOF = False
If Len(str) = 0 Then
str = rst(pstrFieldName)
Else
str = str & "," & rst(pstrFieldName)
End If
rst.MoveNext
Loop
Coalesce = str
End Function

Deberá agregar el código de manejo de errores y limpiar su conjunto de registros, y esto cambiará ligeramente si utiliza ADO en lugar de DAO, pero la idea general es la misma.

Answer 5

Aquí hay una muestra de Función definida por el usuario (UDF) y posible uso.

Función:

Function Coalsce(strSQL As String, strDelim, ParamArray NameList() As Variant)
Dim db As Database
Dim rs As DAO.Recordset
Dim strList As String
Set db = CurrentDb
If strSQL <> "" Then
Set rs = db.OpenRecordset(strSQL)
Do While Not rs.EOF
strList = strList & strDelim & rs.Fields(0)
rs.MoveNext
Loop
strList = Mid(strList, Len(strDelim))
Else
strList = Join(NameList, strDelim)
End If
Coalsce = strList
End Function

Uso:

SELECT documents.MembersOnly,
Coalsce("SELECT FName From Persons WHERE Member=True",":") AS Who,
Coalsce("",":","Mary","Joe","Pat?") AS Others
FROM documents;

Una versión de ADO, inspirada en un comentario de onedaywhen

Function ConcatADO(strSQL As String, strColDelim, strRowDelim, ParamArray NameList() As Variant)
Dim rs As New ADODB.Recordset
Dim strList As String
On Error GoTo Proc_Err
If strSQL <> "" Then
rs.Open strSQL, CurrentProject.Connection
strList = rs.GetString(, , strColDelim, strRowDelim)
strList = Mid(strList, 1, Len(strList) - Len(strRowDelim))
Else
strList = Join(NameList, strColDelim)
End If
ConcatADO = strList
Exit Function
Proc_Err:
ConcatADO = "***" & UCase(Err.Description)
End Function

De: http://wiki.lessthandot.com/index.php/Concatenate_a_List_into_a_Single_Field_%28Column%29