Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
pois é.... estou programando faz um tempinho em asp.net....
Meu problema é na classe que eu fiz pra win32 no delphi usando sqlQuery
function TuClassTiposDespesas.AutoInc: String;
var
I : integer;
begin
Result := '1';
try
with DatM do
begin
QueryAutoInc.Close;
QueryAutoInc.CommandText := 'SELECT (MAX(ID_TIPO_DESPESA)+1) AS NUM FROM TIPO_DESPESA';
QueryAutoInc.ExecSQL();
I := QueryAutoInc.FieldByName('NUM').AsInteger;
if QueryAutoInc.FieldByName('NUM').AsString <> '' then
Result := QueryAutoInc.FieldByName('NUM').AsString
else
Result := '1';
end;
Except on e: Exception do
RETORNO := RETORNO +'-'+e.Message;
end;
end;alguem pode me responder...???
VLWWW
Abraços
Carregando comentários...