Подскажите.
Есть метод в классе для выполнения запросов.
Код:
procedure TClients.getSQLrequest(sql: string);
begin
with fDataModule_modelwork do begin
try
if IBQuery_SQLrequest.Transaction.Active then IBQuery_SQLrequest.Transaction.Active:=false;
if IBQuery_SQLrequest.active then IBQuery_SQLrequest.Close;
IBQuery_SQLrequest.SQL.Clear;
IBQuery_SQLrequest.SQL.Add(sql);
IBQuery_SQLrequest.Open;
except
on e: exception do
MessageDlg('Ошибка выполнения запроса'+#13#10+e.message, mtError, [mbOk], 0);
end;
end;
end;
Есть методы которые дергаются для выборок .
пример:
Код:
procedure TClients.getClients_list();
begin
getSQLrequest('select ID,NAME from CLIENTS');
end;
Как в данной схеме реализовать параметризированные запросы.
Код:
select ID,NAME from CLIENTS where id=:id_client
ParamByName ('id_client').asinteger:=100;
не хочется в запрос передавать переменные, например
Код:
getSQLrequest('select ID,NAME from CLIENTS where id:='+id_client);
если выборка большая с кучи таблиц, сам запрос будет сложно читаемым
Возможно есть что-то типа такого.
Код:
clients_query_method(){
Sql.AddQuery('select ID,NAME from CLIENTS where id=:id_client')
Sql.AddParam('id'):=100;
}
getClients_list() {
general_sql(clients_query_method)