Duvida ???? Iniciante !!

19/05/2003

1

A instrucao select abaixo conta o numero de registro de um determinado campo da tabela, como faco para especificar no codigo do delphi para pegar o resultado desta instrucao + 1 para calcular o campo autoincremento..
obrigado...
Edmar


SELECT COUNT(Cod_cli) AS codigo
FROM CadCliente


Responder

Posts

19/05/2003

Cristiano

Coloque uma Query com o nome de QryContador
na Propriedade SQL Coloque:
[b:734a80c095]SELECT MAX(Cod_cli) AS codigo FROM CadCliente[/b:734a80c095]

No evento BeforePost do Seu Table coloque:

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
if Table1.State = dsInsert then // Se esta em modo de inserção
begin
QryContador.Active := False;
QryContador.Active := True;
with QryContador.Fields[0] do
if IsNull then // Se for o Primeiro registro
Table1Codigo.Value := 1
else
Table1Codigo.Value := AsInteger + 1;
end;
end;

Isso vai funcionar!
Espero que ajude! :wink:


Responder

19/05/2003

Sam

QryContadorCliente.Active := false;
QryContadoCliente.Sql.Add(´select Max(codigo) from cliente´);
QryContadorCliente.Active := true;
with QryContadorCliente.fields[0] do
begin
if isnull then
DM_Agrofax.TabClienteCodigoCliente.Value := 1
else
DM_Agrofax.TabClienteCodigoCliente.Value := AsInteger + 1;
end;
QryContadorCliente.Active := false;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira