Acessando dados com ADOR

Acessando dados com ADOR - ActiveX Data Object Recordset.

Você já ouviu falar em ActiveX Data Objects Recordset , ADOR , para os íntimos. Ele é um componente de acesso a dados de somente leitura, um complemento funcional da ADO . É um modo funcional e compacto para acesso a dados ; pode ser usado muito bem na WEB.

Vamos mostrar como acessar um banco de dados Access , o banco de dados Biblio.mdb. Vamos acessar a tabela Authors e exibir em uma caixa de listagem o nome dos autores.

Como vamos usas a ADOR para a conexão temos que referenciar a biblioteca - Microsoft Activex Data Object Recordset 2.6 Library.

1-) Inicie um novo projeto no Visual Basic e no formulário padrão insira um botão de comando(command1) e uma caixa de listagem ( list1 )

2-) Agora insira o seguinte código no evento click do botão de comando - command1.

Private Sub Command1_Click()
Dim sql As String

Dim adorRs As ADOR.Recordset
Set adorRs = New ADOR.Recordset

'cria instrucao sql
sql = "Select * from Authors where Au_Id < 30"

With adorRs

   .ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\teste\Biblio.mdb;"
   .Source = sql
   .Open

   Do Until .EOF

   List1.AddItem .Fields(1)
   .MoveNext

Loop

End With

End Sub

Note que:

Não estamos usando um objeto connection para efetuar a conexão explicitamente.

Ao executar o projeto e clicar no botão a caixa de listagem exibirá todos os autores com código(Au_Id < 30) inferior a 30. veja a tela abaixo:

E , e só...