Array Dinâmico

[thiagocs 0]

Preciso fazer um recordset e antes de dar um MoveNext eu verifico se um campo tem um valor. Se sim eu o adiciono no array senão não faço nada. COMO FAZER ????OBS: naum tem como saber qtos registros terão o valor

[Penna 0]

Ja tentou usar If????If Rs("Nome") <> "" ThenAdione no ArrayElseNão adicionaEnd If

[thiagocs 0]

o problema eh que eu naum sei a dimensão do array e naum sei como usar o REDIM !!!

[Penna 0]

Acho então que você deveria fazer dois joguinhos de if.No primeiro você pega o numero de arrays.a = +1até finalizar o loop.Depois você faz um for pegando o Nome e adicionando o valor que você pegou no primeiro joguinho de IF.

[d.eleete 0]

naum seria um contador penna?a = a +1

[Penna 0]

É sim...

[hinom 5]

LBound ( ) com Ubound()é possível obter o tamanho de um array

[Penna 0]

If Rs("Nome") <> "" Thena = a +1End IfFor i = 1 to aIf Rs("Nome") <> "" ThenNome = arrNome(i)End IfRs.MoveNextLoopSeria mais ou menos isso..

[Penna 0]

LBound ( ) com Ubound()é possível obter o tamanho de um array

Fiquei interessado, como?Isso não é para mudar o TEXTO, para texto, e texto para TEXTO??? Hehehe

[Salgado 4]

LBound ( ) com Ubound()

 

é possível obter o tamanho de um array

Fiquei interessado, como?

 

Isso não é para mudar o TEXTO, para texto, e texto para TEXTO??? Hehehe

Acho que você está confundindo com LCase() e Ucase()!

[Penna 0]

A ta!... Hehehehehe... Confundi mesmo... Heheheheh...O que esses dois que ele falou fazem??

[Salgado 4]

LBound - Pega o menor indice da matriz (padrão é zero);

UBound - Pega o maior indice da matriz;

[Penna 0]

Irado...

[ferraz 0]

tenta assim:dim meuArray(), cont...cont=1do until vRecordset.eof if <teste> then redim preserve meuArray(cont) meuArray(cont) = vRecordset("nomeDoCampo") cont = cont +1 end ifvRecordset.moveNextloop