Здравствуйте!
У меня есть задача: из ексельки сделать в делфи выгрузку в Firebird 2.
В делфи я сделал чтение ексельки - все корректно работает и закрывается, выгружается в отдельный массив.
В IBE написал по типу
| автор |
|---|
begin
if (exists(select upper(FAM)
from TEST t
where t.fam = :FAM)) then
update TEST tt
set tt.fam=:FAM
where tt.fam = :FAM;
else
insert into TEST
values (:FAM);
suspend;
end |
Это просто для теста: если есть по ключевому полю, то апдейт, а иначе новая строка.
Далее, мне нужно в фибы закинуть это: я делаю через
| автор |
|---|
SELECT
*
FROM
ERMIS_INSERT(:FAM)
|
А в делфи пишу
.....
for i := 1 to x-1 do // x - последняя строка в ексельке - 1 заголовок
//for j := 1 to y do
begin
pfbermis.Open;
ShowMessage(MyMass[i,4]);
pfbermis.ParamByName('FAM').AsSTRING:=MyMass[i,4];
pfbermis.Active:=TRUE;
pfbermis.edit;
pfbermis.Active:=False;
pfbermis.Close;
end;
----
Уже день сижу с этим, как, возможно, по нормальному написать?