Выполнить скрипт из текстового файла

← →
alshtam (2009-10-29 06:27) [0]

Здравствуйте, подскажите пожалуста как выполнить скрипт из текстового файла в RunTime. скрипт получил gentv компаривания баз данных в IB Expert.

← →
Сергей М. © (2009-10-29 08:58) [1]

> скрипт получил gentv

Кого-кого скрипт получил ?

← →
alshtam (2009-10-29 09:50) [2]

я в IB Expert сделал сравнение баз данных firbird (старой и новой) и получил это:

SET SQL DIALECT 3;

CONNECT "localhost:D:\shtamayzen\shop\SHOP исходники\bug2\магазин\Db.GDB" USER "SYSDBA" PASSWORD "masterkey";

SET AUTODDL ON;

/* Create Procedure... */
SET TERM ^ ;

CREATE PROCEDURE CORRECT_DATA AS
BEGIN EXIT; END
^

/* Create Foreign Key... */
SET TERM ; ^

RECONNECT;

ALTER TABLE SALES_DETAIL ADD CONSTRAINT FK_SALES_DETAIL_1 FOREIGN KEY (ID_NDS) REFERENCES NDS (ID);

/* Alter Procedure... */
/* Alter (CASHIER_INCOMES_I) */
SET TERM ^ ;

ALTER PROCEDURE CASHIER_INCOMES_I(ID_USER INTEGER,
ID_STOREGOUSE INTEGER,
ID_SHELVING INTEGER,
GROUND_DOC INTEGER)
RETURNS(ID INTEGER)
AS
DECLARE VARIABLE DOCNUM VARCHAR(22);
DECLARE VARIABLE PP VARCHAR(10);
DECLARE VARIABLE STCODE BIGINT;
begin
id = GEN_ID(GEN_INCOMES_ID,1);
select first 1 p.prefix from prefix p where FTABLE="expense" into :pp;
select first 1 s.storehouse_code from storehouses s where s.id=:ID_STOREGOUSE into stCode;
DOCNUM=pp||cast(stCode as varchar(20))||cast(id as varchar(20));

execute procedure incomes_i
(
:id,
7,
:id_storegouse,
-1,
:ID_SHELVING,
-1,
:id_user,
null,
null,
-1,
"",
:docnum,
null,
:GROUND_DOC,
id_storegouse
);
suspend;
end
^
...
...

Если выполнить этот скрипт на старой базе в IB Expert то в старой базе появятся все изменения сделаные мной (например изменения в хранимках), а данные испорчены не будут.
Но Хочется Запустить скрипт без IB Expert, в программе.

← →
alshtam (2009-10-29 09:51) [3]

gentv прошу считать опечаткой

← →
Медвежонок Пятачок © (2009-10-29 10:06) [4]

isql.exe

← →
alshtam (2009-10-29 10:09) [5]

понял, попробую

← →
Sergey13 © (2009-10-29 10:09) [6]

В IBX вроде был IBScript. Только вроде надо было ставить обновления (для Д5 по крайней мере). Сейчас делфи под рукой нет - проверить не могу.

← →
Виталий Панасенко (2009-10-29 10:51) [7]

Да, есть IBScript.. и для Д7 тоже обновлять IBX нужно

← →
alshtam (2009-10-29 10:54) [8]

у меня D2006 но таких компонентов нет

← →
Виталий Панасенко (2009-10-29 12:46) [9]

Обнови IBX

Выполнить скрипт из текстового файла Найти похожие ветки