Novo Campo Piradox
Galera, é o seguinte, estou precisando criar um campo em uma tabela, mas so que o sistema ja esta rodando em varios clientes, gostaria de fazer uma rotina, que verificasse a existencia da tabela e incluisse o campo na tabela paradox, tem como fazer isso?
Guigosnet
Curtidas 0
Respostas
Joaoshi
21/09/2006
Colega, vc poderia ´ler´ os fields da tabela e verificar se existe a field que vc deseja incluir, exemplo:
var
achou : boolean;
nX : Integer;
begin
achou := false;
for nX := 0 to [b:498eb8fe95]SuaTabelaParadox.FieldCount [/b:498eb8fe95]-1 do
if SuaTabelaParadox.Fields[nX].FieldName = ´NOVOCAMPO´ then achou:=true;
if not achou then
Query1.sql.Add(´ALTER TABLE ´´SuaTabelaParadox.DB´´ ADD NOVOCAMPO CHAR(10)´);
end;
Espero ter ajudado.
var
achou : boolean;
nX : Integer;
begin
achou := false;
for nX := 0 to [b:498eb8fe95]SuaTabelaParadox.FieldCount [/b:498eb8fe95]-1 do
if SuaTabelaParadox.Fields[nX].FieldName = ´NOVOCAMPO´ then achou:=true;
if not achou then
Query1.sql.Add(´ALTER TABLE ´´SuaTabelaParadox.DB´´ ADD NOVOCAMPO CHAR(10)´);
end;
Espero ter ajudado.
GOSTEI 0