Senhores,

 

Tenho 10 registros numa certa tabela.

Como faço pra jogar todos os registros (o ID) separados por vírgula em uma string?

 

Assim: ssql = "select id_cliente from clientes where dt_cadastro >= '01-jan-05"

Esse select só traz 10 registros (id_cliente), gostaria de colocar esses id_cliente um ao lado do outro separados por vírgula numa string.

A string ficaria assim: "1,2,3,5,5,6,7,8,9,10"

 

Fico no aguardo e um abraço a todos.

 

 

 

 

         

 

A única forma que eu conheço é montando a String dessa forma:

dim variavel as string

set rs = base.openrecordset("select id_cliente from clientes where dt_cadastro >= '01-jan-05")

variavel=empty

rs.moveMin

do while not rs.eof

     variavel=iif(variavel=empty, rs("id_cliente"), variavel & "," & rs("id_cliente"))

     rs.movenext

loop

 

crie um recordset

dim rs as adodb.recordset

set rs = new adodb.recordset

rs.open "select numero from clientes"

while not rs.eof

    vString = vString & rs("numero") & ","

    rs.movenext

wend

vString=mid(vString,1,len(vString -1))

rs.close

set rs=nothing

 

deu certo galera.

 

obrigado!