COMO GRAVAR RESULTADO DE BUSCA

USUARIO.EXCLUIDOS 26/05/2004 03:03:34
#26666
olá amigos estou tentando fazer o seguinte...tenho 2 tabelas, uma chamada CONTAS e outra chamada VENCIDAS...quero saber como faço uma consulta SQL na tabela contas e saber quais são as contas vencidas, daí entaão gravar o resultado na segunda tabela VENCIDAS...

Agradeço desde já
USUARIO.EXCLUIDOS 26/05/2004 12:12:48
#26728 Resposta escolhida
Para fazer a consulta na Tabela Contas e gravar na tabela Vencimento:

[/c]
sSql = "SELECT * FROM Contas WHERE Vencimento |Menor| CDate('" & Date & "')"
Set RcsContas = dtb.CreateSnapshot(sSql)
Do While RcsContas.EOF 
   sSql = "SELECT * FROM Vencidas WHERE Codigo = '" & RcsContas("Codigo") & "'"
   Set RcsVencimento = dtb.CreateSnapshot(sSql)
   If RcsVencimento.EOF Then
      RcsVencimento.AddNew
      RcsVencimento("Codigo") = RcsContas("Codigo")
    else
      RcsVencimento.Edit
   endif
   RcsVencimento("Descricao") = RcsContas("Descricao")
   RcsVencimento("NumDoc") = RcsContas("NumDoc")
   RcsVencimento("Valor") = RcsContas("Valor")
   RcsVencimento("Vencimento") = RcsContas("Vencimento")
   RcsVencimento.Update
   RcsVencimento.Close

   RcsContas.MoveNext
Loop
RcsContas.close


Naum use acentos no nome dos campos de suas tabelas.

Qualquer coisa Post

Te +[S56]
USUARIO.EXCLUIDOS 26/05/2004 12:15:37
#26730
Ih!, Agora que vi q vc eh meu conterraneo[S63]

Te +[S56]
USUARIO.EXCLUIDOS 26/05/2004 12:59:55
#26739
Eu moro na Zona Sul, Jd Esperanca. Mas trabalho aki no Centro mesmo. E vc?

Eh impressao minha ou vc eh meu Xara tb?

Ah! Deu certo a dica ai?

Te +[S56]
USUARIO.EXCLUIDOS 26/05/2004 14:26:00
#26766
Fabao,
Se quiser conversar direito, depois das 18:00 eu vou la no America Gym II, aki na Marechal, pq logo logo os outros moderadores mandam agente cata coquinho por ficar batendo papo aki.

Mas sobre o seu problema, qual foi o erro?
Onde ele ocorreu?
Pq eu tenho uma rotina parecida c/ a tua e funciona belezinha.

Posta ai!

Te +[S56]
USUARIO.EXCLUIDOS 26/05/2004 15:52:59
#26794
Qual eh a sua varavel de conexao?
Depois da Instrucao SQL vc esta dando um .Execute(sql) na variavel?

Pq de acordo com o SQL q vc postou era pra dar um erro quando vc executa-lo.

Qualquer coisa Post

Te +[S56]
Tópico encerrado , respostas não são mais permitidas
Voltar