O que é mais Rápido? Select Max... ou RecordCount

15/05/2003

1

{PRIMEIRO CASO}

procedure TForm1.Button1Click(Sender : TObject);
var
NovoCod : Integer;

begin
Query.Sql.Clear;
Query.Sql.Add(´SELECT MAX(CODIGO) FROM CLIENTES´);
Query.Open;
NovoCod := Query.FieldByName(´CODIGO´).AsInteger + 1;
Query.Insert;
Query.....etc;
End;

{SEGUNDO CASO}

procedure TForm1.Button1Click(Sender : TObject);
var
NovoCod : Integer;
begin
Query.Sql.Clear;
Query.Sql.Add(´SELECT CODIGO FROM CLIENTES WHERE CODIGO IS NOT NULL´);
Query.Open;
NovoCod := Query.RecordCount + 1;
Query.Insert;
Query.....etc;
End;




Valeu


Responder