USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ##DAO para ADO, buscar e mostrar ##
Dário Cardoso
GOIÂNIA
GO - BRASIL
ENUNCIADA !
Postada em 18/09/2008 14:01 hs            
Senhores mais uma duvida na minha migração DAO pra ADO.... ufa!!!

O codigo abaixo busca no BD o codigo digitado no txt_codigo. ex: digitei 0051 ele me retorna todos os dados relacionados ao codigo.

MAS COMO FAÇO ISSO EM ADO???? HELP!!!!


Private Sub txt_codigo_LostFocus()
If txt_codigo <> "" Then
Dim AreaTrabalho As Workspace
Dim xxbco As Database
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "DADOS.Mdb", False, False)
query = "Select * From CADASTRO_REMESSAS where campo_codigo = '" & txt_codigo & "'"
Set dyn = xxbco.OpenRecordset(query)
If Not dyn.EOF Then
txt_codigo = dyn("campo_codigo") & ""
txt_destino = dyn("campo_destino") & ""
xxbco.Close
End If
End If
End Sub


"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" Emoções
   
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 18/09/2008 14:30 hs            
dario , igualzinho te passei no outro post
dim rsUltimo as adodb.recordset
set rsUltimo = new adodb.recordset
sSql = "Select * From CADASTRO_REMESSAS where campo_codigo = " & txt_codigo
rsUltimo.Open sSql, sCnx, adOpenStatic, adLockBatchOptimistic
If Not rsUltimo.EOF Then
    txtNome.text = rsultimo!nome
    txtEndereco.text=rsultimo!endereco
end If
 
'é so mudar o nome do recordset para por exemplo rsCliente ok. no mais é igualzinho
   
Dário Cardoso
GOIÂNIA
GO - BRASIL
ENUNCIADA !
Postada em 19/09/2008 08:25 hs            
Olá amigo, eu dei uma mudada no bicho mas seguindo o mesmo metodo, porem ele não está entrando no IF, sabe me falar porque?

Private Sub cmd_CONSULTA_Click()

Dim rs2 As adodb.Recordset
Dim Sql As String

Set rs2 = New adodb.Recordset

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

rs2.Open Sql, conexao, adOpenStatic, adLockBatchOptimistic

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

vc ou alguem ai sabe explicar ou tem um tutorial que fala sobre o que é adOpenStatic, adLock* e demais coizitas do ADO..... kra to doido!!!
Mas vou conseguir!


"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" Emoções
   
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 19/09/2008 09:00 hs            
Dario provalvelmente o seu select nao trouxe dados nenhum, por isso ele nao entrou no if ok.
quanto aos parametros adopenstatic, etc.... se nao me engano aqui no forum tinha uma apostila que falava sobre cada um
   
Dário Cardoso
GOIÂNIA
GO - BRASIL
ENUNCIADA !
Postada em 26/09/2008 10:12 hs            
é isso mesmo não esta retornando nada......
Alguem pode me dizer pq????

"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" Emoções
   
CSRocha
BRASILIA
DF - BRASIL
ENUNCIADA !
Postada em 26/09/2008 11:08 hs            
Checa se está retornando algum registro, colocando antes do IF:

msgbox rs2.RecordCount

   
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página