GETROWS _ INVERTER A MATRIZ

ALELUIZ 06/03/2012 10:51:52
#396512
Prezados bom dia!

Estou reformulando algumas aplicações em VBA, e irei utilizar o Getrows .
Porem a Matriz vem invertida , ao inves de . Campo1 ;Campo2; Campo3....
Vem
Campo1
Campo2
Campo3
A uma maneira de inverter a matriz??
-----------
Outro problema , peguei um exempo de outro site onde o numero_de_registros fica sempre zero.
Já tentei Rs.movelast , rs.movenext a unica forma que consegui é pegando a quantidade de linhas no recorcount.
Linhas = rs.RecordCount
dbvetor = rs.GetRows(Linhas)


Sub teste
Dim dbvetor As Variant
Set Db = DBEngine.Workspaces(0).OpenDatabase(ThisWorkbook.Path & [Ô]\BancoDeDados.mdb[Ô])
Set rs = Db.OpenRecordset([Ô]Tab_apolice1[Ô], dbOpenTable)
dbvetor = rs.GetRows()
rs.Close
Set rs = Nothing
Db.Close
numero_de_colunas = UBound(dbvetor, 1)
numero_de_registros = UBound(dbvetor, 2) [ô] Aqui não carrega o numero de linhas , fica zeradoRange([Ô]A2:F1000[Ô]) = dbveto
end sub


Abraços
LUCASVAZ 07/03/2012 10:58:51
#396603
Seja mais especifico por favor e, se possível, na primeira dúvida poste seu código.

Att

Lucas
ALELUIZ 07/03/2012 15:01:33
#396625
Boa tarde,quando utilizo dbvetor = rs.GetRows() os campos ao inves de estarem na horizontal igual ao access exemplo:
Nome ; Idade; Sexo
Alexandre ; 20 ; M
Manuel ; 21 ; M

estão na vertical exemplo :
nome .; Alexandre , manuel . pedro
idade 20 ; 21 ; 30

Gostaria de saber se consigo voltar este dados para o formato [Ô]correto[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar