Dim db AS DAO.Database

Dim Tabela AS DAO.TableDef

Set db = DBEngine.OpenDatabase("c:\teste\biblio.mdb")

For Each tabela in db.TableDefs

      List1.additem Tabela.Name

Next

Dim db AS DAO.Database

Dim Tabela AS DAO.TableDef

Set db = DBEngine.OpenDatabase("c:\teste\biblio.mdb")

'Vamos criar um novo objeto tabela :  a tabela Clientes

Set Tabela = db.CreateTableDef("Clientes")

With Tabela

  'vamos criar os campos no objeto TableDef e depois adicionar o objeto Tabela coleção de tabelas

  'A sintaxe é : CreateField(nome_do_campo, tipo_de_dados, tamanho_campo)

   .Fields.Append .CreateField("Nome", dbText, 50)

   .Fields.Append .CreateField("Endereco", dbText , 50)

   .Fields.Append .CreateField("Telefone", dbText, 50)

End With

'agora inclua a nova tabela no banco de dados

db.TableDefs.Append Tabela

db.Close

Dim db AS DAO.Database

Dim Tabela AS DAO.TableDef

Dim Indice AS DAO.Index

Set db = DBEngine.OpenDatabase("c:\teste\biblio.mdb")

Set Tabela = db.TableDefs("Clientes")

'cria o objeto Index e inclui o objeto Field Nele: O nome do índice será NomeIdx

Set Indice=Tabela.CreateIndex("NomeIdx")

Indice.FieldsAppend Indice.CreateField("Nome")

'Inclui o objeto na coleção de índices

Tabela.Indexes.Append Indice

db.Close

Dim db AS DAO.Database

Dim Consulta AS DAO.QueryDef

Set db = DBEngine.OpenDatabase("c:\teste\biblio.mdb")

'cria a consulta TodosNomes

Set Consulta = db.CreateQueryDef("TodosNomes","Select * From Clientes")

db.Close

Private Sub Form_Unload(Cancel As Integer)

    On Error Resume Next

    '
    Dim ws As Workspace
    Dim db As Database
    Dim rs As Recordset
    '
    For Each ws In Workspaces
        For Each db In ws.Databases
            For Each rs In db.Recordsets
                rs.Close
                Set rs = Nothing
            Next
            db.Close
            Set db = Nothing
        Next
        ws.Close
        Set ws = Nothing
    Next
    '
End Sub

Private Sub CriaChavePrimaria()                                                       
  
Dim dbDatabase As Database
Dim dbOpened  As Database
Dim DatabasePath  as string
Dim PrimaryKey As New Index

      ' abre o banco de dados
   DatabasePath = "c:\diretorio\arquivo.mdb"    ' aqui voce informa o caminho e o nome do seu banco de dados
   Set dbOpened = OpenDatabase(DatabasePath, False, False )
  
   Set dbDatabase = dbOpened
   Set dbOpened = Nothing
                                                    
   ' Inclui a chave primária
                                                    
   BeginTrans
 
   PrimaryKey.Name = "CodigoID" 
   PrimaryKey.Fields = "Codigo"
  
   PrimaryKey.Unique = True
   PrimaryKey.Primary = True
   dbDatabase.TableDefs("Clientes").Indexes.Append PrimaryKey
   
   DoEvents
   CommitTrans
    
   dbDatabase.close                                                          
   Set dbDatabase = Nothing

End Sub

Private Sub CriaDB(sDBCaminho As String)

    Dim tdExemplo As TableDef
    Dim fldNome As Field
    Dim fldEndereco As Field
    Dim dbDatabase As Database
    ' Define o novo banco de dados ( nome e caminho)
    ' Cria um arquivo .MDB vazio
    Set dbDatabase = CreateDatabase(sDBCaminho, dbLangGeneral, dbEncrypt)

    ' Cria uma nova tabela chamada Exemplo
    Set tdExemplo = dbDatabase.CreateTableDef("Exemplo")

    ' Inclui campos na tabela.
    Set fldNome = tdExemplo.CreateField("Nome", dbText, 20)
    Set fldEndereco = tdExemplo.CreateField("Endereco", dbText, 20)
    ' Inclui os campos no objeto TableDef
    tdExemplo.Fields.Append Nome
    tdExemplo.Fields.Append Endereco
    ' Salva as definições na colecao  TableDefs 
    dbDatabase.TableDefs.Append tdExemplo
    MsgBox "Arquivo MDB criado com sucesso !  "
End Sub

Quer migrar para o VB .NET ?

• Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

• Curso Básico VB .NET - Vídeo Aulas

Quer aprender C# ??

• Chegou o Super DVD C# com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

• Curso C# Basico - Video Aulas

Quer aprender os conceitos da Programação Orientada a objetos ?

• Curso Fundamentos da Programação Orientada a Objetos com VB .NET

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

•  Curso - Gerando Relatórios com o ReportViewer no VS 2013 - Vídeo Aulas  

Quer aprender a criar aplicações Web Dinâmicas usando a ASP .NET MVC 5 ?

•  Curso ASP .NET MVC 5 - Vídeo Aulas