consulta com messagem s/ branco
Ola delphimaniacos,
Minha dúvida é a seguite tenho esta busca que esta abaixo, gostaria que me desse uma messagem se trouxe o em branco a consulta:
Form2.query1.Close;
Form2.query1.SQL.Clear;
Form2.query1.SQL.Add(´select cg_nm,cg_limcred from ger_cg´);
Form2.query1.sql.Add(´where cg_nm like´+ Quotedstr( edit1.Text+´¬´));
Form2.query1.sql.Add(´order by cg_limcred desc´);
Form2.query1.Prepare;
Form2.query1.Open;
agradeço
Minha dúvida é a seguite tenho esta busca que esta abaixo, gostaria que me desse uma messagem se trouxe o em branco a consulta:
Form2.query1.Close;
Form2.query1.SQL.Clear;
Form2.query1.SQL.Add(´select cg_nm,cg_limcred from ger_cg´);
Form2.query1.sql.Add(´where cg_nm like´+ Quotedstr( edit1.Text+´¬´));
Form2.query1.sql.Add(´order by cg_limcred desc´);
Form2.query1.Prepare;
Form2.query1.Open;
agradeço
Coppola
Curtidas 0
Respostas
Nildo
25/08/2003
If form2.query1.RecordCount <> 0 then showmessage(´A busca retornou ´ + inttostr(form2.query1.RecordCount) + ´ registros.´);
Vai mostrar somente se retornou algum registro, e se retornar vai mostrar quantos retornou
t+
GOSTEI 0