Concatenar Registros
Partiendo de una consulta de seleccion con dos campos "Nombre" y "Profesion", el campo Nombre puede tener distintas profesiones, es decir mas de un registro con el mismo nombre.
Quiero obtener en la ventana de depuracion lo siguiente:
Jose: Pintor, Escritor
Alberto: Programador, Analista
¿Como puedo hacerlo?
Quiero obtener en la ventana de depuracion lo siguiente:
Jose: Pintor, Escritor
Alberto: Programador, Analista
¿Como puedo hacerlo?
En acces:
(Te escribo parte del código necesario)
function Pruebas()
dim bd as database
dim rs as recordset
dim sql as string
dim sLinea as string
'// Abres la base de datos:
set bd=currentdb
sql="select nombre, profesion from tabla order by nombre"
set rs= db.openrecordset(sql,dbopensnapshot)
if rs.eof and rs.bof then
'// no hay registros en el recordset
else
do while not rs.eof
sLinea=rs.fields("nombre") & ":" & rs.field ("profesion")
debug.pirint sLinea
rs.movenext
loop
end if
'// Cerrar recordset
rs.close
set rs=nothing
'// Cerrar base datos
bd.close
set bd=nothing
end
Mas o menos sería esto, si he entendido bien tu pregunta.
Un saludo.
(Te escribo parte del código necesario)
function Pruebas()
dim bd as database
dim rs as recordset
dim sql as string
dim sLinea as string
'// Abres la base de datos:
set bd=currentdb
sql="select nombre, profesion from tabla order by nombre"
set rs= db.openrecordset(sql,dbopensnapshot)
if rs.eof and rs.bof then
'// no hay registros en el recordset
else
do while not rs.eof
sLinea=rs.fields("nombre") & ":" & rs.field ("profesion")
debug.pirint sLinea
rs.movenext
loop
end if
'// Cerrar recordset
rs.close
set rs=nothing
'// Cerrar base datos
bd.close
set bd=nothing
end
Mas o menos sería esto, si he entendido bien tu pregunta.
Un saludo.
