O que é mais Rápido? Select Max... ou RecordCount
15/05/2003
0
{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
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
Adriano Santos
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)