Banco De Dados E Vb

[Guest Daniel Botelho]

Gostaria de receber informações, de como eu posso juntar arquivos em Access com programas em Visual Basic 5 ou 6.

Obrigado.

[Eddie_666]

Cara, é simples, dá uma olhada em algum tutorial que explique vb + banco de dados (aqui no site da SB com certeza tem), qualquer dúvida pode postar...

[Guest Victor Marchi]

Bem, vamos lá:

Pra criar uma conexão com banco de dados em VB6.0 com acess (pacote office 2000) é simples, vejamos:

**ESSA CONEXÃO É DO TIPO ADO !**simples de tudo...

1º) Crie um BD Acess e salve no mesmo diretório (ou pasta) que você vai salvar o project1.vbp.

2º) Em 'PROJECT', selecione 'REFERENCES...' e inclua a referência ADO (a mais atual possível) e DAO (prevenção). OBS: Não selecione mais de uma opção ADO ou DAO...isso pode provocar um conflito de biblioteca !

2º) Crie no form principal, as seguintes variáveis:

"Dim db as DataBase"

"Dim grava as RecordSet"

3°) Agora, em Form Load, insira essas linhas:

"Set db = OpenDatabase("caminho do Banco de dados",false,false)"

"Set grava = db.OpenRecordset("nome da tabela do Banco de Dados")

4°) Depois de ter criado a conexão, execute (F5) e veja se não ocorre nenhum problema. Para ter certeza que o banco de dados está sendo aberto para gravação ("Set grava = db.OpenRecorset("nome do Banco de Dados"), vá até o local onde seu DB foi salvo e note se há 2 arquivos do Acess, um com uma chave(indica execução). Caso isso seja notado, beleza, seu BD está pronto para receber os dados de um objeto no Form...

5°) Vamos inserir um nome na coluna "NOME" da sua tabela "USUARIOS", do seu DB "USERS", ok ? Insira um TextBox e um CommandButton no Form e aplique as linhas seguintes nas propriedades do CommandButton:

"grava.AddNew"

"grava.Fields("NOME") = TextBox1.Text"

"grava.Update"

---Nesse caso, "grava.AddNew" indica que a variável de gravação "grava" está pronta para receber um novo dado ".AddNew".--------------------------------

---"grava.Fields("NOME") = TextBox1.Text", indica que a variável "grava" está selecionando um capo ".Fields", que nesse caso é "(NOME") --> coluna do DB que você criou <---, e que vai receber o dado contido no TextBox1.Text---

---"grava.Update", indica que a variável "grava" está atualizando o DB com o novo dado inserido através do TextBox1.Text----------------------------------------

PRONTO, SUA CONEXÃO ADO COM BANCO DE DADOS ACESS 2000 ESTÁ CRIADA. É UMA CONEXÃO SIMPLES, MAS FUNCIONAL EM ALGUNS CASOS.

CASO ALGUÉM QUEIRA SABER CONEXÕES DE BUSCA SQL, FAVOR ENTRAR EM CONTATO PELO E-MAIL faturar@ig.com.br

FUI....

Victor L.Marchi

*Development's Group -- Valinhos/SP*

#DESENVOLVIMENTO#