Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

добавление даты в поле таблицы


AlpenLeo ©   (2010-06-04 23:42:00) 

Есть таблица, в которой поле Srok_vydachi типа Date. Необходимо программно добавить дату (по нажатию на кнопку), взяв ее из DateTimePicker. Может использовать другой компонент?и как его использовать?
Использую Delphi7,FireBird, IBQuery.


Правильный$Вася   (2010-06-06 10:01:00) [1]


> в которой поле Srok_vydachi типа Date

а диалект какой?
в разных диалектах разный смысл у этого типа


turbouser   (2010-06-05 13:08:00) [2]


> Anatoly Podgoretsky ©   (05.06.10 09:53) [7]
>
> > turbouser  (05.06.2010 01:19:05)  [5]
>
> Да никакой у него даты нет, а есть строковое поле.


> Есть таблица, в которой поле Srok_vydachi типа Date


Loginov Dmitry   (2010-06-05 12:39:00) [3]


> оказывается нужно было писать  QuotedStr(FormatdateTime('yyyy/mm/dd',
> Data3)


Не нужно так писать (не припомню, чтобы такой формат в IB / FB поддерживался)

Нужно использовать:
- либо параметры
- либо формат "yyyy-mm-dd"
- либо формат "dd.mm.yyyy"
- либо формат "mm/dd/yyyy" (чтобы в итоге остались именно слеши)


Anatoly Podgoretsky   (2010-06-05 09:53:00) [4]

> turbouser  (05.06.2010 01:19:05)  [5]

Да никакой у него даты нет, а есть строковое поле.


Германн   (2010-06-05 01:54:00) [5]

Опять эти параметры!
Ну почему новички о них не знают?! Хотя знают функцию QuotedStr.
:)


turbouser   (2010-06-05 01:19:00) [6]


> AlpenLeo ©   (05.06.10 00:02) [4]


> казывается нужно было писать

Надо использовать параметры. IBQuery5.Param... +F1
В этом случае будет глубоко без разницы, какой там формат даты на сервере.

> IBTransaction1.Commit;

try
  IBQuery5.ExecSQL;
  IBQuery5.Close;
  if IBTransaction1.InTransaction then
     IBTransaction1.Commit;
except
on e:exception do
 begin
  if IBTransaction1.InTransaction then
    IBTransaction1.Rollback;
   ShowMessage(E.Message) ; // ну, для примера потянет
 end;
end;


AlpenLeo   (2010-06-05 00:02:00) [7]

Были проблемы при вставке.тип даты из DateTimePicker не соответствовал типу из таблицы. оказывается нужно было писать  QuotedStr(FormatdateTime('yyyy/mm/dd',Data3) ). Спасибо за ссылку.теперь знаю как все это называется. :)

var data3:Tdate;
begin
 data3:=DateTimePicker2.Date;
 IBQuery5.SQL.Text:='INSERT INTO dannii(N_pasporta,srok_sdaci)'+
  'VALUES ('+edit5.Text+','+QuotedStr(FormatdateTime('yyyy/mm/dd',Data3))+') ';

   IBQuery5.ExecSQL;
   IBQuery5.Close;
   IBTransaction1.Commit;


Jeer   (2010-06-04 23:48:00) [8]

http://ru.wikipedia.org/wiki/DML


AlpenLeo   (2010-06-04 23:46:00) [9]

Нет.Только начинаю изучать!а что это?можно поподробнее.


Jeer   (2010-06-04 23:45:00) [10]

Т.е., с DML ты вообще не знаком ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо