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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Atualização
mferreiraneto
LAGOA SANTA
MG - BRASIL
Postada em 07/02/2006 14:48 hs            
Pessoal, boa tarde!!!
Tenho um formulário onde pesquiso por nome do cartão, data de inicio e final o valor que tem que receber da operadora.
Ex.:
CredCard 01/02/06 a 05/02/06

Este resultado é mostrado em um DBGrid totalmente certo como desejado, porém preciso agora baixar estes registros colocando em um campo da Tabela a opção SIM e em outro campo a data que estou baixando este registro.

Ou seja, em minha pesquisa retornou que tenho 25 registros da credcard para receber no periodo da pesquisa, agora preciso colocar somente nestes 25 registros a opção SIM e a Data Atual.

então em um botão de commando eu inseri o código abaixo, funciona... porém muito lento pois na tabela tenho mais de 2000 registros, preciso de uma rotina que faça este proceso mais rapido.

Se foi entendido, alguém pode me ajudar????

'Processo de Seleção
While Not Data1.Recordset.BOF
Data1.Recordset.Edit
Data1.Recordset.Fields("Baixado") = "SIM"
Data1.Recordset.Fields("DataRecebimentoCartao") = txtData.text
Data1.Recordset.Update
Data1.Refresh
Data1.Recordset.MoveNext
Wend
'Fim de Processo


Marcelino Neto
VB6.0
Access97
DataControl

EmoçõesMFerreira...
     
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 07/02/2006 14:59 hs            
VOCE PROVALVELMENTE MONTA UMA SQL SELECT COM WHERE PARA PREENCHER O DATA1, ENTÃO SIMPLESMENTE CRIE UMA OUTRA SQL MAS DE UPDATE COM A MESMA CONDIÇÃO WHERE DA DA SELECT, ESPERO TER SIDO CLARO, QQ COISA É SÓ POSTAR
 

dsmn
     
mferreiraneto
LAGOA SANTA
MG - BRASIL
Postada em 08/02/2006 07:33 hs            
Meu amigo, bom dia...
Se puder me ajudar um pouco mais, te agradeço muito, ainda estou tentando aprender um pouco mais sobre SQL.
 
Marcelino Neto.

EmoçõesMFerreira...
     
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