UPDATE
Ollá pessoal, boa tarde.. estou com encrenca aqui.. me tirando do sério..
preciso atualizar o status [Ô]Vencida[Ô] pela data menor que a atual..fazendo um Loop na tabela. mas como estou fazendo está atualizando dos os registro. já fiz de tudo... no critério Where.
ou seja, as datas vencidas, mudar o status de A Pagar para Vencidas..
estou usando o DB MYSQL.
Dim Rst As ADODB.Recordset
Dim Dt_Venci, Dt As Date
Dt = Format(Date, [Ô]dd/mm/yyyy[Ô])
Set Rst = New ADODB.Recordset
Sql = [Ô]Select * From Tb_DespDeb Where Stat_Desc = [ô]A Pagar[ô][Ô]
Rst.Open Sql, Conexao, 3
If Not Rst.EOF Then
Do While Not Rst.EOF
Dt_Venci = Format(Rst!Dt_Venct, [Ô]dd/mm/yyyy[Ô]) [ô]----> Data do vencimento
If Dt_Venci > Dt Then [ô]----> Se Data de Vencimento for menor que data corrente, faz a atualização do status para vencidas
Sql = [Ô]UpDate Tb_DespDeb Set [Ô]
Sql = Sql & [Ô]Stat_Desc =[ô][Ô] & [Ô]VENCIDA[Ô] & [Ô][ô][Ô]
Sql = Sql & [Ô]Where Dt_Vencto < [ô][Ô] & Dt & [Ô][ô][Ô]
Conexao.Execute Sql
End If
Rst.MoveNext
Loop
End If
Rst.Close
preciso atualizar o status [Ô]Vencida[Ô] pela data menor que a atual..fazendo um Loop na tabela. mas como estou fazendo está atualizando dos os registro. já fiz de tudo... no critério Where.
ou seja, as datas vencidas, mudar o status de A Pagar para Vencidas..
estou usando o DB MYSQL.
Dim Rst As ADODB.Recordset
Dim Dt_Venci, Dt As Date
Dt = Format(Date, [Ô]dd/mm/yyyy[Ô])
Set Rst = New ADODB.Recordset
Sql = [Ô]Select * From Tb_DespDeb Where Stat_Desc = [ô]A Pagar[ô][Ô]
Rst.Open Sql, Conexao, 3
If Not Rst.EOF Then
Do While Not Rst.EOF
Dt_Venci = Format(Rst!Dt_Venct, [Ô]dd/mm/yyyy[Ô]) [ô]----> Data do vencimento
If Dt_Venci > Dt Then [ô]----> Se Data de Vencimento for menor que data corrente, faz a atualização do status para vencidas
Sql = [Ô]UpDate Tb_DespDeb Set [Ô]
Sql = Sql & [Ô]Stat_Desc =[ô][Ô] & [Ô]VENCIDA[Ô] & [Ô][ô][Ô]
Sql = Sql & [Ô]Where Dt_Vencto < [ô][Ô] & Dt & [Ô][ô][Ô]
Conexao.Execute Sql
End If
Rst.MoveNext
Loop
End If
Rst.Close
alguem tem alguma idéia onde está errado essa função. ?/
pessoa, parece brincadeira.. mas nem isso aqui quer funcionar, carregar na grid apenas os registro com a data vencidade...
Sql = [Ô]Select * From Tb_DespDeb Where Dt_Venct < [ô][Ô] & DtAtual & [Ô][ô][Ô]
já fazendo direto no banco de dados, funcionar blz..
Select * From Tb_DespDeb Where Dt_Venct < [ô]2012/04/29[ô] And Stat_Desc <> [ô]Pago[ô]
dbmysql
Sql = [Ô]Select * From Tb_DespDeb Where Dt_Venct < [ô][Ô] & DtAtual & [Ô][ô][Ô]
já fazendo direto no banco de dados, funcionar blz..
Select * From Tb_DespDeb Where Dt_Venct < [ô]2012/04/29[ô] And Stat_Desc <> [ô]Pago[ô]
dbmysql
Tópico encerrado , respostas não são mais permitidas