Avaliação do Tópico:
  • 0 votos - 0 Média
  • 1
  • 2
  • 3
  • 4
  • 5
Manual ICriteria
#6
Meu primeiro sql:

function TMESA.GetMesa(const ACodigo: string): IDBResultSet;
var
LWhere: string;
begin

LWhere := ' 1=1 ';

if not StrVazia(ACodigo) then
begin
LWhere := LWhere + ' and CODIGO = ' + ACodigo;
end;

Result := TCriteria.New.SetConnection(iBDConexao).SQL(
CreateCriteria.Select.Column('CODIGO').Column('DESCRICAO').
From('MESA').
Where(LWhere)).AsResultSet;
end;


Mesa := TMESA.Create;
try
with Mesa.GetMesa('') do
begin
DataSet.First;
while not DataSet.Eof do
begin
Atencao(FieldByName('DESCRICAO').AsString);
DataSet.Next;
end;

end;
finally
FreeAndNil(Mesa);
end;
Responder


Mensagem neste Tópico
Manual ICriteria - por Osiel Gomes - 22-10-2017, 07:00 PM
RE: Manual ICriteria - por Isaque Pinheiro - 22-10-2017, 07:37 PM
RE: Manual ICriteria - por Osiel Gomes - 22-10-2017, 07:56 PM
RE: Manual ICriteria - por Osiel Gomes - 22-11-2017, 09:28 PM
RE: Manual ICriteria - por Isaque Pinheiro - 23-11-2017, 05:25 AM
RE: Manual ICriteria - por samuca.ti@hotmail.com - 05-10-2018, 03:07 PM
RE: Manual ICriteria - por Isaque Pinheiro - 07-10-2018, 08:30 AM

Saltar Fórum:


usuários a ver este tópico: 1 Visitante(s)