Fórum Varias Perguntas! #213632

12/02/2004

0

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

Responder

Posts

13/02/2004

Turbo Drive

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í.


Responder

Gostei + 0

13/02/2004

Akelle Kara

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;



Responder

Gostei + 0

16/02/2004

Daniel Martins

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


Responder

Gostei + 0

16/02/2004

Daniel Martins

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??


Responder

Gostei + 0

16/02/2004

Aroldo Zanela

Colega,

Sim, DBTables na lista de uses.


Responder

Gostei + 0

16/02/2004

Daniel Martins

Muito Obrigado Pela Atenção!...


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar