13 respuestas en este tema

[GUN10]

Hola como estan!

Les comento que estoy teniendo un problema a la hora de cargar datos desde Delphi 7.
Tengo una pequeña base de datos con 3 tablas: clientes, articulos y pedidos.
la tabla clientes, tiene los siguientes campos: id_cliente, nombre, apellido, direccion, poblacion, codigo_postal, telefono, email.
Hice la conexion por medio de los componentes Zeos, y puedo visualizar la tabla en un DBgrid sin problemas.
Lo que hago es guardar los valores que se cargan en distintos  TEdit de la siguiente manera:

delphi

TClientes.Insert;
TClientes.FieldByName('nombre').asstring:=ENombre.Text;
TClientes.FieldByName('apellido').asstring:=EApellido.Text;
TClientes.FieldByName('direccion').asstring:=EDireccion.text;
TClientes.FieldByName('poblacion').asstring:=EPoblacion.text;
TClientes.FieldByName('codigo_postal').asstring:=ECodigoPostal.Text;
TClientes.FieldByName('telefono').asinteger:=strtoint(Etelefono.Text);
TClientes.Post;

cuando quiero guardar los datos en la tabla, me aparece la siguiente ventana



hago click en ignore y me sale el siguiente error



click en ok y me aparece lo siguiente



A la base de datos junto con las tablas las cree por medio de la herramienta IBExpert, cree un generador para cada uno de los campos "autoincrementales" que tienen las tablas, en ese caso el campo que me marca como error "ide_cliente" por lo que creo que se deberian de cargar automaticamente en la base de datos.

Saludos y gracias por su tiempo!

[donaldsimoda]

Hola como estan!

Les comento que estoy teniendo un problema a la hora de cargar datos desde Delphi 7.
Tengo una pequeña base de datos con 3 tablas: clientes, articulos y pedidos.
la tabla clientes, tiene los siguientes campos: id_cliente, nombre, apellido, direccion, poblacion, codigo_postal, telefono, email.
Saludos y gracias por su tiempo!

Colocale la propiedad REQUIRED del campo ID_CLIENTE en False en la tabla y no lanzará ningún error.

[GUN10]

Colocale la propiedad REQUIRED del campo ID_CLIENTE en False en la tabla y no lanzará ningún error.

Pero en ese caso estaria diciendo que el campo puede ser null o no? en este caso es una clave primaria, si o si tiene que tomar un valor

[Marc]

Sí, pero como has puesto la generación en un Trigger, Delphi no le tiene que pasar ningún valor, sería la propia base de datos, mediante el trigger, la que le asignará un valor.

[GUN10]

Hola!

Hice lo que me dijeron pero me siguen aparenciendo ventanas como las que muestro arriba, piediendo los archivos ".pas" y al ignorar me sale un error diciendo que el campo ID_Cliente no puede ser null, como esta especificado en la base de datos.

Alguna otra idea para solucionarlo?

Gracias!

[egostar]

Hola GUN10

Porque no nos proporcionas el DDL de tu tabla para ver como está configurado el campo, si tiene su trigger y su generador y que es lo que te pide dicho generador, de otra forma estamos navegando a oscuras.

Salud OS

[GUN10]

Hola egostar

Esto es lo que tengo cuando hago click en la pestaña DDL en IBExpert. Por mas que elegi el campo autoincremental y cree un generador, no me aparece el codigo.

sql

CREATE TABLE TCLIENTES (
    ID_CLIENTE     INTEGER NOT NULL,
    NOMBRE         VARCHAR(25),
    APELLIDO       VARCHAR(25),
    DIRECCION      VARCHAR(30),
    POBLACION      VARCHAR(30),
    CODIGO_POSTAL  VARCHAR(4),
    TELEFONO       INTEGER,
    EMAIL          VARCHAR(30)
);
 
ALTER TABLE TCLIENTES ADD CONSTRAINT PK_TCLIENTES PRIMARY KEY (ID_CLIENTE);

Lo que hago es hacer doble click en AutoInc cuando estoy creando el campo y me aparece una ventana con 3 pestañas a donde elijo generador y aqui "crear generador".
Le doy un nombre, en este caso el que esta por defecto "GEN_TCLIENTES_ID" y valor incial le pongo 1.
En las demas pestañas no se si tengo que hacer algo mas. Las otras dos son Disparador y Procedure.

Saludos!

[egostar]

Necesitas crear tambien el trigger, que es la siguiente pestaña despues de crear el generador, seleccionas crear trigger y le das COMMIT, con eso debes tener todo correctamente como lo tengo en este ejemplo.

sql

/******************************************************************************/
/*                 Generated by IBExpert 05/16/2010 23:10:23                  */
/******************************************************************************/
 
/******************************************************************************/
/*        Following SET SQL DIALECT is just for the Database Comparer         */
/******************************************************************************/
 
SET SQL DIALECT 3;
 
/******************************************************************************/
/*                                   Tables                                   */
/******************************************************************************/
 
CREATE GENERATOR GEN_USUARIOS_ID;
 
CREATE TABLE USUARIOS (
    ID_USUARIO  INTEGER NOT NULL,
    USUARIO     VARCHAR(10),
    PASSW    VARCHAR(30),
    NOMBRE      VARCHAR(100)
);
 
/******************************************************************************/
/*                                Primary Keys                                */
/******************************************************************************/
 
ALTER TABLE USUARIOS ADD CONSTRAINT USUARIOS_PK PRIMARY KEY (ID_USUARIO);
 
/******************************************************************************/
/*                                  Triggers                                  */
/******************************************************************************/
 
SET TERM ^ ;
 
/******************************************************************************/
/*                            Triggers for tables                             */
/******************************************************************************/
 
/* Trigger: USUARIOS_BI */
CREATE OR ALTER TRIGGER USUARIOS_BI FOR USUARIOS
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.ID_USUARIO IS NULL) THEN
    NEW.ID_USUARIO = GEN_ID(GEN_USUARIOS_ID,1);
END
^
 
SET TERM ; ^

Esto quiere decir que puedes pasar un valor nulo al campo auto-incrementablesin mayor problema.

Salud OS

[GUN10]

Justo estaba escribiendote cuando respondiste.
Lo que hice fue ir a la pestaña "Disparador" hice click en crear disparador y deje el codigo qu me muestra como esta, le di ok.
Fui a mi programa en delphi y ya pude cargar datos sin problemas en la tabla.

Por lo que me decis entonces fue ese el problemita.
Pero ahora me queda la pestaña procedure, que si hago click en crear procedure, me muestra un codigo. Pero no si es necesario o con lo que tengo es suficiente.

Por el momento puedo cargar bien los datos pero si podes responderme esa duda te lo agradeceria, gracias por la rapidez en responder.

Saludos!

[egostar]

Ah pues que bien , parece que si te faltaba el disparador para que ejecutara el autoincremento del campo. Yo normalmente utilizo generador y disparador, no sabia que solo creando el disparador funcionaba.

Salud OS

[GUN10]

Marco el tema como [RESUELTO], muchisimas gracias nuevamente! 

[Delphius]

Me alegro que lo hayas resuelto, yo me estaba rompiendo la cabeza sobre que podría ser...

Ahora, si bien parece estar todo resuelto, yo me pregunto ¿Y el error ese de que te pedía añadir el pas? Eso si es raro

Saludos,

[egostar]

Me alegro que lo hayas resuelto, yo me estaba rompiendo la cabeza sobre que podría ser...

Ahora, si bien parece estar todo resuelto, yo me pregunto ¿Y el error ese de que te pedía añadir el pas? Eso si es raro

Saludos,

Esos errores son comunes cuando no pueden acceder al archivo pas, me ha pasado mas de un par de veces, pero es porque no localiza la unidad y normalmente pasa cuando estás en un proceso de depuración, (yo le llamo TRACE )

Salud OS

[Delphius]

Pues, si te digo que me parece raro... es porque me resulta raro
A por lo menos a mí, cuando no me encuentra un archivo (.dcu o .pas) me pone las advertencias en el Warning pero de lanzarme el cuadro de diálogo pidiendome añadir al Library Path el pas... hasta ahora nunca he visto.
Y eso lo hace en cuanto uno intenta compilar.

Hasta ahora, realizando traza de MIS unidades no se me ha dado el caso. Quizá sólo puede llegar a suceder con las unidades que componen al Library Path.

¿Será alguna de las diferencias entre D6 y D7? O es un bug incentón y picarón

Saludos,