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:  Como saber a descrição de um campo de uma tabela via DAO criada em Access
Postada em 3/11/2003 por ghost_jlp            
Para saber a descrição de um campo que foi colocado lá na estrutura da tabela do seu BD no access é fácil!!

Olhe como fazer:

Dim DB As Database
Dim RS As Recordset
Dim i as Integer

Set DB = OpenDatabase(App.Path & "\Banco.MDB")
Set RS = DB.OpenRecordset("Tabela")

On Error GoTo Erro_Description

For i = 0 To RS.Fields("campo").Properties.Count - 1

If RS.Fields("campo").Properties(i).Name = "Description" Then
  MsgBox RS.Fields("campo").Properties(i).Name & " : " & RS.Fields("campo").Properties(i).Value
End If

Next

Erro_Description:

If Err.Number <> 3265 And Err.Number <> 0 Then
MsgBox "Descrição do erro: " & Err.Description & vbCrLf & "Número do erro:" & Err.Number
End If

Acontece que caso o campo não tenha descrição vai dar um erro que é o acima "err.number = 3265 -> O item não foi encontrado na coleção". Então caso aconteça este erro ele "passa direto" conforme o tratamento do erro feito na lógica descrita. Se tiver outro qualquer ele exibe a mensagem. Fazendo isso vai achar a descrição do campo certo. Pois o número das propriedades varia de campo para campo. Então fazendo este "for..next" certamente achará a descrição com segurança.

OK???

T+ :-D
 


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