Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

alshtam © (2009-10-29 06:27:00)
Здравствуйте, подскажите пожалуста как выполнить скрипт из текстового файла в RunTime. скрипт получил gentv компаривания баз данных в IB Expert.

Виталий Панасенко (2009-10-29 12:46:00) [1]
Обнови IBX

alshtam (2009-10-29 10:54:00) [2]
у меня D2006 но таких компонентов нет

Виталий Панасенко (2009-10-29 10:51:00) [3]
Да, есть IBScript.. и для Д7 тоже обновлять IBX нужно

alshtam (2009-10-29 10:09:00) [4]
понял, попробую

Sergey13 (2009-10-29 10:09:00) [5]
В IBX вроде был IBScript. Только вроде надо было ставить обновления (для Д5 по крайней мере). Сейчас делфи под рукой нет - проверить не могу.

Медвежонок Пятачок (2009-10-29 10:06:00) [6]
isql.exe

alshtam (2009-10-29 09:51:00) [7]
gentv прошу считать опечаткой

alshtam (2009-10-29 09:50:00) [8]
я в 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, в программе.

Сергей М. (2009-10-29 08:58:00) [9]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »