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:  Pegar os nomes das tabelas de um Banco de dados .mdb
Postada em 13/11/2001 por Maze      Clique aqui para enviar email para o autor  mazesyst@ig.com.br
Pegar os nomes das tabelas de um Banco de dados .mdb e também verifica se existe uma determinada tabela: (este codigo funciona com DAO 360.dll)

Dim MyDb As Database, mYrS As Recordset
Dim tdf As TableDef, I As Integer

Set MyDb = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\MeuBanco.mdb")

  For I = 0 To MyDb.TableDefs.Count - 1  

     '*** pega os nomes de todas as tabelas do banco
     '
     MsgBox MyDb.TableDefs(I).Name
    
    ' *** Verifica se uma tabela existe no banco de dados
    '
    'If UCASE$(MyDb.TableDefs(I).Name) = UCASE$("Nome da tabela que voce quer saber se existe") Then
     '  MsgBox "A tabela ***  " & MyDb.TableDefs(I).Name & " ***  EXISTE !"
     ''Else
     '' MsgBox "A tabela NÃO EXISTE"
    'End If

  Next I


mYrS.Close
MyDb.Close
 


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