Verificar campo vazio e acrescentar valor
Caros colegas,
Como devo fazer uma rotina em Delphi 5 que:
-Depois de abrir o BD pelo Ado, gostaria de ir p/ o 1º registro da tabela e verificar se um determinado campo está vazio. Caso esteja, o mesmo receberá valor de outros 2 campos... Ex: campo1 = ´ ´, então campo1:= campo2+´ - ´+campo3. Ok?!
Desde já... obrigada...
Como devo fazer uma rotina em Delphi 5 que:
-Depois de abrir o BD pelo Ado, gostaria de ir p/ o 1º registro da tabela e verificar se um determinado campo está vazio. Caso esteja, o mesmo receberá valor de outros 2 campos... Ex: campo1 = ´ ´, então campo1:= campo2+´ - ´+campo3. Ok?!
Desde já... obrigada...
Dbluka
Curtidas 0
Respostas
Eder.lopes
22/06/2004
bem vamos fazer pelo metodo ´FOR´
declare uma variavel
var
i : integer;
begin
tabela.open;
tabela.first;
FOR i := 0 to RecordeCount do
begin
if tabelacampo1.value = ´ ´ then
begin
tabelacampo1.value := tabelacampo1.value + ´- ´tabelacampo2value;
tabela.next;
tabela.post;
end;
end;
end;
bem espero ter ajudado
declare uma variavel
var
i : integer;
begin
tabela.open;
tabela.first;
FOR i := 0 to RecordeCount do
begin
if tabelacampo1.value = ´ ´ then
begin
tabelacampo1.value := tabelacampo1.value + ´- ´tabelacampo2value;
tabela.next;
tabela.post;
end;
end;
end;
bem espero ter ajudado
GOSTEI 0