Varias Perguntas!

Delphi

12/02/2004

olá meus amigos !!!!!
1)como eu faço pra todos os campos Float de uma Tabela começarem com ZERO?
2)como eu crio um alias na BDE via Código?
3)alguem sabe algum laço pra mim somar todos os campo float de uma tabela?
Agradeço desde já! OBrigado!


Daniel Martins

Daniel Martins

Curtidas 0

Respostas

Turbo Drive

Turbo Drive

12/02/2004

Vou ficar te devendo a resposta da pergunta 2, pois não utilizo o BDE.

1) qdo criar a sua tabela coloque como default o valor zero se o seu bd permitir, senão grave o valor zero qdo o usuário não informar nada.

3) para somar tudo, vc pode utilizar uma função em sql:
with query1 do
begin
close;
sql.clear;
sql.add(´select sum(seucampo) from suatabela´);
Open;
end;
edit1.text := query1.fields[0].asstring; // se vc quiser colocar o resultado em um edit.

Precisando tamos aí.


GOSTEI 0
Akelle Kara

Akelle Kara

12/02/2004

2) Eu tenho a dois:

procedure CreateAlias;
const
  FDbDriver = ´PARADOX´;
  SubDir = ´Data´;
var
  FAlias: string;
  FAliasDir: string;
begin
  FAlias := ´aLog2000´;
  Session.ConfigMode := cmPersistent;
  if not Session.IsAlias(FAlias) then
  begin
    AliasDir := ExtractFilePath(ParamStr(0)) + SubDir;
    Session.AddStandardAlias(FAlias, FAliasDir, FDbDriver);
    Session.SaveConfigFile;
  end;
end;



GOSTEI 0
Daniel Martins

Daniel Martins

12/02/2004

:lol: Obrigado amigos! devo a vcs....


GOSTEI 0
Daniel Martins

Daniel Martins

12/02/2004

Akelle_Kara, testei seu código para criar alias na BDE, só que deu Erro em Session. Tenho que adicionar algo na Secção USES??


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

12/02/2004

Colega,

Sim, DBTables na lista de uses.


GOSTEI 0
Daniel Martins

Daniel Martins

12/02/2004

Muito Obrigado Pela Atenção!...


GOSTEI 0
POSTAR