Insert con Select
 

Hola a tod@s de nuevo :)

Lo primero es lo primero: Delphi-7, Zeos y MySql 4.0

El problema es el siguiente: nos han mandado un proyecto en clase que utilice tablas relacionales, por lo pronto he conseguido crearlas (que no es poco):D ahora lo que planteo es ¿como insertar registros?

Trato de hacer lo siguiente:

Código Delphi [-]
INSERT INTO `articulos` ( `nombre`, `id_empresa` )
                 VALUES ( "Un artículo cualquiera",
                          (SELECT `id_empresa` 
                             FROM `distribuidores`
                            WHERE `cif_empresa`="12345000000")
);

El componente ZQuery me dice que tengo un error cerca de SELECT ....

He mirado la documentación en la págima de mysql y depués de romperme la cabeza (mi inglés es casi nulo) y entiendo que solo puedo hacer:

Código Delphi [-]
INSERT INTO `articulos` ( `nombre` )
                          (SELECT `id_empresa` 
                             FROM `distribuidores`
                            WHERE `cif_empresa`="12345000000")
);

sin embargo necesito saber que registro es el padre (el de la tabla distribuidores), aparte de que esto último solo me permite añadir un campo, cuando voy a necesitar alguno más (sobre todo en las tablas que dependen esta)

¿Podeis decirme como se hace?
Gracias adelantadas
Salvica

Prueba algo así: (Sin VALUES y sin paréntesis)

Código SQL [-]
INSERT INTO articulos (nombre)
SELECT id_empresa 
  FROM distribuidores
 WHERE cif_empresa = '12345000000'

Saludos!

Ante todo, gracias por responder delphi.com.ar

Eso es lo que pone en mysql.com, pero como digo en el hilo, necesito introducir más datos y ese ejemplo solo vale para uno :eek:, de todas formas lo estoy resolviendo contando las posiciones de los padres y metiendolos "a pelo" desde un fichero de texto (no sé si dirá algo el "profe" :D).

Otra cosa (que viene a ser lo mismo)
Cuando creo trés o más tablas relacionadas entre sí ¿no deben llevar TODAS ellas las claves foráneas de sus padres? ¿O solo la de su inmediato?

Por ejemplo: tres tablas:
- Distribuidores (el abuelo de todas) ;)
- Artículos (depende de distribuidores)
- Productos (depende de artículos y de distribuidores)

Código Delphi [-]

CREATE TABLE IF NOT EXISTS `distribuidores` (
       `id_empresa`     INT            NOT NULL AUTO_INCREMENT,
       `cif_empresa`    CHAR(11)       NOT NULL,
       `nombre`         VARCHAR(50)    NOT NULL DEFAULT "",
       `direccion`      VARCHAR(80)    NOT NULL DEFAULT "",
       `localidad`      VARCHAR(80)    NOT NULL DEFAULT "",
       `provincia`      VARCHAR(30)    NOT NULL DEFAULT "",
       `telefono`       INT(10)        ZEROFILL UNSIGNED NOT NULL DEFAULT 0,
       `tipo_articulo`  VARCHAR(80)    NOT NULL DEFAULT "",
       `tiempo_demora`  INT(3)         UNSIGNED NOT NULL DEFAULT 0,
       PRIMARY KEY (`id_empresa`)
) 
ENGINE=InnoDB;


CREATE TABLE IF NOT EXISTS `articulos` (
       `id_articulo`    INT            NOT NULL AUTO_INCREMENT,
       `id_empresa`     INT            NOT NULL,
       `nombre`         VARCHAR(50)    NOT NULL DEFAULT "",
       PRIMARY KEY (`id_articulo`), 
             INDEX (`id_empresa`),
       FOREIGN KEY (`id_empresa`) REFERENCES `distribuidores` (`id_empresa`) 
       ON DELETE CASCADE
       ON UPDATE CASCADE
) 
ENGINE=InnoDB;


CREATE TABLE IF NOT EXISTS `productos` (
       `id_producto`    INT            NOT NULL AUTO_INCREMENT,
       `id_articulo`    INT            NOT NULL,
       `id_empresa`     INT            NOT NULL,
       `nombre`         VARCHAR(50)    NOT NULL DEFAULT "",
       `precio`         FLOAT           NOT NULL DEFAULT 0.0,
       PRIMARY KEY (`id_producto`), 
             INDEX (`id_empresa`, `id_articulo`),
       FOREIGN KEY (`id_articulo`) REFERENCES `articulos`      (`id_articulo`) 
       FOREIGN KEY (`id_empresa`)  REFERENCES `distribuidores` (`id_empresa`) 
       ON DELETE CASCADE
       ON UPDATE CASCADE
) 
ENGINE=InnoDB;

En el ejemplo, la tercera tabla (productos) me dice que no puede crearla:confused:
¿Puedes indicarme como se hace? (en teoría o en práctica, como quieras)

Saludos y gracias de nuevo
Salvica

No te entiendo.. ¿No te funciona un INSERT de un SELECT?

Te dice que no puede crearla... ¿Porqué?... ¿Da alguna información mas el mensaje de error?

Me parece que te falta una coma despues de la FK de ID_ARTICULO:

Código SQL [-]
CREATE TABLE IF NOT EXISTS `productos` (
       `id_producto`    INT            NOT NULL AUTO_INCREMENT,
       `id_articulo`    INT            NOT NULL,
       `id_empresa`     INT            NOT NULL,
       `nombre`         VARCHAR(50)    NOT NULL DEFAULT "",
       `precio`         FLOAT           NOT NULL DEFAULT 0.0,
       PRIMARY KEY (`id_producto`), 
             INDEX (`id_empresa`, `id_articulo`),
       FOREIGN KEY (`id_articulo`) REFERENCES `articulos`      (`id_articulo`) ,
       FOREIGN KEY (`id_empresa`)  REFERENCES `distribuidores` (`id_empresa`)
       ON DELETE CASCADE
       ON UPDATE CASCADE
) 
ENGINE=InnoDB;

Exactamente, me abre el módulo (de Zeos) ZDbcMySqlUtils y saca un mensaje de error:

Project Parking.exe raised exception class EZSQLException with message ¡SQL Error: Algo está equivocado en su sintaxis cerca 'SELECT ìd_empresa`FORM `distribuidores`WHERE `cif_empresa`="1' (aquí se corta) en la línea 1'.

La query es la siguiente:

Código SQL [-]
INSERT INTO `articulos` ( `nombre`, `id_empresa` )
                 VALUES ( "Gel", 
                          (SELECT `id_empresa` 
                             FROM `distribuidores`
                            WHERE `cif_empresa`="12345000000")
);

y en el susodicho modulo ZDbcMySqlUtils, señala la línea del raised:

Código Delphi [-]
procedure CheckMySQLError(PlainDriver: IZMySQLPlainDriver;
  Handle: PZMySQLConnect);
var
  ErrorMessage: string;
  ErrorCode: Integer;
begin
  ErrorMessage := Trim(StrPas(PlainDriver.GetLastError(Handle)));
  ErrorCode := PlainDriver.GetLastErrorCode(Handle);
  if (ErrorCode <> 0) and (ErrorMessage <> '') then
  begin
    raise EZSQLException.CreateWithCode(ErrorCode,
      Format('SQL Error: %s', [ErrorMessage]));
  end;
end;

Esto me lo dá cuando creo la tercera tabla, que pienso que debe tener relación con las dos anteriores, exactamente el mensaje es:

Project Parking.exe raised exception class EZSQLException with message 'SQL Error: No puedo crear la tabla '.\dai_1\productos.frm (Error 150)'

He buscado por "San Google" y no he visto nada sobre esto, el caso es que si dejo un solo FOREING KEY (el de la tabla `articulos`) el error desaparece, vamos, como si nada más se pudiese tener una sola clave foránea.
Lo de la coma, fué un fallo mio al hacer el "CopyPaste", ya que con el nuevo formato del foro pierdo las etiquetas [ delphi ] y [ /delphi ]

Gracias por todo, seguiremos investigando ;)
Salvica

Cambialo por

Código SQL [-]
INSERT INTO `articulos` ( `nombre`, `id_empresa` )
                           SELECT "Gel", `id_empresa` 
                             FROM `distribuidores`
                            WHERE `cif_empresa`="12345000000"

¿El resto probaste poniendo la coma?

Saludos!

No puedo cambiarlo porque "Gel" no es un campo, sino un nombre de artículo que estoy introduciendo en ese momento e id_empresa es el número autoincrementable que añade automaticamente mysql en la tabla distibuidores que corresponde a la empresa que sirve ese artículo.

También (ya digo que fué un fallo mio al copiar el texto) :o

¿Como se expresa en la construcción de una tabla, que debe contener tres o más campos externos, los cuales forman un índice?

Saludos

En el query que te puse, GEL no esta siendo tomado por el campo de la tabla, si como el campo del resulset, posiblemente esten con las comillas erróneas.

Código SQL [-]
SELECT 'MI VALOR', CAMPO1, CAMPO2, CAMPO3
FROM TABLA

Saludos!

Perdona, pero creo que no me he explicado bien :o

Ejemplo:

Código SQL [-]
tabla de distribuidores

     id_distribuidor     cif_distribuidor     tipo_articulos
     ===============     ================     ===========================
     1                   1234000000000000     Limpiadores
     2                   4567890000000000     Abrillantadores


tabla de artículos (supuestamente vacía, al final debe contener lo expuesto)

     id_articulo         id_distribuidor      nombre_articulo
     ===============     ================     ===========================
     1                   1                    GEL
     2                   1                    CHAMPÚ
     3                   1                    JABON

querys para ello

INSERT INTO `articulos` ( `nombre_articulo`, `id_distribuidor` )
                  VALUES( "GEL",
                          (SELECT `id_distribuidor`
                             FROM `distribuidor`
                            WHERE `cif_distribuidor`="1234000000000000")
);

INSERT INTO `articulos` ( `nombre_articulo`, `id_distribuidor` )
                  VALUES( "CHAMPÚ",
                          (SELECT `id_distribuidor`
                             FROM `distribuidor`
                            WHERE `cif_distribuidor`="1234000000000000")
);

INSERT INTO `articulos` ( `nombre_articulo`, `id_distribuidor` )
                  VALUES( "JABON",
                          (SELECT `id_distribuidor`
                             FROM `distribuidor`
                            WHERE `cif_distribuidor`="1234000000000000")
);

Haber si ahora ha quedado un poco más claro

Saludos y gracias