##DAO para ADO, buscar e mostrar ##


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: ##DAO para ADO, buscar e mostrar ##

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 26/09/2008 11:55 hs

Posso dar outra sugestão para você fazer um teste

Veja

Em um Módulo cole

Global Conexao As New ADODB.Connection

'Primeiro vá em PROJECTS / REFERENCES e selecione Microsoft ActiveX 2.8 Object Library

Public Function Conecta(Valor As Boolean)

If Conexao.State = 1 Then     'verifica se a conexão está aberta
Conexao.Close                     'se estiver então fecha para evitar erros
Set Conexao = Nothing          'caso você esqueça de fechar a mesma
Valor = True                        'e prepara para abrir novamente.
End If

If Valor = True Then
Conexao.Open "provider=microsoft.jet.oledb.4.0; data source=c:\banco_de_dados.mdb;jet OLEDB:System Database=system.mdw;"
Else
Conexao.Close
Set Conexao = Nothing
End If
End Function

feito isto no form basta proceder da seguinte maneira

sua pesquisa ficaria assim veja:

Private Sub cmd_CONSULTA_Click()
Dim Sql As String
Dim rs2 As Recordset

Sql = "Select * From TABELA where campo_codigo = '" & txt_codigo & "'"

Set Rs2 = Conexao.Execute(SQL)

If Not rs2.EOF Then
    txt_codigo.Text = rs2!campo_codigo
    txt_nome.Text = rs2!campo_nome
    txt_fone.Text = rs2!campo_fone
End If

End Sub

Faça um teste se mfuncionar explicarei o restante conforme for surgindo duvidas

TÓPICO EDITADO

Dário Cardoso

GOIÂNIA
GO - BRASIL

ENUNCIADA !

Postada em 29/09/2008 09:49 hs

Treze obrigado pela ajuda, mas...

rs2.EOF = TRUE daí num entra nem a pau no IF NOT

Quer dizer que não tem dados pra mostrar é isso????
Mas estou com o access aberto e estou informando sempre um dos codigos já cadastrados, ou seja, existe dados no BD......

Por favor Trze dá uma mão pra esse analfa aqui.....

"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 29/09/2008 09:58 hs

na realidade Dário o "If Not RS2.Eof" funciona da seguinte maneira, ele verifica se a busca não chegou ao fim dos registros, ou seja foi encontardo um registro antes que a busca chegasse ao fim.

mas você pode tentar de outra forma veja

If rs2.EOF = True and rs2.BOF = True Then

MsgBox"Não existem registros na Tabela!"

Else

    txt_codigo.Text = rs2!campo_codigo
    txt_nome.Text = rs2!campo_nome
    txt_fone.Text = rs2!campo_fone
End If

Faz o teste com o código acima

TÓPICO EDITADO

Dário Cardoso

GOIÂNIA
GO - BRASIL

ENUNCIADA !

Postada em 29/09/2008 10:49 hs

Informou que não existe registro!!!!!!!!!! uê mas existe sim rapa!

eitá nois!

"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"

Dário Cardoso

GOIÂNIA
GO - BRASIL

ENUNCIADA !

Postada em 29/09/2008 10:55 hs

Consegui treze fiz com LIKE mais quebrou o galho, assim vou listar os codigos relacionados ao digito, vou bolar algo, MAS DEU CERTO.....

VALEU GALERA

"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"

Alexandre Patos

PATOS DE MINAS
MG - BRASIL

ENUNCIADA !

Postada em 29/09/2008 10:57 hs

dário, faz o seguinte , tente fazer assim

dim rs as adodb.recordset

Sql = "Select * From TABELA where campo_codigo = '" & txt_codigo & "'"

Set rs = New ADODB.Recordset
rs.Open Sql, sCnx, adOpenStatic, adLockBatchOptimistic

If not rs.EOF Then

    txt_codigo.Text = rs!campo_codigo
    txt_nome.Text = rs!campo_nome
    txt_fone.Text = rs!campo_fone
End If

Página(s): 2/2 « ANTERIOR