USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Obtendo a descrição do campo de uma tabela Access em ADO
Postada em 10/1/2005 por ghost_jlp            
Obter a descrição dos campos de uma tabela Access em ADO é um pouco diferente em relação ao DAO. Vamos usar a propriedade OpenSchema para isso.

'Declaração das variáveis

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs2 As ADODB.Recordset

'Colocando no envento Load do form

Private Sub Form_Load()

Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:caminho_do_arquivoarquivo.mdb"
Set rs = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, "NomeDaTabela"))

With rs
Do While Not .EOF
  Set rs2 = cnn.OpenSchema(adSchemaColumns, Array(Empty, Empty, "" & rs!table_name & ""))
Do While Not rs2.EOF
   MsgBox "" & rs2!Description
   rs2.MoveNext
  Loop
  .MoveNext
Loop
End With

rs.Close
rs2.Close
cnn.Close
Set rs = Nothing
Set rs2 = Nothing
Set cnn = Nothing

End Sub

Fácil não?? Até a próxima :D
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página