O que há de errado nestas Querys???

Delphi

11/04/2003

Eu tenho um Form que possui duas Querys e dois DBGrids.

A primeira DBGrid mostra Datas de contas em vencimento. Sendo que a Tabela de ´Contas em vencimento´ possui um campo: ´Cod_Vencimento´.

A segunda DBGrid mostra Datas de pagamentos que foram efetuados. Sendo que esta Tabela de ´Contas Pagas´ possui o mesmo campo: ´Cod_Vencimento´ para identificar as contas que já foram pagas mostradas na DBGrid anterior.

Quando o usuário cadastra uma nova conta paga, a segunda DBGrid mostra os dados do pagamento. Mas eu queria que esta conta paga deixasse de ser mostrada na DBGrid de ´Contas em vencimento´. Pois a mesma já foi paga.

Eu tentei fazer o seguinte, mas não deu certo:

No evendo ON_Load do Form e coloquei o seguinte comando:

Procedure FormLoad...()
Begin
var venc AsInteger;

Query1.SQL.Text := ´SELECT Cod_Vencimento FROM TabPagas´;
Query1.Open;

do while Not Query1.EOF
begin
venc := Query1.CodVencimento;
Query2.SQL.Text := ´SELCT * FROM TabVencimento WHERE Cod_vencimento <> :=venc´;
end;

Query1.MoveNext
loop

End;

Liguei a Query1 na 1ª DBGrid
Liguei a Query2 na 2ª DBGrid

Mas isso não funciona!!!
Alguém sabe como eu posso fazer isso desta ou de outra forma???

Obrigado.


A24

A24

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

11/04/2003

Colega,

Tá uma mistura de VB com Delphi. Faça o seguinte, copia o código e coloca aqui pra gente ´debugar´.


GOSTEI 0
Laureano Pereira

Laureano Pereira

11/04/2003

Amigo,

você pode fazer assim:

Cria as duas querys, na abertura do form,

e a medida que o usuário paga uma conta no contas a vencer,

você refaz as querys.

Se você filtrar as querys por mês o por fornecedor, os dados podem não ser muitos, o que seria até rápido.

Depois me diga se funcionou...

Abraços


GOSTEI 0
POSTAR