Crie algum butão vai no Click
E eu faço assim
try
DM.BD.BeginTrans;
with DM.sqlPadrao do begin
limpaSQL(DM.SQLPadrao);
Sql.Add('USE [BANCO]');
Sql.Add('SET ANSI_NULLS ON');
Sql.Add('SET QUOTED_IDENTIFIER ON');
Sql.Add('SET ANSI_PADDING ON');
Sql.Add('CREATE TABLE [dbo].[TABELA](');
Sql.Add('[ID] [int] IDENTITY(1,1) NOT NULL, [COD] [int] NOT NULL, [ORC]
[int] NULL, [CODP] [varchar](10) NULL,');
Sql.Add('[DESCR] [varchar](100) NULL, [QTDE] [int] NULL, [PRECO] [float]
NULL, [TOTAL] [float] NULL,');
Sql.Add('CONSTRAINT [PK_TABELA] PRIMARY KEY CLUSTERED');
Sql.Add('(');
Sql.Add('[ID] ASC');
Sql.Add(')WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF,
IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON
[PRIMARY]');
Sql.Add(') ON [PRIMARY]');
Sql.Add('SET ANSI_PADDING OFF');
ExecSQL;
end;
DM.BD.CommitTrans;
Application.MessageBox('Tabela Criada com
Sucesso!','Atenção',MB_OK+MB_ICONEXCLAMATION);
except
DM.BD.RollbackTrans;
Application.MessageBox('Erro, Tente novamente', 'Erro', MB_OK +
MB_ICONERROR);
exit;
end;
________________________________
De: izaias_gomes <izaias_go...@yahoo.com.br>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 16 de Junho de 2009 7:51:22
Assunto: [delphi-br] Cria Tabela
Bom dia a Todos,
Desde ja agradece a atenção de vcs, amigos e o seguinte tenho um sistema feito
em delphi 7, Firebird 1.5 e DBExpress, toda vez que tenho que dar manutenção no
sistema tipo cria um campo novo na tabela ou uma tabela nova tenho que fazer
isso em todos os clientes onde o sistema esta instalado, alguém poderia me dar
um dica de como fazer isso no propria executavel?? ?.
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
