Abrindo um base de dados
Abrindo um base de dados
Veremos como abrir e fechar uma base de dados padrão Microsoft JET ( access ) , usaremos como exemplo a Biblio.mdb.
Abrindo a base de dados em modo compartilhado
DAO
| Dim db as
DAO.Database Dim db = DBEngine.OpenDatabase ("c:\Biblio.mdb" ) ............... fechando a base db.close |
ADO
| Dim cnn As new ADODB.Connection cnn.Open "Provider = Microsoft.Jet.OLEDB.3.51;Data Source = C:\Biblio.mdb;" ..................fechando a base cnn.Close |
| A novidade aqui fica por conta da string Connection
, ela neste exemplo tem duas partes: o descritor Provider
que indica qual provedor OLE DB estamos usando e
o descritor Source que indica qual base
de dados abrir. No código usando a DAO fica implícito que a base de dados é uma base de dados Microsoft JET , mas com a ADO temos que especificar que queremos abrir uma base de dados Microsoft Jet. |
Abrindo a base de dados em modo exclusivo e somente para leitura
DAO
| Dim db as
DAO.Database Dim db = DBEngine.OpenDatabase ("c:\Biblio.mdb , False , True) ............... fechando a base db.close |
ADO
| Dim cnn As new ADODB.Connection cnn.Mode = adModeRead cnn.Open "Provider = Microsoft.Jet.OLEDB.3.51;Data Source = C:\Biblio.mdb;" ..................fechando a base cnn.Close |
| Aqui a propriedade Mode do objeto Connection foi definida usando a constante adModeRead como somente para leitura. |
Poderiamos ter escrito o código em uma única linha :
| Dim cnn As new ADODB.Connection cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _ "Data Source=C:\nwind.mdb;Mode=" & adModeRead ..................fechando a base cnn.Close |
| Aqui a propriedade Mode foi escrita
como parte da string Connection para o
método Open e não como uma propriedade
do objeto Connection. Na ADO você pode definir as propriedades do objeto Connection também como fazendo parte de uma string de conexão. |
Abrindo a base de dados protegida com uma senha
DAO
| Dim db as
DAO.Database Dim db = DBEngine.OpenDatabase ("c:\Biblio.mdb , False , False, _ ";pwd = senha ") ............... fechando a base db.close |
ADO
| Dim cnn As new ADODB.Connection cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _ "Data Source=C:\biblio.mdb;Jet OLEDB:Database Password=password;" ..................fechando a base cnn.Close |
| A propriedade Jet OLEDB:Database Password define a senha da base de dados |
.... continua
|
Veja os
Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique
e confira !
Quer migrar para o VB .NET ?
Quer aprender C# ??
Quer aprender os conceitos da Programação Orientada a objetos ?
|
Gostou ? 
Compartilhe no Facebook
Compartilhe no Twitter
Referências:
