Дайте кто -нибудь пример 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) не закрываю сеанс.
Но большое спасибо, что откликнулись!

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