Trigger
Senhores,
Criei tabelas com o interbase 6,01 e gostaria de criar/inserir triggers para concluir um campo incremental. No explore do banco não aparece a pasta das triggers. Como fazer?
Abraços,
Luna
Criei tabelas com o interbase 6,01 e gostaria de criar/inserir triggers para concluir um campo incremental. No explore do banco não aparece a pasta das triggers. Como fazer?
Abraços,
Luna
Lunaf
Curtidas 0
Respostas
Maxsoftware
15/08/2004
procedure T_FInterbase.Button2Click(Sender: TObject);
begin
IBDatabase1.DatabaseName:= ´C:\MaxProgramador\Pro Projeto\Teste\BD Interbase\UTAU.GDB´;
IBDatabase1.Params.Add(´USER ´SYSDBA´´);
IBDatabase1.Params.Add(´PASSWORD ´masterkey´´);
IBDatabase1.Params.Add(´PAGE_SIZE 4096´);
IBDatabase1.SQLDialect:= 3;
IBDatabase1.CreateDatabase;
//Como criar uma tabela...1
_DM_INTERBASE.IBQuery.SQL.Add(´Create Table Telefone_1´);
_DM_INTERBASE.IBQuery.SQL.Add(´(NumeroTel VarChar(15), Ramal VarChar (6), NomeContato VarChar(50), CodCli Integer ,Contador Integer Not Null Primary Key )´);
_DM_INTERBASE.IBQuery.execSQL;
//_DM_INTERBASE.IBQuery.sql.clear;
//Como Criar Trigger...
_DM_INTERBASE.IBQuery.SQL.Add(´CREATE TRIGGER TELEFONE_BI_1 FOR TELEFONE_1 ACTIVE BEFORE INSERT POSITION 0 AS BEGIN NEW.CONTADOR = GEN_ID(GEN_TELEFONE_1,1); END;´);
_DM_INTERBASE.IBQuery.execSQL;
_DM_INTERBASE.IBQuery.sql.clear;
//Como Criar um Generator...
_DM_INTERBASE.IBQuery.SQL.Add(´Create Generator Gen_Telefone_1´);
_DM_INTERBASE.IBQuery.execSQL;
//_DM_INTERBASE.IBQuery.sql.clear;
end;
begin
IBDatabase1.DatabaseName:= ´C:\MaxProgramador\Pro Projeto\Teste\BD Interbase\UTAU.GDB´;
IBDatabase1.Params.Add(´USER ´SYSDBA´´);
IBDatabase1.Params.Add(´PASSWORD ´masterkey´´);
IBDatabase1.Params.Add(´PAGE_SIZE 4096´);
IBDatabase1.SQLDialect:= 3;
IBDatabase1.CreateDatabase;
//Como criar uma tabela...1
_DM_INTERBASE.IBQuery.SQL.Add(´Create Table Telefone_1´);
_DM_INTERBASE.IBQuery.SQL.Add(´(NumeroTel VarChar(15), Ramal VarChar (6), NomeContato VarChar(50), CodCli Integer ,Contador Integer Not Null Primary Key )´);
_DM_INTERBASE.IBQuery.execSQL;
//_DM_INTERBASE.IBQuery.sql.clear;
//Como Criar Trigger...
_DM_INTERBASE.IBQuery.SQL.Add(´CREATE TRIGGER TELEFONE_BI_1 FOR TELEFONE_1 ACTIVE BEFORE INSERT POSITION 0 AS BEGIN NEW.CONTADOR = GEN_ID(GEN_TELEFONE_1,1); END;´);
_DM_INTERBASE.IBQuery.execSQL;
_DM_INTERBASE.IBQuery.sql.clear;
//Como Criar um Generator...
_DM_INTERBASE.IBQuery.SQL.Add(´Create Generator Gen_Telefone_1´);
_DM_INTERBASE.IBQuery.execSQL;
//_DM_INTERBASE.IBQuery.sql.clear;
end;
GOSTEI 0