Скачать: CL | DM;

Дайте кто -нибудь пример TQuery при работе с параметрами   Найти похожие ветки 

← →
Explorer ©   (2002-05-24 06:24) [0]

Мастера! Напишите пожалуйста примерчик для Query, в котором осуществлялась передача параметров в SQL запрос. Что надо описать при передаче, и в том месте, где потом происходит вызов Query.

---

← →
VAleksey ©   (2002-05-24 07:12) [1]

Эх сам же своим убеждениям противоречу, да ладно делфи под рукой, релактирую этот самый код, так что держи
// запрос для получения суммы для расчета отпускных
dm1.Query.SQL.Add("SELECT SUM(D.Sum_Deb) As Result ");
dm1.Query.SQL.Add("From "Z_Debet.db" D ");
dm1.Query.SQL.Add("Where (D."Month"<:Month and D."Month">=:Month1) and");
dm1.Query.SQL.Add("D.Tabnum = :Tabnum and");
dm1.Query.sql.Add("D.Code_Deb in (SELECT PC.Code_Calc");
dm1.Query.sql.Add("FROM "Set_Param_Calc.db" PC");
dm1.Query.sql.Add("WHERE PC.Code_Param in (SELECT PL.Code");
dm1.Query.sql.Add(" FROM "Set_Param_List.db" PL");
dm1.Query.sql.Add(" WHERE PL.Name_Param ="+#39+Base+#39"))");
// передача параметров в запрос
dm1.Query.ParamByName("Month").Value:=Month;
dm1.Query.ParamByName("Month1").Value:=Month-3;
dm1.Query.ParamByName("Tabnum").Value:=Tabnum;
// получаем сумму
dm1.Query.Open;
Result:=dm1.Query.FieldByName("Result").AsFloat;

---

← →
Explorer ©   (2002-05-24 07:33) [2]

>VAleksey ©
Я какие убеждения?
Просто я уже задал вопрос (пытался найти ошибку - грешил на то, что допустил ошибку при работе с Query), но не кто не откликнулся. Пришлось идти другим путем. Ошибку все же вычислил.
Оказалось, что когда я в цикле добавляю записи в БД (делаю это через процедуру на MSSQL) не закрываю сеанс.
Но большое спасибо, что откликнулись!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c