Crear Tabla Firebird

[mjjj]

HOLA AMIGOS... TENGO UNA PREGUNTA...

UTILIZO DELPHI 2006, FIREBIRD 2.0.1

NECESITO CREAR UNA TABLA EN FIREBIRD DESDE UN PROGRAMA DE DELPHI... UNA VEZ QUE EL PROGRAMA ESTA CORRINDO.

LA BASE DE DATOS SE ESTA EN ESTA DIRECCION: localhost:C:\TABLAS\DATOS.FDB

LA TABLA SE LLAMA: OCTUBRE
DEBE TENER LOS SIGUIENTES CAMPOS:
OT: CHAR (5)
SUB: CHAR(1)
BATCH: INTEGER
ESTADO: CHAR(1)
TEMPERATURA: INTEGER
PRESION: INTEGER
DIA: DATE
HORA: TIME

COMO DEBERIA SER EL CODIGO PARA PODER REALIZAR ESTA OPERACION??
QUE COMPONENTE NECESITO??

ESPERO ME PUEDAN AYUDAR... GRACIAS

[[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

[mjjj]

eso lo tengo que ascribir en la propiedad SCRIPT del componente IBSCRIPT...

como puedo escribir eso mismo en codigo DELPHI??

como se llama al IBSCRIPT en tiempo de ejecucion en delphi... podria ser con un boton... como seria ese codigo??

gracias por su tiempo.... saludos

[mjjj]

Otra Cosa... Al Parecer El Codigo Que Me Enviaste Es Para Crear Una Base De Datos Nueva... Yo Solo Quiero Crear Una Tabla Dentro De Una Base De Datos Existente

Como Hago Eso???

[[egostar]]

Empezado por mjjj

eso lo tengo que ascribir en la propiedad SCRIPT del componente IBSCRIPT...

como puedo escribir eso mismo en codigo DELPHI??

como se llama al IBSCRIPT en tiempo de ejecucion en delphi... podria ser con un boton... como seria ese codigo??

gracias por su tiempo.... saludos

Si, pegas el código en la propiedad Script y lo ejecutas así

Código Delphi [-]
IBScript1.ExecuteScript;

Empezado por mjjj

Otra Cosa... Al Parecer El Codigo Que Me Enviaste Es Para Crear Una Base De Datos Nueva... Yo Solo Quiero Crear Una Tabla Dentro De Una Base De Datos Existente

Como Hago Eso???

Solo borra esa parte de la Base de Datos

Código SQL [-]
CREATE TABLE mjjj
(
 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

[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.

[semaral]

Hola, buenos días. Ya está solucionado. El error no me lo daban estas instrucciones. Estas instrucciones funcionan perfectamente. Muchas gracias a todos.