E ai turma blz? ..... !!!!

Vamos lá, pergunta:

    tenho um select que retorna 2 campos certo. E quero colocar os valores de retorno um em cada array criado por mim. Como posso fazer isso?

 

Estou tentando assim:

sSql = "SELECT DISTINCT camp1, campo2 FROM tabela ORDER BY campo1"
     Set oRs = oConn.Execute(sSql)
     If Not oRs.EOF Then
       .CmbDestino.Clear
       For i = 0 To oRs.EOF
          Arry1(i) = oRs(0)
          Arry2(i) = oRs(1)
          oRs.MoveNext
      Next

   

só faltou determinar o tamanho de cada array:

redim Arry1(x) as integer (ou string, variant)

 

mas também dá pra usar um array bidimencional, que não precisa nem determinar tamanho:

if not ors.eof then

   arrx = ors.getrows()

 

assim o arrx vai ficar com duas colunas por x linhas conforme a quantidade de registros de ors

arrx(0,i) = campo1

arrx(1,i) = campo2

onde i vai de 0 até o total de registros menos 1