joveciguedes Novato

Registrado: Segunda-Feira, 6 de Abril de 2020 Mensagens: 3
|
Enviada: Qui Jun 29, 2023 9:08 am Assunto: Criar novos campos na tabela firebird em rum time delphi |
|
|
Estou com essa rotina so que e o seguinte eu queria que o sistema quando iniciar ele verifique se o campo existe se nao existe ele cria o Campo na tabela criei essa rotina alguem pode mim dar uma ideia ai obg.
Pq toda vez que eu rodo o sistema ele entra nessa rotin mesmo o campo exstindo fica dando duplicidade
var L:TStringList;
begin
//criando Stringlist na memória
L := TStringList.Create;
//pega o nome da tabela
SQLConnection1.GetTableNames(L);
//pega a posição do tbteste(começa no 0)
if L.IndexOf('CL00001') >= 0 then
begin
Showmessage('Atualizando Tabela CL00001.... !');
QrCL00001.close;
QrCL00001.sql.clear;
QrCL00001.SQL.Add('ALTER table CL00001(') ;
QrCL00001.Sql.Add('ALTER UNIDADE TYPE varchar(02)');
QrCL00001.ExecSQL ;
ShowMessage('Tabela CL00001 Atualizada com sucesso!');
end
else
begin
QrC000134.Close;
QrC000134.SQL.Clear;
QrC000134.SQL.Add('create table CL00001(') ;
QrC000134.Sql.Add('SEQMANIFESTO varchar(06),');
QrC000134.Sql.Add('CODNOTA varchar(06),');
QrC000134.Sql.Add('DATANOTA TIMESTAMP,');
QrC000134.Sql.Add('TOTAL_NOTA FLOAT,');
QrC000134.Sql.Add('CODCLIENTE varchar(06),');
QrC000134.Sql.Add('NOMECLIENTE varchar(60),');
QrC000134.Sql.Add('CHAVENOTA varchar(100))');
QrC000134.ExecSQL;
L.Free;
ShowMessage('Tabela CL00001 Criada com sucesso!');
end; |
|