Delphi + БД Paradox7 + TQuery, SQL-запрос

[impeee]

Здравствуйте.

Возникла проблема с SQL-запросом, который удаляет строку в таблице Paradox7, находя ее по дате. Такой вот код у меня:

  FrmEmitent.Query1.Close;
  FrmEmitent.Query1.SQL.Clear;
  FrmEmitent.Query1.SQL.Add('DELETE FROM emitents\' + FrmEmitent.Lbl_CurrentEmitent.Caption + ' WHERE _date = "' + DBGrid1.DataSource.DataSet.FieldByName('_Date').AsString + '";');
  FrmEmitent.Query1.ExecSQL;

_date - это название столбца с датами, имеет формат ftDate.

  ...
  Table1.FieldDefs.Add('_Date',ftDate,0,True);
  ...

выскакивает стандартная ошибка, запрос обрывается на "WHERE _date =", на знаке равенства. даты имеют вид ДД.ММ.ГГГГ в таблице, и в DBGrid1 соответственно, но сравнить он как-то не может видимо. в запросе я убирал символы кавычек ", писал вручную, например "11.09.2013", а также "11.09.13", все варианты перепробывал - результат один и тот же. синтаксис запроса верный, к примеру по колонке "High" вида ftFloat он спокойно все находит, а вот с датами у него какой-то заскок, никак ему.

Помогите, пожалуйста. Как мне обратится к датам через SQL-запрос в парадоксе!

[Аватар]

FrmEmitent.Query1.SQL.Add('DELETE FROM emitents\' + FrmEmitent.Lbl_CurrentEmitent.Caption + ' WHERE _date = :MyDate');
FrmEmitent.Query1.Parameters.ParamByName('MyDate').Value:=DBGrid1.DataSource.DataSet.FieldByName('_Date').AsDateTime;

ADD

Сергей, не сговариваясь даже параметр одинаково назвали

[Serge_Bliznykov]

так же, как и в любой другой СУБД - используйте параметры (параметрический запрос)!

т.е. запрос должен выглядеть примерно так:

FrmEmitent.Query1.SQL.Add('DELETE FROM emitents\' + FrmEmitent.Lbl_CurrentEmitent.Caption + ' WHERE _date = :MyDate;' );
FrmEmitent.Query1.Parameters.ParamByName('MyDate').asDateTime :=  DBGrid1.DataSource.DataSet.FieldByName('_Date').asDateTime;
// как вариант:
// FrmEmitent.Query1.Parameters.ParamByName('MyDate').asValue :=  DBGrid1.DataSource.DataSet.FieldByName('_Date')..asValue;

UPDATE

Сообщение от Аватар

..._date = :MyDate');

ОМГ! Неужели мы все настолько одинаково/шаблонно мыслим?!!! (см. имя переменной в моём примере!!)

[impeee]

Аватар, Serge_Bliznykov - возможно вы находитесь в каком-то одном информационном поле, что если вы соседи по лестничной площадке, но даже не подозреваете об этом? )

через объявление параметра тоже не работает ( не знаю, я уже просто в отчаянии. в SQL-запросе, на знаке равенства вновь останавливается. если "_Date" = :MyDate (заключить в ковычки), он пишет ошибку о несоответствии типов. Если FieldByName('_Date').asString - то ошибок не возникает, но и никаких действий не происходит, видимо не может найти значение и удаляет "ничего".

что ж делать. может даты хранить в текстовом поле, ftString? и конвертировать текст в дату по-символьно.. (

[Serge_Bliznykov]

если "_Date" = :MyDate (заключить в ковычки), он пишет ошибку о несоответствии типов.

ничего не надо заключать в кавычки!!

посмотрите, может быть, имя поля с подчёркиванием не нравится. Попробуйте переменовать _date -> в dateEmit (не факт, что причина в этом, но всё возможно...)
это раз.

во-вторых, залезьте в таблицу с помощью любого браузера данных
(хотя бы тот же Database Workshop возьмите

 dbw32.zip Database Workshop 5.24
             ----------------------
             Professional  tool  for  managing,  handling   and
             analizing  data  bases  with  a   wide   range  of
             possibilities.  Supported database types: Paradox,
             DBase,  Clarion,  Interbase,   MySql,   EasyTable,
             DBISAM, MS Access, KeyDb, TinyDb.

обратите внимание. Не исключено, что в поле хранится не только дата, но и время.


во-третьих, сделайте запрос на выборку данных (киньте на форму DBGrid, TDataSource и TQuery - свяжите их друг с другом. Выполните запрос на отображение данных (SELECT .... where dateEmit = :MyDate )
посмотрите, что возвращается и почему так.

что ж делать. может даты хранить в текстовом поле, ftString? и конвертировать текст в дату по-символьно.. (

ну, имхо, это самый последний-распоследний вариант!! Если уж ничего не выйдет, то можно хранить и в виде строки. Только тогда уже храните в универсальном виде (например, как это делает тип DATE в DBF формате - в формате YYYYMMDD, сегодняшняя дата будет записана в DBF как '20130911' )

[impeee]

Сообщение от Serge_Bliznykov

посмотрите, может быть, имя поля с подчёркиванием не нравится. Попробуйте переменовать _date -> в dateEmit (не факт, что причина в этом, но всё возможно...)

переименовал столбец - и все заработало! причина была действительно в этом. огромное спасибо!

[Serge_Bliznykov]

не за что!
рад, что угадал причину!