Vários Insert's Em Um Update Sql.

[deivis]

Gostaria de saber como fazer para usar vários insert's em um updade SQL, estou usando MySql, o componente para acessar o MySql é o ZEOS. No programa é incluido um registro em uma tabela, mas após ser incluido esse registro é preciso gravar em outra tabela mais dois registros com o código do registro anterior e mais outras informações.

Tentei assim, mas não funciona:

#Tabela principal (incluindo registro)
INSERT INTO Produtos(
 Codigo,
 CodFornecedor,
 DataIni,
 DataFim,
 Descricao,
 Unidade,
 ClassFiscal,
 CodMarca,
 PrecoCusto,
 PrecoVenda,
 PercDescVista,
 PercDescPrazo,
 DescAtivoVista,
 DescAtivoPrazo,
 CodGrupo,
 PercMargemLucro)
VALUES (
 :Codigo
 :CodFornecedor,
 :DataIni,
 :DataFim,
 :Descricao,
 :Unidade,
 :ClassFiscal,
 :CodMarca,
 :PrecoCusto,
 :PrecoVenda,
 :PercDescVista,
 :PercDescPrazo,
 :DescAtivoVista,
 :DescAtivoPrazo,
 :EstMinimo,
 :EstMaximo,
 :EstAtual,
 :CodGrupo,
 :PercMargemLucro);

#Tabela Secundária (informações - variacao 0)
INSERT INTO InfProduto(
 CodProduto,
 Variacao,
 EstMinimo,
 EstMaximo,
 EstAtual)
VALUES (
 :Codigo,
 '0',
 :EstMinimo,
 :EstMaximo,
 :EstAtual);

#Tabela Secundária (informações - variacao 1)
INSERT INTO InfProduto(
 CodProduto,
 Variacao,
 EstMinimo,
 EstMaximo,
 EstAtual)
VALUES (
 :Codigo,
 '1',
 :EstMinimo,
 :EstMaximo,
 :EstAtual);

[Kikonanet]

Olá,

Tenta assim para cada SQL

with Query do
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO TABELA(Campo1, Campo2)');
SQL.Add('VALUES(Valor1,Valor2)');
ExecSQL;
end;

Abs.

Kiko

[deivis]

É que no caso são três tabelas e apenas uma query. Será que isso é possível?

[Kikonanet]

Olá,

É que no caso são três tabelas e apenas uma query. Será que isso é possível?

Acho q é possível sim, pois você estará fechando e limpando a Query antes de executá-la!

Abs.

Kiko

[deivis]

Eu estou usando o componente TZUpdadeSQL da Zeos, e no caso queria colocar esta SQL na propriedade insert deste. Sendo que quando fosse dado um post na Query ele iria executar estes três inserts de uma só vez.

#Tabela principal (incluindo registro)
INSERT INTO Produtos(
Codigo,
CodFornecedor,
DataIni,
DataFim,
Descricao,
Unidade,
ClassFiscal,
CodMarca,
PrecoCusto,
PrecoVenda,
PercDescVista,
PercDescPrazo,
DescAtivoVista,
DescAtivoPrazo,
CodGrupo,
PercMargemLucro)
VALUES (
:Codigo
:CodFornecedor,
:DataIni,
:DataFim,
:Descricao,
:Unidade,
:ClassFiscal,
:CodMarca,
:PrecoCusto,
:PrecoVenda,
:PercDescVista,
:PercDescPrazo,
:DescAtivoVista,
:DescAtivoPrazo,
:EstMinimo,
:EstMaximo,
:EstAtual,
:CodGrupo,
:PercMargemLucro);

#Tabela Secundária (informações - variacao 0)
INSERT INTO InfProduto(
CodProduto,
Variacao,
EstMinimo,
EstMaximo,
EstAtual)
VALUES (
:Codigo,
'0',
:EstMinimo,
:EstMaximo,
:EstAtual);

#Tabela Secundária (informações - variacao 1)
INSERT INTO InfProduto(
CodProduto,
Variacao,
EstMinimo,
EstMaximo,
EstAtual)
VALUES (
:Codigo,
'1',
:EstMinimo,
:EstMaximo,
:EstAtual);

[Kikonanet]

Faz o seguinte tenta usar ZPgSqlQuery1 e colocar os insert's usando Close / ExecSQL.

Obs. Eu nunca usei TZUpdadeSQL e não sei se ele vai aceitar vários insert's, ou mais de uma SQL

Abs.

Kiko