Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.07.26;
Скачать: [xml.tar.bz2];

Вниз

Из DataTimePicker вставляется в поле не только дата, но и время   Найти похожие ветки 

 
andzav ©   (2009-06-03 14:12) [0]

На свойство OnChange компонента DateTimePicker я прописал процедуру
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
dela.Show;
datamodule17.ADOTable14.Edit;
datamodule17.ADOTable14.Insert;
datamodule17.ADOTable14Data.Value:=DateTimePicker1.Date;
end;
Он вставляет дату в поле, но вместе со временем! БД подключена к Access, через ADO Connection. Тип поля - краткая дата. Как обрезать время?
И еще проблема - он вставляет две строки, на одной курсор, а другая пустая, только с заполненным полем Дата. Как от этого избавиться???!!!


 
Медвежонок Пятачок ©   (2009-06-03 14:21) [1]

как же в поле "короткая дата" помещается дата и время?
не наводит на мысли, что поле это на самом  дата и время?


 
Palladin ©   (2009-06-03 14:22) [2]

datamodule17.ADOTable14Data.Value:=Trunc(DateTimePicker1.Date);


 
Медвежонок Пятачок ©   (2009-06-03 14:23) [3]

а 00:00:00 это не время что ли?
типа безвременье?
:)


 
Медвежонок Пятачок ©   (2009-06-03 14:27) [4]

И еще проблема - он вставляет две строки ....

Это потому, что недостаточно раз написано edit и инсерт.
Надо четыре едита и десять инсертов.
Потом присваивать.
Тогда будет одна строка.


 
Palladin ©   (2009-06-03 14:28) [5]


> datamodule17.ADOTable14.Edit;
> datamodule17.ADOTable14.Insert;
> datamodule17.ADOTable14Data.Value:=DateTimePicker1.Date;

чего это ты тут налепил? и Edit и Insert... было бы еще методов 15, так наверное их всех бы лупанул... для верности типа...


 
Palladin ©   (2009-06-03 14:29) [6]

во... точно... про Append ты забыл...


 
Dennis I. Komarov ©   (2009-06-03 14:29) [7]

перевели в режим редактирования, потом вставили запись, потом пытаемся изменить значение поля, по ПОСТ вообще забыли как класс, и все это при каждом изменении в пиккере...

З.Ы. А до какого банана вообще что будет в Access? Главное как показать прочитанное


 
andzav ©   (2009-06-03 14:37) [8]

Спасибо большое Palladin! Ты единственный помог! А может еще как то можно решить проблему с двумя строками??!! Я убирал Edit, потом Insert, короче все поочереди! Не помогает! Если оставить только datamodule17.ADOTable14Data.Value:=DateTimePicker1.Date;, то измениться последняя запись!


 
Медвежонок Пятачок ©   (2009-06-03 14:44) [9]

не хватает таймера. без него ничего не получится


 
Игорь Шевченко ©   (2009-06-03 14:45) [10]

Как страшно жить


 
Dennis I. Komarov ©   (2009-06-03 14:45) [11]


> Спасибо большое Palladin! Ты единственный помог!

Не уже ли Append помог? :))))


> Я убирал Edit, потом Insert, короче все поочереди! Не помогает!
>  Если оставить только datamodule17.ADOTable14Data.Value:
> =DateTimePicker1.Date;, то измениться последняя запись!

Может надо все-таки почитать?


 
andzav ©   (2009-06-03 15:06) [12]

Если Вы не видите -  вкладка называется "Начинающим"!!! Я не крутой специалист, но как человек, могу Вам сказать, что Вы ведете себя по отношению к нам (начинающим) - ОЧЕНЬ ГРУБО! Если Вам лень отвечать - удалите эту вкладку!!!! Я не думаю, что хоть кто-то из Вас, с детства читал книги по Delphi и писал SQL запросы!!! Мы обращаемся к Вам за помощью, а не затем, чтобы Вы над нами смеялись!

<Как страшно жить

Парень, выпрыгни в окно! Мне не нравится, когда надо мной смеются!

Надеюсь Вы не переломились, написав пару острот в мой адрес?!
Всего хорошего, шутники!


 
Dennis I. Komarov ©   (2009-06-03 15:10) [13]

Читать надо то что пишуть, а не вставать в позу...


 
Плохиш ©   (2009-06-03 15:13) [14]


> нам (начинающим)

Что-то я тут "начинающего" не вижу, какой-то халявщик пробегающий за зачётом.

> Мы обращаемся

Вы - Николай второй?


 
Игорь Шевченко ©   (2009-06-03 15:23) [15]

andzav ©   (03.06.09 15:06) [12]

Читать до полного и окончательного просветления:
http://ln.com.ua/~openxs/articles/smart-questions-ru.html


 
andzav ©   (2009-06-03 15:27) [16]

> Читать до полного и окончательного просветления:http://ln.
> com.ua/~openxs/articles/smart-questions-ru.html
Ссылка не открывается!

> Вы - Николай второй?
Как остроумно! Вы почитайте другие вопросы, и свои ответы! Только шуточки одни!!!!!


 
andzav ©   (2009-06-03 15:30) [17]

> Читать до полного и окончательного просветления:http://ln.
> com.ua/~openxs/articles/smart-questions-ru.html
Ссылка не открывается!


> > нам (начинающим)Что-то я тут "начинающего" не вижу, какой-
> то халявщик пробегающий за зачётом.
Сам ты холявщик!  Я зачеты все давно сдал! Просто поинтересоваться решил! А вы тут как ПЕТУХИ накинулись!

> Вы - Николай второй?
Как остроумно! Щас об стену убьюсь от смеха! Просто почитайте ваши ответы, везде подколы!!!!


 
Медвежонок Пятачок ©   (2009-06-03 15:41) [18]

Ссылка не открывается!

Сильнее нажимай.



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

Форум: "Начинающим";
Текущий архив: 2009.07.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.49 MB
Время: 0.007 c
15-1242807980
Лёха
2009-05-20 12:26
2009.07.26
Генетический алгоритм


3-1225083932
arhey
2008-10-27 08:05
2009.07.26
DBEdit и MySQL


2-1243718076
Rembo
2009-05-31 01:14
2009.07.26
TApplicationEvents.OnException получить имя метода из Exception


15-1242988527
Gans
2009-05-22 14:35
2009.07.26
Подскажите как называется программа


2-1243960373
v1kee
2009-06-02 20:32
2009.07.26
Помогите с динамическим созданием строк





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский