Avaliação do Tópico:
  • 0 votos - 0 Média
  • 1
  • 2
  • 3
  • 4
  • 5
Manual ICriteria
#7
(05-10-2018, 03:07 PM)samuca.ti@hotmail.com Escreveu: 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;

Assim:
Delphi
Var
IDBResult: IDBResultSet
 
IDBResult := Mesa.GetMesa('');
 
if IDBResult.RecordCount > 0 then
begin
  try
    with IDBResult.NotEof do
    begin
       Atencao(FieldByName('DESCRICAO').AsString);
    end;
  finally
    IDBResult.Close;
  end;
end;


  Isaque Pinheiro
  Fundador do Projeto ORM Brasil
  ORMBr SAC - Assine e faça parte dessa história ajudando o projeto a crescer.

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)