RSILVA
|
RIO DE JANEIRO RJ - BRASIL
|
|
Postada em 19/08/2004 16:20 hs
Como pego o nome da coluna de uma tabela access via código VB.
|
|
|
|
|
Postada em 19/08/2004 16:55 hs
como assim pegar... nuam entendi.... todas elas?
|
|
|
RSILVA
|
RIO DE JANEIRO RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 20/08/2004 11:35 hs
Pegar os nomes das colunas de uma tabela.
|
|
|
|
Postada em 20/08/2004 13:13 hs
'Listar tabelas e campos Dim adoConexao As ADODB.Connection Dim adoTabelas As ADODB.Recordset, adoCampos As ADODB.Recordset Dim intContador As Integer Set adoConexao = New ADODB.Connection adoConexao.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source = C:Banco.mdb;Jet OLEDB:Database Password=Senha" Set adoTabelas = adoConexao.OpenSchema(adSchemaTables) Do Until adoTabelas.EOF If adoTabelas(3) = "TABLE" Then lstTabelas.AddItem adoTabelas(2) Set adoCampos = New ADODB.Recordset adoCampos.Open "SELECT * FROM " & adoTabelas(2), adoConexao For intContador = 0 To adoCampos.Fields.Count - 1 lstTabelas.AddItem " - " & adoCampos(intContador).Name Next adoCampos.Close End If adoTabelas.MoveNext Loop
________________________ Té + Que NIMB role bons Dados! 
|
|
|