Incluir vários registro de uma só vez !

Firebird

27/10/2005

Galera eu uso IBX e preciso saber qual componente eu uso pra fazer a inclusão de uns 40 registros de uma vez só,

tipo no IB expert que posso fazer assim no script execute:

INSERT INTO BOMBAS (INDICE, DESCRICAO, COMBUSTIVEL, ESTOQUE_MINIMO, ESTOQUE_MAXIMO, SALDO, VLR_ESTOQUE, PRECO_MEDIO) VALUES (1, ´TANQUE SEDE´, ´Óleo Diesel´, 5000, 20000, 15600, 20930, 1.3416666666);
INSERT INTO BOMBAS (INDICE, DESCRICAO, COMBUSTIVEL, ESTOQUE_MINIMO, ESTOQUE_MAXIMO, SALDO, VLR_ESTOQUE, PRECO_MEDIO) VALUES (2, ´MELOSA´, ´Óleo Diesel´, 500, 3000, 0, 0, 0);
INSERT INTO BOMBAS (INDICE, DESCRICAO, COMBUSTIVEL, ESTOQUE_MINIMO, ESTOQUE_MAXIMO, SALDO, VLR_ESTOQUE, PRECO_MEDIO) VALUES (3, ´AVGÁS´, ´Gasolina´, 0, 10, 0, 0, 0);
INSERT INTO BOMBAS (INDICE, DESCRICAO, COMBUSTIVEL, ESTOQUE_MINIMO, ESTOQUE_MAXIMO, SALDO, VLR_ESTOQUE, PRECO_MEDIO) VALUES (4, ´SEDE´, ´Gasolina´, 50, 300, 0, 0, 0);
INSERT INTO BOMBAS (INDICE, DESCRICAO, COMBUSTIVEL, ESTOQUE_MINIMO, ESTOQUE_MAXIMO, SALDO, VLR_ESTOQUE, PRECO_MEDIO) VALUES (10, ´-BRASIL TESTE´, ´Álcool´, 0, 0, 0, 0, 0);
INSERT INTO BOMBAS (INDICE, DESCRICAO, COMBUSTIVEL, ESTOQUE_MINIMO, ESTOQUE_MAXIMO, SALDO, VLR_ESTOQUE, PRECO_MEDIO) VALUES (13, ´TESTE-COMPYTED´, ´Álcool´, 0, 0, 0, 0, 0);
INSERT INTO BOMBAS (INDICE, DESCRICAO, COMBUSTIVEL, ESTOQUE_MINIMO, ESTOQUE_MAXIMO, SALDO, VLR_ESTOQUE, PRECO_MEDIO) VALUES (14, ´BRASIL-TESTE-OK´, ´Álcool´, 0, 0, 0, 0, 0);
INSERT INTO BOMBAS (INDICE, DESCRICAO, COMBUSTIVEL, ESTOQUE_MINIMO, ESTOQUE_MAXIMO, SALDO, VLR_ESTOQUE, PRECO_MEDIO) VALUES (11, ´MECCA´, ´Gasolina´, 0, 0, 0, 0, 0);

COMMIT WORK;


Thanks


Marcos Fernando

Marcos Fernando

Curtidas 0

Respostas

Afarias

Afarias

27/10/2005

IBScript


T+


GOSTEI 0
Marcos Fernando

Marcos Fernando

27/10/2005

Ok deu certo, estou gerando o script legal,

o problema que não consigo fazer salvar no Fb, eu to usando uma transação especifica só pra IBScript e na última linha adicionei:


IBScript.Script.Add(´COMMIT WORK;´);
e depois
IBScript.ExecuteScript;

blz tudo certo, mais não salva?

será que é a transação? mais tá ligada corretamente no IBdatabase,~


Oque posso fazer?

thanks


GOSTEI 0
Afarias

Afarias

27/10/2005

IBScript1.Transaction.Commit;


T+


GOSTEI 0
POSTAR