|
|
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" 
|
|
|
|
|
|
|
|
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 |
|
|
|
|
|
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"
|
|
|
|
|
|
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 |
|
|
|
|
|
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"
|
|
|
|
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
|
|
|
|
