| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Дайте кто -нибудь пример TQuery ;при работе с параметрами [D6, MSSQL]
Explorer © (2002-05-24 06:24:00)Мастера! Напишите пожалуйста примерчик для Query, в котором осуществлялась передача параметров в SQL запрос. Что надо описать при передаче, и в том месте, где потом происходит вызов Query.
Explorer (2002-05-24 07:33:00) [1]>VAleksey ©
Я какие убеждения?
Просто я уже задал вопрос (пытался найти ошибку - грешил на то, что допустил ошибку при работе с Query), но не кто не откликнулся. Пришлось идти другим путем. Ошибку все же вычислил.
Оказалось, что когда я в цикле добавляю записи в БД (делаю это через процедуру на MSSQL) не закрываю сеанс.
Но большое спасибо, что откликнулись!
VAleksey (2002-05-24 07:12:00) [2]Эх сам же своим убеждениям противоречу, да ладно делфи под рукой, релактирую этот самый код, так что держи
// запрос для получения суммы для расчета отпускных
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;
| |
