Adapte as suas necessidades. para exluir o campo Alter table nome_da_table drop nome_do_campo
para incluir o campo Alter table nomeda_tabela add nome_do_campo tipo_do_campo para alterar tamanho ALTER TABLE CLIENTE ALTER COLUMN NOME TYPE VARCHAR (60); alter table <table> alter <campo> type char(18) Alterar nome do campo ALTER TABLE CLIENTES ALTER NOME TO NOME_CLIENTE; Alterar tipo do campo ALTER TABLE CLIENTES ALTER NOME TYPE CHAR(50); ******************************************* procedure TForm1.Button1Click(Sender: TObject); begin // Se o campo for varchar(20) e quiser alterar para varchar(10) IBTransaction1.StartTransaction; IBSQL1.ExecQuery; // Alter table cadastro add campo7 VARCHAR(10); IBTransaction1.CommitRetaining; IBTransaction1.StartTransaction; IBSQL2.ExecQuery; //update cadastro set campo7 = campo6 where pk_campo1 > 0 IBTransaction1.CommitRetaining; IBTransaction1.StartTransaction; IBSQL3.ExecQuery; // Alter table cadastro drop campo6; IBTransaction1.CommitRetaining; IBTransaction1.StartTransaction; IBSQL3A.ExecQuery; // alter table cadastro add campo6 varchar(10); IBTransaction1.CommitRetaining; IBTransaction1.StartTransaction; IBSQL4.ExecQuery; // update cadastro set campo6 = campo7 where pk_campo1 > 0 IBTransaction1.CommitRetaining; IBTransaction1.StartTransaction; IBSQL5.ExecQuery; // Alter table cadastro drop campo7; IBTransaction1.CommitRetaining; end; Espero ter ajudado. ----- Original Message ----- From: "Aldinei Simoes" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Friday, May 27, 2005 10:57 AM Subject: [delphi-br] Executar script Bom dia Como executar um script do FB via query Aldinei -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.322 / Virus Database: 267.0.0 - Release Date: 27/05/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.322 / Virus Database: 267.0.0 - Release Date: 27/05/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que voc� faz do Yahoo! Grupos est� sujeito aos: http://br.yahoo.com/info/utos.html
