БД и календарь

[Аватар]

Ид можно держать в массиве, индекс которого соответствует индексу строк стринггрида

а ADOQurty нет?

В общем-то не ADOQuery, а провайдер. Там еще есть фишки, которые не катят через ADO

PS

По моему разделитель должен соответствовать установкам винды. У меня получилось #25.07.2013# средствами ADO. Но лучше через параметры

[Человек_Борща]

#25.07.2013#

БД это не проглотит. Потому я меняю глобальный DateDelimiter, чего не рекомендую делать.

[Аватар]

Да, на счет #25.07.2013# точно напутал, перемкнуло

[Человек_Борща]

А вот такой багз:

const
  Req = 'UPDATE Calendar SET Calendar.State = 1 WHERE (Calendar.ID = ":MyID") AND (Calendar.Day = :CellDate)';
...
    DBQuerty.Parameters.ParamByName('MyID').Value := Grid.Cells[0, Grid.Row];
    DBQuerty.Parameters.ParamByName('CellDate').Value := FormatDateTime('dd/mm/yyyy', d);

где

    DBQuerty.Parameters.ParamByName('MyID').Value := Grid.Cells[0, Grid.Row];

явл. строковым параметром, но ADOQuerty не проглатывает т.к. не может найти параметр MyID.

[Аватар]

А ID какое? Если числовое, то не прокатит. Если символьное, то это не баг, кавычки не надо, ADO само их проставит

[Serge_Bliznykov]

насчёт "багэ" Аватар уже высказался (я полностью с ним согласен, на 146%)

но ещё хочу добавить:

Сообщение от Человек_Борща

DBQuerty.Parameters.ParamByName('CellDate').Value := FormatDateTime('dd/mm/yyyy', d);

Вы извращаете идею использования параметров.
Суть в том, что Вы записываете параметер нужного Вам типа. Например, DateTime. И Вам уже НЕ НУЖНО применять конвертацию параметра в строку, рискуя получить баг несоответствия региональных установок (где число, где месяц, где год, чем они разделены и т.д. и т.п.
т.е. в вашем случае должно быть примерно так:

const
  Req = 'UPDATE Calendar SET Calendar.State = 1 WHERE (Calendar.ID = :MyID) AND (Calendar.Day = :CellDate)';
...
    DBQuerty.Close;
    DBQuerty.Parameters.ParamByName('MyID').Value := Grid.Cells[0, Grid.Row]; 
                        {если Cells возвращает строку, то, возможно, понадобится даже ... .Value := StrToInt(Grid.Cells[0, Grid.Row])}

    DBQuerty.Parameters.ParamByName('CellDate').Value := d;
...

[Человек_Борща]

Serge_Bliznykov, в запросе вместо ID теперь FIO, т.е. это строка.
Цитирую себя:

Но все же как быть, если не Grid.Row?
Сделал по имени.

в таблице Workers поле FIO ключевое, без совпадений и пустот
в таблице Calendar, поле FIO ключевое, с совпадениями, без пустых строк
Связка: 1-ко-многим

Вопрос был про вставку даты, как параметра.
Ну и новый код:

const
  ReqU = 'UPDATE Calendar SET Calendar.State = 1 WHERE (Calendar.FIO = :MyID) AND (Calendar.Day = :CellDate)';
  ReqA = 'INSERT INTO Calendar ( FIO, [Day], State) VALUES (:MyID, :CellDate, 1)';
var
  sText, sID: string;
  d: TDate;
  Day: Word;
  iCol, iRow: Integer;
begin
  iCol := Grid.Col;
  iRow := Grid.Row;
  sText := Grid.Cells[iCol, iRow];
  sID := Grid.Cells[0, iRow];
  Day := StrToInt(Grid.Cells[iCol, 0]);
  D := RecodeDay(fDate, Day);
  if (sText <> EmptyStr) and ((sText = 'Íå áûë') or (sText = 'Íå èçâåñòíî')) then
  begin
    DateSeparator := '/';
    DBQuerty.SQL.Clear;
    DBQuerty.SQL.Text := ReqU;
    DBQuerty.Parameters.ParamByName('MyID').Value := sID;
    DBQuerty.Parameters.ParamByName('CellDate').Value :=d; //FormatDateTime('dd/mm/yyyy', d);

    DBQuerty.ExecSQL;
    DateSeparator := '.';
    if (DBQuerty.ExecSQL <> 0) then
      BuildGrid;

Возникает ошибка: Несоответствие типов данных в условии отбора.
кроме форматирования, другого решения я не нашел.
Может есть какие-то настройки, чтобы параметры правильно подставляло.

[Serge_Bliznykov]

покажите, пожалуйста, структуру таблицы Calendar (тип поля Day интересует)...


p.s.

    DBQuerty.ExecSQL;
    DateSeparator := '.';
    if (DBQuerty.ExecSQL <> 0)

обратите внимание, вы выполнение запроса вызываете ДВАЖДЫ. И, если для данного update это не столь важно, то для Insert Вы рискуете дважды вставить одну и ту же запись...

[Человек_Борща]

Структура таблицы календаря

обратите внимание, вы выполнение запроса вызываете ДВАЖДЫ. И, если для данного update это не столь важно, то для Insert Вы рискуете дважды вставить одну и ту же запись...

О это глюк. Спасибо.

[Аватар]

d: TDate;

Не нравится мне этот тип данных и не пользуюсь им. Попробуйте TDateTime. И с fDate повнимательней - чтобы в нем время нулевое было
Кстати Calendar.Day - не помню насчет Day - возможно нужно Calendar.[Day] (а может и нет)