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! 
|
|
|
|
