Crear Tabla Firebird

[semaral]

Empezado por egostar

Necesitas un componente que te permita ejecutar una DDL en mi Delphi uso IBScript

Aqui la sentecia que deberias de ejecutar para crear una tabla


Código SQL [-]
SET SQL DIALECT 3;

CREATE DATABASE 'CWSupport.fdb'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 1024
DEFAULT CHARACTER SET NONE;

CREATE TABLE PRODUCTS
(
ProductID VARCHAR(10) NOT NULL,
Name VARCHAR(50),
VBClass VARCHAR(15),
Internal VARCHAR(5),
Distrib VARCHAR(5),
Extranet VARCHAR(5),
Interra VARCHAR(5),
CONSTRAINT PK_PRODUCTS PRIMARY KEY (ProductID)
);





Salud OS

Hola amigos:

he Buscado en el club un script para la creación de bases de datos, y he encontrado éste, pero al aplicarlo a mi programa me dice que el usuario o password está mal. A ver si pueden ayudarme. Utilizo Delphi 2007 y firebird 2.0. Utilizo un componente ibscript1:TIBScript

Código Delphi

 
    with ibscript1.Script do
    begin
      clear;
      append('SET SQL DIALECT 3;');
      append('CREATE DATABASE '+quotedstr('.\bdreembolsos\bdreembolsos.gdb'));
      append('USER '+QUOTEDSTR('SYSDBA')+' PASSWORD ' + QUOTEDSTR('masterkey'));
      append('PAGE_SIZE 1024');
      append('DEFAULT CHARACTER SET NONE;');
    end;
    ibscript1.ExecuteScript;

Muchisimas gracias por vuestra ayuda.