|
|
|
||||||||||||||||||||||
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
Parceiros - CSS para Web Design - S.O.S Designers - Slackware-Brasil - Crie seu Web site - Oficina da Net |
Como posso receber os campos de uma tabela em um array?A FAQ Como posso receber os campos de uma tabela em um array? tem Pertence à categoria:
Dim loopTabela As TableDef Set BancoDados = DBEngine.Workspaces(0).OpenDatabase(StrArquivoEntrada) Combo5.Clear For Each LoopTabela In BancoDados.TableDefs Combo5.AddItem BucleTabla.Name Next Para os campos teríamos algo como o seguinte: Dim tabela As Recordset Dim LoopCampo As Field Set tabla = BancoDados.OpenRecordset("select * from [" & Combo5.Text & "]") Combo1.Clear For Each BucleCampo In tabla.Fields Combo1.AddItem BucleCampo.Name Next Todo o anterior fazendo uso do DAO, que talvez possa ser um pouco obsoleto.
|
| Sobre nós | Copyright | Anuncie | Entrar em contato | <criarweb> |