ADO - Data Control -

O ADO - Data Control permite conectar ao Banco de Dados, tanto o Access como o SQL Server. O acesso pelo ADO - Data Control, é feito pelo controle Microsoft ADO Data Control, sendo que a codificação fica bem menor, já que a conexão com o Banco de Dados é feita através de Propriedades. Ou seja: com apenas alguns códigos, o programa permite manipular o banco de dados, como: salvar, alterar, excluir, pesquisar, etc.

Colocar o controle ADO no formulário:

• Clique no Menu Project/Componentes (Tecla de atalho: Ctrl + T);

• Procure na lista o controle Microsoft ADO Data Control 6.0 (OLEDB);
• Clique na caixa para marca-lo e depois clique no botão OK;

Você poderá notar que na Caixa de Ferramentas (onde você coloca Label, Textbox, Command Button, existe um controle novo que é o ADO Data Control. Coloque-o no formulário, para conectar ao Banco de Dados do Access.

Conectando ao ADO Data Control:

• No Access, crie o Banco de Dados Cadcli;
• Crie a tabela de Clientes, com os campos:

Salve-a como Cliente.

Configurando as Propriedades

• Name: rsCliente;
• Caption: Cadastro de Clientes (ou se preferir, deixe em branco);
• Conection String: Clique no botão desta propriedade, onde será aberta a janela abaixo;
• Clique no botão Build. Será aberta a seguinte janela:

• Selecione a opção Microsoft Jet 4.0 OLE DB Provider e clique no botão Avançar (Next);
• Será aberto a seguinte janela;

• Em Select the following to connect to Access data: Clique no botão ao lado desta caixa e localize o arquivo do Banco de Dados, que você criou no Access;
• Clique no botão Testar Conexão. Se a mensagem for Teste de conexão concluída com êxito é porque a conexão foi feita com sucesso. Clique no botão OK para voltar na janela anterior. Clique no botão OK para fechar a primeira janela.
• RecordSource:
• Clique no botão desta propriedade, onde será aberta uma janela;
• Clique na última caixa Command Text (SQL)(a maior) e digite:
• Select * From Cliente e a seguir no botão OK. Nesta propriedade você está informando o seguinte: Selecione (Select) todos campos (*) da Tabela (From) Cliente.
  Você também poderia digitar assim: Select Codigo, Nome, Cidade, Telefone From Cliente que seria mesma coisa. Neste caso, você poderia informar também, apenas alguns campos e não todos, pois nem sempre necessitamos de trabalhar com todos os campos de uma determinada tabela.

Conectando (ligando) os Textbox no Controle ADO

Para que o Visual Basic saiba em que campo da tabela serão armazenados o conteúdo de cada Text box, você precisa alterar essas duas propriedades em cada um.

• Selecione o primeiro Text box;
• DataSource: Selecione rsCliente
• DataField: Selecione o Campo, clicando na lista (exemplo:Codigo).

Faça esse procedimento para todos os textbox.

Codificando os Botões

Codificação do botão Novo
rsCliente.Recordset.AddNew 'Adiciona um registro novo
cmdNovo.Enabled = False 'Desabilita o botão Novo
cmdSalvar.Enabled = True 'Habilita o botão Novo
cmdExcluir.Enabled = False 'Desabilita o botão Excluir
txtNome.SetFocus 'Coloca o foco dentro do textbox
Codificação do botão Salvar
If MsgBox("Deseja Salvar ?", vbQuestion + vbYesNo, "Salvar") = vbYes Then
rsCliente.Recordset.Update 'Salva(atualiza) o registro
End If
cmdExcluir.Enabled = True 'Habilita o botão Excluir
cmdNovo.Enabled = True 'Habilita o botão Novo
txtCodigo.SetFocus
Codificação do botão Excluir
If MsgBox("Deseja Excluir ?", vbQuestion + vbYesNo, "Excluir") = vbYes Then
On Error GoTo Erro_Excluir 'Ativa o tratamento de erros
rsCliente.Recordset.Delete 'Apaga o Registro na Tabela
rsCliente.Recordset.MoveNext 'Move para o próximo Registro
End If
txtNome.SetFocus
Exit Sub
Erro_Excluir:
If Err.Number = 3021 Then
MsgBox "Não existe registro para exclusão!", vbInformation, "Aviso"
Else
MsgBox Err.Number & Chr(13) & Err.Description
End If
Codificação do botão Cancelar
rsCliente.Recordset.Cancel 'Cancela o AddNew
rsCliente.Refresh 'Atualiza a tabela
Explicação dos botões acima:
Botão Novo: O método AddNew permite criar um registro novo. Foi desabilitado os botão novo para que o usuário não clique novamente no mesmo, pois será gerado um erro. Também desabilitado o botão Excluir, pois não tem lógica permitir a exclusão de um registro que ainda não foi salvo. E a seguir, habilitado o botão Salvar.
Botão Salvar: O método Update armazena os dados na tabela, porém o Visual Basic, normalmente só o exibirá quando a tabela ou formulário for fechado e reaberto a seguir.
Botão Excluir: O método Delete, exclui o registro atual. Foi utilizado o tratamento de erros, sendo a rotina desviada para o bloco Erro_Excluir. Caso não haja nenhum registro para excluir, ou caso contrário aconteça outro erro, é exibida a mensagem e o programa não é finalizado..
Botão Cancelar: Por exemplo se for clicado no botão novo, e resolver não incluir o registro, utilizamos o método Cancel ou CancelUpdate, que desfaz a operação.