Integrando BD em Access com VB

[lcs]

Bom vou postar aqui algo que talves alguns que estão começando talves não saibam(como eu não sabia),espero que seja ultiu para alguem.

1° Faça sua tabela no Access.
2° No VB crie campos conrrespondentes( nome na tabela crie um com identificação igual no form do VB)
3°  Fazer uma referencia a bibliioteca Microsoft Activex Data Object 2.8 Library , faça pelo menu project > Refences
4°Adicione o componente Microsoft ADO Data Control 6.0, tambem pelo menu project mais na opção components
5°Inclua no seu form o componente Microsoft ADO Data Control 6.0 e clique com o botão direito nele e va em ADODC properts
6° Va  na guia Use Connection Srting e escolha a opção Microsof jet 3.51 se o seu Access for 97 e Microsof jet 4 se for superior a esse.
7° Ainda nas propriedades do seu componente selecione o banco de dados que vc criou e va na guia record source e digite a seguinte linha de comando (select * from nome da tabela que vc criou)
8°Agora va no primeiro Textbox que vc criou e na opção datasource e selecione a tabela com a qual vc fez a conexão e na opção Datafild[/b} escolha o campo da sua tabela.

Apos esses procedimentos quando vc mandar rodar seu programa o textbox que foi criado deve conter o conteudo do campo da tabela que tu criou. Se não aparecer repta os passos anteriores.

Agora vamos criar botões para que vc crie um novo registro e outro para vc gravar esse registo no seu BD

1°Crie dois buttons no seu Form  e os renomei ambos como btn_novo e btn_gravar
2° No button btn_novo insira a seguinte linha de comando Adodc1.recordest.addnew (nota: Adodc1 é o nome do componemte que vc criou)
3° No buttion btn_gravar insira a linha  de comando Adodc1.recordset.update
4° Agora no btn_novo inclua a linha de comando abaixo da anterior Adodc1.enable=false e no btn_gravar faça o inverso insira apos o sinal de = false.

Obs: No passo 7 vc pode inserir varios comandos como por exemplo delete* from teste.
Obs2: vc tem que bloquear o seu Adodc pois quando vc inclui um novo registro ele não atualiza imediatamente a tabela e tb não permite que vc se movimente por ela;

Criado By LCS
Help by Claudio Neto imaster.com.br