Insert con Select

[delphi.com.ar]

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!

[salvica]

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 , 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" ).

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
¿Puedes indicarme como se hace? (en teoría o en práctica, como quieras)

Saludos y gracias de nuevo
Salvica

[delphi.com.ar]

Empezado por salvica

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 , 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" ).

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

Empezado por salvica

En el ejemplo, la tercera tabla (productos) me dice que no puede crearla

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;

[salvica]

Empezado por delphi.com.ar

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

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;

Empezado por delphi.com.ar

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

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

[delphi.com.ar]

Empezado por salvica

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

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!

[salvica]

Empezado por delphi.com.ar

Cambialo por .....

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.

Empezado por delphi.com.ar

¿El resto probaste poniendo la coma?

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

¿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

[delphi.com.ar]

Empezado por salvica

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.

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!