Olá Pessoal

Tenho uma tabela com telefones conforme o formato abaixo

Id |fone          |cel           | fax          |
 1 |(xx)1111-1111 |(xx)2222-2222 |(xx)3333-3333 |
 1 |(xx)4444-4444 |(xx)5555-5555 |(xx)9999-9999 |
 3 |(xx)9999-9999 |(xx)9999-9999 |(xx)9999-9999 |

Preciso pegar os quatro primeiros telelfones da tabela
com id =1 por exemplo e colocar em um array

Array(0) = (xx)1111-1111
Array(1) = (xx)2222-2222
Array(2) = (xx)3333-3333
Array(3) = (xx)4444-4444

Aguem saberia me ajudar no select da tabela ???

Agradeço qualquer ajuda.

Abraço

JGD 

 

experimenta assim...(usando DAO)

Dim array as variant

ssql= "select * from suatabela where ID=" & VariavelID

set tabela=banco.openrecordset(ssql,dbopensnapshot)

do until tabela.EOF

           tabela.movenext

loop

n= tabela.recordcount ' Aki vc descobre qtos registros tem na sua tabela

tabela.close

Redim Array(n)

'Carregando o array

i=0

do until tabela.eof

       i=i+1

       array(i)=tabela ("fone")

       tabela.movenext       

loop

tabela.close   

 

.