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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Localizar código
Bicicchi
SOROCABA
SP - BRASIL
Postada em 18/11/2004 18:50 hs            
Olá pessoal, olha eu aqui de novo, mas é que não domino o VB
 
Tenho um sistema e estou utilizando ADo via código para acessar o BD. Acontece que quando tento localizar algum registro dá erro. O Código está certo:
 
rs1.find "ID = " & varCódigo ´localiza o cliente de Código xxx
if rs1.eof() = true then exit sub
MostraDados ´exibe os dados dos campos no form
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 18/11/2004 19:22 hs            
Mas qual o erro q acontece?? Em qual linha??
Vc poderia colocar tb o seu código de conexão ao BD por favor??
 
obrigado!
TÓPICO EDITADO
   
Bicicchi
SOROCABA
SP - BRASIL
Postada em 18/11/2004 21:10 hs            
=== No general declarations
 
Public Cn1 As ADODB.Connection
Public Rs1 As ADODB.Recordset
=== No Form Load
 
Set Cn1 = New ADODB.Connection
Cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "Controle.mdb;Jet " & "OLEDB:Database Password=sr4530;"
Set Rs1 = New ADODB.Recordset
Rs1.CursorType = adOpenKeyset
Rs1.LockType = adLockOptimistic
Rs1.ActiveConnection = Cn1
Rs1.Source = "Select * from Internet2 Order by ID"
Rs1.Open
=== No botão Localizar
 
Dim varLocaliza As Integer
varLocaliza = InputBox("Digite o código do cliente:", "SCAI")
Rs1.Find "ID = " & varLocaliza
If Rs1.EOF() = True Then
    MsgBox "Usuário não cadastrado.", vbInformation + vbOKOnly, "SCAI"
Else
    Atualiza
    cmdFechar.SetFocus
End If
E o VB fala que não encontrou o Cliente
 
O que estou fazendo de errado ???
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/11/2004 12:50 hs            
Testei o seu código e está tudo certo só q ao q parece é q o ponteiro está sendo perdido após o rs1.find "ID ...", acho q seja isso, os colegas com mais conhecimento me corrijam se eu estiver errado.
Então acrescente esta linha:
 
Dim varLocaliza As Integer
varLocaliza = InputBox("Digite o código do cliente:", "SCAI")
rs1.moveF irst '<= LINHA ACRESCENTADA
rs1.find "ID = " & varCódigo ´localiza o cliente de Código xxx
if rs1.eof() = true then exit sub
MostraDados ´exibe os dados dos campos no form
 
OK?? Teste aí, acho q vai dar certo... qq problema é só postar novamente
 
t+
 
obs.: desculpe o espaço entre o MoveF irst... é q o sistema do site está mudando a palavra para MoveMin
TÓPICO EDITADO
 
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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