Модератор: Модераторы
select
tablemain.id,
tablemain.name,
tablemain.ls,
tablemain.file_fmt,
tablemain.file_code,
tablemain.set_str,
tablemain.ls_empty
from tablemain
order by tablemain.name
SQLQueryWork.SQL.Clear;
SQLQueryWork.SQL.Add('INSERT INTO TableWork');
SQLQueryWork.SQL.Add('(Num, FIO, LS, SUMMA, STAT, NOTE)');
SQLQueryWork.SQL.Add('VALUES');
SQLQueryWork.SQL.Add('(:Num, :FIO, LS, :SUMMA, :STAT, :NOTE)');
SQLQueryWork.Params.ParamByName('Num').AsInteger := SQLQueryMain.FieldByName('ID').AsInteger;
SQLQueryWork.Params.ParamByName('FIO').AsBlob := UTF8ToAnsi(tmp_RL.FIO);
SQLQueryWork.Params.ParamByName('LS').AsString := tmp_RL.LS;
SQLQueryWork.Params.ParamByName('Summa').AsFloat := tmp_RL.Sum;
SQLQueryWork.Params.ParamByName('Stat').AsInteger := tmp_RL.Stat;
SQLQueryWork.Params.ParamByName('Note').AsBlob := tmp_RL.Note;
SQLQueryWork.ExecSQL;
SQLTransaction.Commit;
except
on E: Exception do
begin
MessageDlg(E.message, mtError, [mbOK], 0);
SQLTransaction.Rollback;
SQLQueryWork.Active := False;
Exit;
end;
end;
Уважайте форумчан!
SQLTransaction.Commit;
SQLQueryWork.SQL.Clear;
SQLQueryWork.SQL.Add('INSERT INTO TableLink');
SQLQueryWork.SQL.Add('(NUM, ID, SUMMA');
SQLQueryWork.SQL.Add('VALUES');
SQLQueryWork.SQL.Add('(GEN_ID(GEN_TABLELINK_NUM, 1), 0, 0)');
SQLQueryWork.SQL.Add('RETURNING NUM');
SQLQueryWork.ExecSQL;
3. Если в операторе изменения данных (INSERT, UPDATE OR INSERT, UPDATE, DELETE) присутствует оператор RETURNING, то оператор изменения данных должен быть выполнен при помощи API-функции isc_info_sql_stmt_exec_procedure, вместо обычных для этих случаев API-функций (например, оператор INSERT выполняется при помощи API-функции isc_info_sql_stmt_insert), следовательно программная прослойка для работы с сервером должна поддерживать это особенность.
Замечания переводчика: Внимание Delphi-разработчиков: текущие на момент написания статьи версии компонентов доступа к серверу - IBX x.11 не поддерживает эту особенность; - IBDAC 2.20 не поддерживает эту особенность; - FIBPlus 6.80 поддерживает эту особенность
Ustas писал(а):Расскажите мне, пожалуйста, какие DLL (и другие файлы) необходимы к моей программе, работающей с локальной базой Firebird на другом компьютере (с неустановленным Firebird)?
Ustas писал(а):DLL`ми обойтись можно.
v-t-l писал(а):Применение Firebird embedded обсуждалось на форуме.
v-t-l писал(а):http://www.freepascal.ru/forum/viewtopic.php?f=26&t=1095&p=7809#p7782
Добавлено спустя 37 минут 37 секунд:
http://www.freepascal.ru/forum/viewtopi ... d=a#p31643
Добавлено спустя 23 минуты 29 секунд:
http://www.google.ru/search?hl=ru&q=Fir ... epascal.ru
SELECT NUM
FROM TABLE
WHERE ID = :ID
ORDER BY NAME
SELECT ID, NAME, NUM
FROM TABLE
WHERE ID = :ID
ORDER BY NAME
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5