Problema com BD em VB6

[CarlosGP]

Olá, Boa noite, sou novo no forum e este é o meu primeiro post, sou novato no vb6 mas até já sei fazer uma ou outra coisa :)

Só que agora ando desesperado para fazer um acesso a base de dados e já tentei de todas as formas e... NADA

A minha ideia era ter duas textbox sendo que eu colocava numa textbox um codigo existente numa coluna da bd e ao carregar no butão ele devolvia-me o valor noutra textbox de outra coluna da bd

A base de dados foi feita com o visdata, e até já estou farto de adicionar References e Components.

Fiz esta imagem para voçes perceberem o meu problema mais facilmente.

alguém me pode dar uma ajuda, axo que isto é tão facil para voçês que enfim :wacko:

Espero não estar a abusar.

OBRIGADO desde já a todos.

[Matheus-vb6]

Opa carlos, antes de tudo, bem vindo ao forum :D

Cara... banco de dados quando eu fui faze foi tenso, mas n entre em desespero... vamos por passos....

1- ative o componente microsoft ado data control 6.0

2-coloque o objeto que apareceu no painel < no formulário e já pode exclui-lo (poe e tira :))

3- crie um módulo, caso não saiba o que é, poste que eu explico... enfim, no módulo você poe esse código:

Public cn As ADODB.Connection
Public rsdados As Recordset

Public Function abrebanco()
Set cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source= " & App.Path & "\LOCAL;jet oledb:database password=SENHA"
End Function

Public Function fechabanco()
cn.Close
End Function

4- no seu form_load, coloque "abrebanco" e de um f5, caso não apresente nenhum erro, sua conexão está correta.... 5- Uma consulta no banco de dados, é feita pela instrução "select", no seu caso:

abrebanco
set rsdados = new adodb.recordset
rsdados.open "select * from TABELA where IN='" & txtum.text & "'",cn
txdois.text = rsdados("OUT")
fechabanco

A base de dados foi feita com o visdata, e até já estou farto de adicionar References e Components.

Não conheço ele, mas creio q da pra ter uma ideia por aqui... eu utilizo access 2003 (mdb)

Pesquise sobre "crud", são as operações "basicas" de gerenciamento de dados, acredito que ajude...

Abraços, duvidas poste :D

[CarlosGP]

Olá, Obrigado pela a ajuda mas ainda não estou conseguindo.

Na linha de codigo ---->

rsdados.Open "select * from TABELA where IN='" & txtcodigo.Text & "'", cn

ele esta sublinhando o ".Open" e está dando o erro "Method or data member not found"

O meu cinsero obrigado pela ajuda..

Editado Fevereiro 5, 2011 por CarlosGP

[Matheus-vb6]

1- Você criou os modulos?

2- Inseriu o componente?

3- criou o objeto e em seguida excluiu?

4- Veja se você colocou "abrebanco" antes dessa linha

Veja esses passos, se continuar dando erro, poste aqui :) ou add MSN

Abraços

[kuroi]

você adicionou a referencia ao Microsoft ActiveX Data Objects??

[Danleonhart]

Seja bem vindo CarlosGP :)

Olá, Obrigado pela a ajuda mas ainda não estou conseguindo.

Na linha de codigo ---->

QUOTE

rsdados.Open "select * from TABELA where IN='" & txtcodigo.Text & "'", cn

ele esta sublinhando o ".Open" e está dando o erro "Method or data member not found"

O meu cinsero obrigado pela ajuda..

Amigo, tens aí dois grandes "Usuários" que entendem do assunto e já me ajudaram bastante :D (Kuroi & Matheus VB-6)

Acho que o erro pode está ocorrendo na variável... se for Números que está colocando nas TextBoxes faça assim:

rsdados.Open "select * from TABELA where IN=" & txtcodigo.Text, cn

ou tente assim :

rsdados.Open "select * from TABELA where IN=' & txtcodigo.Text & '", cn

Minha opinião cara...

Valeu !!! :D

[Matheus-vb6]

você adicionou a referencia ao Microsoft ActiveX Data Objects??

Adicionando o microsoft ado~ não precisa adicionar esse.... eu nunca precisei até hj =p

ou tente assim :

rsdados.Open "select * from TABELA where IN=' & txtcodigo.Text & '", cn

Minha opinião cara... Valeu !!! :D

Corrigindo uma coisa, em vez de apostrofos, são aspas :

rsdados.Open "select * from TABELA where IN=" & txtcodigo.Text & "", cn

Abraços ae :D

Editado Fevereiro 9, 2011 por Matheus-vb6