работа с TupdateSQL

← →
mer (2002-09-27 11:30) [0]

Как использовать переменные в TUpdateSQL?
В Tquery
Query1.params.value:="123";
В TUpdateSQL такой номер не проходит :(

← →
ЮЮ (2002-09-27 11:36) [1]

А зачем в TUpdateSQL ещё какие-то параметры, её запросы и так напичканы всеми необходимыми параметрами ?

← →
Johnmen (2002-09-27 11:36) [2]

А как видно, что не проходит ?

← →
mer (2002-09-27 14:24) [3]

Ну тогда так!
Как с помощью TUpdateSQL добавить в таблицу новую запись со значениями из Edit1.text и Edit2.text?

← →
Johnmen (2002-09-27 14:49) [4]

Вообще-то, TUpdateSQL предназначен несколько для других целей...

← →
mer (2002-09-27 15:21) [5]

Ну может быть есть вы знаете хороший электроный учебник по SQL в Делфи :(

← →
Johnmen (2002-09-27 15:30) [6]

Знаю только твердые учебники... :-)))

← →
Александр Спелицин (2002-09-27 15:30) [7]

> Ну может быть есть вы знаете хороший электроный учебник
> по SQL в Делфи :(

Конечно!
И он называется "Исходные тексты VCL"

А по хорошему, так купите любую книгу по программированию баз данных в Delphi. И 90% вопросов отпадут сами собой.

ЗЫ. Зато появится еще больше других вопросов и на порядок серьезнее :o).

← →
Alex Nourov (2002-09-27 17:44) [8]

Попробуй так
Например в запросе на добавление записи

INSERT INTO RFactors (UnitNo1, UnitNo2, Factor)
VALUES (:UnitNo1, :UnitNo2, :Factor);

параметр :UnitNo1 надо установить программно взяв его откуда-то кроме как из запроса связанного
с RFactorsUQ (TUpdateSQL)
в событии AfterPost запроса связаного с RFactorsUQ (ТUpdateSQL)
пишеш следующий код (например)

procedure TMainData.RFactorsQAfterPost(DataSet: TDataSet);
begin
RFactorsUQ.SetParams(CurUpdateKind_RT);
if CurUpdateKind_RT = ukInsert then
RFactorsUQ.Query[ukInsert].Params[0].AsInteger := твое значение параметра (переменная);
RFactorsUQ.ExecSQL(CurUpdateKind_RT);
CurUpdateKind_RT := ukModify;
end;

← →
ЮЮ (2002-09-30 05:05) [9]

>Как с помощью TUpdateSQL добавить в таблицу новую запись со значениями из Edit1.text и Edit2.text?

Query.Insert;
Query.FieldByName("aaaa").asString:=Edit1.text;
Query.FieldByName("bbbb").asString:=Edit2.text;
Query.Post;

A UpdateSQL, указанный у Query, и, естественно, настроенный должным образом, сам выполнит необходимые запросы.

работа с TupdateSQL Найти похожие ветки