bem, enquanto não tiro minhas duvidas vou aprendendo por aqui com testes
estou fazendo testes com array
uma coisa que achei estranho foi que ao incluir o recodset em um array e passar para a planilha os dados ficam transpostos
tem como resolver diretamente ou tem que transpor a array ?
se tiver tbm como melhorar a macros
e me falar como pegar campos específicos para passar para a array, pq não entendi nada do que eu vi pela net
Ps. será que alguem tem uma tabela "enorme" que seja apenas dados sem valor para eu poder fazer testes de performance?
Até
estou fazendo testes com array
uma coisa que achei estranho foi que ao incluir o recodset em um array e passar para a planilha os dados ficam transpostos
- Código:
Sub Macro1()
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim coluno()
Application.EnableEvents = False
Application.ScreenUpdating = False
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=D:\TABELAS\tabelaA.accdb;"
tabela = "teste1"
rs.Open tabela, cn
For c = 0 To rs.Fields.Count - 1
Cells(1, c + 1).Value = rs.Fields(c).Name
Next
coluno = rs.GetRows
Range(Cells(2, 1), Cells(UBound(coluno, 1) + 1, UBound(coluno, 2))).Value2 = coluno
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
tem como resolver diretamente ou tem que transpor a array ?
se tiver tbm como melhorar a macros
e me falar como pegar campos específicos para passar para a array, pq não entendi nada do que eu vi pela net
Ps. será que alguem tem uma tabela "enorme" que seja apenas dados sem valor para eu poder fazer testes de performance?
Até