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

Определение даты у записи   Найти похожие ветки 

← →
Washington   (2007-02-26 18:14) [0]

В общем такая ситуация. Имеется планировщик с базой данных, в которой записаны все планы. Допустим есть несколько одинаковых записей, но на разные даты. Все записи (при открытии проги) добавляются в CheckListBox. Пользователь отмечает какой-нибудь план (выполнен) и в эту запись в поле Done должна записаться единица. В принципе несложно, но есть загвоздка - планы показываются не на один день, а на неделю вперёд. То есть нужно определить дату у определённой записи в CheckListBox"е. Как?

зы Прямо сочинение получилось

---

← →
Jeer ©   (2007-02-26 18:21) [1]

Сложение (конкатенацию) строк никто не отменял
s3 := "Rec: "  + s1 + " Date: " + s2;

---

← →
Washington   (2007-02-26 18:28) [2]

Так мне дату не надо выводить

---

← →
Anatoly Podgoretsky ©   (2007-02-27 00:34) [3]

> Washington  (26.02.2007 18:28:02)  [2]

Тогда делай группирование, а как пользователь то догадается, к какой дате относится?

---

← →
Washington   (2007-02-27 12:12) [4]

В принципе, с датой можно. Выводить я её вывожу, а как в базу данных добавить? Insert не подходит, так как не новую запись добавляю, а изменяю созданную.

---

← →
ЮЮ ©   (2007-02-27 12:30) [5]

> Все записи (при открытии проги) добавляются в CheckListBox.

Где-то, например в Items.Objects, хранить значение ключевого поля, а запрос на изменение, как всем известно, должен выглядеть как
UPDATE
...
WHERE <ключевое поле> = <значене ключевого поля>

---

← →
Washington   (2007-02-27 17:25) [6]

Сделал через Update.
Код:
with Form1.ADOQuery2 do
  begin
    close;
    SQL.clear;
    SQL.Add("update Plans");
    SQL.Add("set Done = "1"");
    SQL.Add("where Plans=:a and Date=:d");
    Parameters.ParseSQL(SQL.Text,True);
    Prepared:=true;
    Parameters.ParamValues["a"]:=a;
    Parameters.ParamValues["d"]:=d;
    ExecSQL;
  end;

a: - непосредственно план
d: - дата на этот план

Ошибку выдаёт. Говорит, что не могёт найти таковую таблицу. Другие ADOQuery работают через этот же ADOConnection и всё путём. В чём теперь ошибка?

---

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

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



Память: 0.46 MB
Время: 0.034 c