Recordset

[SuRpRiSe18]

Hola buenas!

Soy novato en este tema. Estoy construyendo una Base de datos en access y necesito crear un recordset con todos los e-mails de un campo de una tabla, separados por ";". Alguien me podría ayudar?

Ando muy pérdido.

Gracias de antemano

[jrp01]

Como separados por ;?

[SuRpRiSe18]

HOla jrp01!!!

Un ejemplo

CAMPO1 CAMPO2
a pablo
b alberto
c alvaro

Pues yo quiero que me concatene todos los registros del campo 2, separados porun punto y coma ";".

Resultado:
pablo; alberto; alvaro;

Muchas gracias

[gefuva]

'Creas el RS
dim MiRec as new adodb.recordset
dim var as string

var=""

'Abres el RS
MiRec.Open "SELECT email FROM tabla", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

MiRec.MoveFirst

'Lo haces hasta menos 2, para q asi no te ponga un ; al final, o tb puedes hacer el bucle hasta menos 1 y quitarselo tu después

for i=0 to MiRec.RecordCount-2
var=var & MiRec!email & ";"
MiRec.MoveNext
next
'Cuando salga estara en RecordCount-1
var=var & MiRec!email

MiRec.Close

'var ahora tiene la lista de mails

Espero te ayude

[SuRpRiSe18]

Perfecto gefuva es justo lo que necesitaba!

Muchas gracias

[gefuva]

me alegro de que te sirviera, un saludo!