DAO Revisitado - Perguntas e Respostas !

1-) Como eu posso saber qual versão da DAO minha aplicação esta usando ?

Basta usar o código:   

Dim strversao as string

strversao = DBEngine.Version       ==>   a variável strversao irá conter a versão da DAO utilizada

2-) Qual é a mais nova versão da DAO ?

A última versão atualizada para a DAO é a 3.6 - Microsoft DAO 3.6 Object Library.

3-) Por que a DAO 3.5 não funciona no Windows 95 ?

a-)Você deve copiar o arquivo OLEAUT32.DLL ( 2.20.4054 ou superior) para o diretórios SYSTEM e registrár este arquivo assim:

REGSVR32.EXE OLEAUT32.DLL 

b-) Defina um valor para a variável de ambiente TEMP

c-) Você deve ter instalado a livraria EXPSRV.DLL requerida por VBAJET32.DLL.

4-) Quais drivers ISAM DAO estão disponíveis em meu computador ?

Execute o programa REGEDIT.EXE e procure pela seguintes entradas no registro:

MyComputer\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\ISAM Formats  => para versão 3.5X

MyComputer\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\ISAM Formats  => para versão 3.6

abaixo o resultado para a versão presente em minha máquina 

5-) Onde conseguir informações sobre a DAO ?

O arquivo DAO35.HLP presente no diretório :

C:\Arquivos de programas\Arquivos comuns\Microsoft Shared\DAO    ou 

(C:\Program Files\Common Files\Microsoft Shared\DAO)  contém um Help em português(parcial) sobre a ADO:

Abaixo alguns links onde você pode obter mais informações sobre a DAO:

• microsoft.public.vb.database.dao at msnews.microsoft.com

• Updated Version of Microsoft Jet 3.5 Available on MSL

• ACC97: CommitTrans Help Topic Uses dbFlushOSCacheWrites Constant

• HOWTO: Redistributing DAO with Your Visual C++ 5.0 Application

• HOWTO: How to Read .LDB Files

• PRB: Error "The Jet VBA File... Failed to Initialize When Called"

• PRB: The Jet VBA File VBAJet32.dll Failed to Initialize

• http://premium.microsoft.com/msdn/library/backgrnd/html/msdn_jetlock.htm

• HOW TO: Redistribute DAO 3.6

6-) Como criar um novo arquivo de banco de dados Access com a DAO ?

Para criar um banco de dados Access usamos o método CreateDatabase

notas:

dbLangGeneral é valido para : Inglês,Alemão, Francês, Português, Italiano ,e Espanhol
Para o Russo a constante é  dbLangCyrillic   , para o Arabé é dbLangArabic  , etc...

As constantes possíveis são:

7-) Como compactar um banco de dados Access usando a DAO

Para compactar um banco de dados Access usamos o método CompactDatabase

 Obs: Para um arquivo protegido com senha use o seguinte código:

 DBEngine.CompactDatabase "Nwind20.mdb", "Nwind30.mdb", , dbEncrypt + dbVersion30 ,";pwd=Senha"

Leia também o artigo : Compactando um banco de dados - DAO e ADO

8-) Quais as limitações de um banco de dados da versão MS Access 97 - Versão 3.5X ?

1. Tamanho máximo do arquivo mdb  =>   1GB
2. Número máximo de objeto em um banco de dados =>  32768
3. Comprimento máximo para o nome de um objeto => 64
4. Comprimento da Senha => 14
5. Comprimento máximo para nomes de usuários e grupos => 20
6. Número máximo de usuários conectados ao banco de dadaos => 255
7. Comprimento máximo do registro => 2048 
8. Número máximo de campos na tabela => 255
9. Número máximo de transações aninhadas => 7

9-) Como visualizar as tabelas existentes  em um banco dados Access usando DAO ?

10-) Como criar um tabela usando ADO ?

11-) Como criar um índice usando DAO ?

12-) Como criar um consulta  usando DAO ?

13-) Fechando todos os objetos de banco de dados abertos .

Para fechar todos os objetos DAO (recordsets, databases, Workspaces) antes de sair da sua aplicação ponha o código abaixo no evento Unload do formulário de saida:

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

14-) Criando uma chave primária em um banco de dados Access via Código.

O codigo abaixo abre o arquivo Biblio.mdb e cria a chave primária para o campo Codigo da tabela Clientes dando a ela o nome de CodigoID.

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

15-) Como criar um banco de dados e depois tabelas e campos ?

Abaixo o código que recebe o caminho e nome do banco de dados a criar e logo apos criar o arquivo MDB cria uma tabela chamada Exemplo com dois campos : Nome e Endereco.

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

16-) Como criar um campo autonumeração em um tabela de um banco de dados Access ?

Para criar um campo Autonumeração , devemos criar um campo do tipo Long e , usando a propriedade Attributes definir a propriedade dbAutoinc...

17-) Como conseguir informações sobre a DAO ? 

A Knowledge Base da Microsoft traz uma relação de artigos sobre correções , problemas,  exemplos, etc... Vale a pena consultar. Abaixo damos uma relação de links da Knowledge Base relacionados com a DAO:

vai continuar...

 José Carlos Macoratti