Здравствуйте!
У меня есть задача: из ексельки сделать в делфи выгрузку в 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;
----
Уже день сижу с этим, как, возможно, по нормальному написать?

Сейчас пишет "Cannot mofidy a read-only dataset
ShowMessage(MyMass[i,4]);
pfbermis.ParamByName('FAM').AsSTRING:=MyMass[i,4];
pfbermis.Active:=true;
pfbermis.edit;

На строчке "pfbermis.edit;" ошибка

ёёёёё, огромное спасибо! Все получилось!