Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.98/40: Рейтинг темы: голосов - 40, средняя оценка - 4.98
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88

Запись даты и времени в БД

05.06.2016, 11:16. Показов 8367. Ответов 22
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброе время суток.Есть такой вопрос.Как сделать так чтобы по нажатию кнопки, в БД в соответствующие столбцы заносилась текущая дата и время, БД открыта в ДБгрид через query.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.06.2016, 11:16
Ответы с готовыми решениями:

Запись и извлечение даты и времени из БД
Подскажите как записать дату и время в такой формате 2011/12/16 00:59:41 в Базу данных Postgres из проги на с++ интересует...

Запись даты и времени в базу
Здравствуйте! Подскажите пожалуйста,как записать дату и время с компьютера в базу данных?

Запись Даты и времени в текст
Нужно записать Дату и Время в текстовый файл Вот мой неудачный код Fwrite($fp, "date("d/m/Y H/i/s")"); ...

22
 Аватар для krapotkin
6851 / 4677 / 1465
Регистрация: 14.04.2014
Сообщений: 20,674
Записей в блоге: 21
05.06.2016, 12:42
Лучший ответ Сообщение было отмечено crazugun как решение

Решение

Delphi
1
2
3
s:=formatdatetime('dd.mm.yyyy hh:nn:ss',now())'
q2.SQL.Text:='update секретная_таблица set неизвестное_поле='''+s+''' where ключевое_поле_вашей_записи='+KEY_FIELD_VALUE;
q2.ExecSQL;
при этом формат записи даты времени разный для каждого сервера БД
2
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
05.06.2016, 13:19  [ТС]
а буква s в первой строчке это что?
0
 Аватар для krapotkin
6851 / 4677 / 1465
Регистрация: 14.04.2014
Сообщений: 20,674
Записей в блоге: 21
05.06.2016, 13:22
обычно мусорные переменные принято обозначать
Delphi
1
2
3
4
s:string;
i,j,k,n:integer;
d:double;
b:boolean;
как-то сложилось уже так
1
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
05.06.2016, 13:33  [ТС]
Delphi
1
2
3
4
5
6
7
8
procedure TForm3.Button1Click(Sender: TObject);
var
s:string;
begin
s:=formatdatetime('dd.mm.yyyy hh:nn:ss',now())'
ADOQuery1.SQL.Text:='[Сотрудники] set [Дата]='''+s+''' where [id Пропуска]='+KEY_FIELD_VALUE;
ADOQuery1.ExecSQL;
end;
Я сделал всё правильно?

Добавлено через 2 минуты
Ругается на s:=formatdatetime('dd.mm.yyyy hh:nn:ss',now())'

Добавлено через 4 минуты
А вот я тупил.Всё заработало

Добавлено через 2 минуты
А можно тогда ещё вопрос при нажатии кнопки которая добавляет дату.Все записи из дбгрид исчезают.Приходится снова открывать таблицу.Можно ли сделать так чтобы записи из дб грид не исчезали?
0
 Аватар для krapotkin
6851 / 4677 / 1465
Регистрация: 14.04.2014
Сообщений: 20,674
Записей в блоге: 21
05.06.2016, 14:21
дбгрид - это отображение датасета, к которому он привязан
причем, на тот момент, в который сделан Open
если вы для udpate использовали тот же датасет ADOQuery1 , то там сейчас нет данных
гриду нечего отображать
1
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
05.06.2016, 14:28  [ТС]
Понятно.А как сделать так чтобы при каждом нажатии кнопки в Дбгрид добавлялась новая запись?Тоесть:
Алексеев Алексей Алексеевич Вход 12,02,12 21,00
жмём кнопку и в дб грид новая строка
Алексеев Алексей Алексеевич Вход 13,02,12 22,30
0
пофигист широкого профиля
4770 / 3206 / 862
Регистрация: 15.07.2013
Сообщений: 18,613
05.06.2016, 14:37
В дб грид нет строк.
В дб грид ничего добавить нельзя.
1
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
05.06.2016, 14:44  [ТС]
Ну вобщем при каждом нажатии на кнопку в БД должны заносится новые данные.Как реализовать?Просто первый раз такой работой занимаюсь.
0
 Аватар для krapotkin
6851 / 4677 / 1465
Регистрация: 14.04.2014
Сообщений: 20,674
Записей в блоге: 21
05.06.2016, 14:47
Delphi
1
2
3
4
s:=formatdatetime('dd.mm.yyyy hh:nn:ss',now());
q2.SQL.Text:=format('insert into секретная_таблица (Строковое_поле1,Целое_поле2) values (''%s'',%d)',
                      [s, n]);
q2.ExecSQL;
1
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
05.06.2016, 14:59  [ТС]
ADOQuery1.SQL.Text:=format('insert into [Сотрудники] (Дата,Время) values (''%s'',%d)',[s, d]);
Заполнил так выдало ошибку %d invalid or incompatible with argument.
0
 Аватар для krapotkin
6851 / 4677 / 1465
Регистрация: 14.04.2014
Сообщений: 20,674
Записей в блоге: 21
05.06.2016, 15:25
потому что время нифига не похоже на Целое_поле2
время - строка, значит, нужно использовать %s в окружении апострофов как и для первого поля
1
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
05.06.2016, 15:39  [ТС]
Поправил .Но теперь в дбгрид пусто.И пусто даже при повторном запуске.

Добавлено через 6 минут
Он добавляет текущую время и дату но не создаёт новую строку.
0
пофигист широкого профиля
4770 / 3206 / 862
Регистрация: 15.07.2013
Сообщений: 18,613
05.06.2016, 16:56
Цитата Сообщение от crazugun Посмотреть сообщение
Он добавляет текущую время и дату но не создаёт новую строку.
И куда же он тогда добавляет?
1
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
05.06.2016, 17:01  [ТС]
Вот именно что не добавляет а только обновляет текущее время.
0
пофигист широкого профиля
4770 / 3206 / 862
Регистрация: 15.07.2013
Сообщений: 18,613
05.06.2016, 17:10
Не может такого быть.
1
 Аватар для krapotkin
6851 / 4677 / 1465
Регистрация: 14.04.2014
Сообщений: 20,674
Записей в блоге: 21
05.06.2016, 19:02
не верю
код на стол
1
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
06.06.2016, 08:13  [ТС]
А всё заработало.Перепроверил всё теперь добавляет.

Добавлено через 3 минуты
А возможно ли таким же образом сделать чтоб в эдит я ввёл id сотрудника.Нажал на кнопку и появилась новая строчка с Именем Фамилией и Отчеством сотрудника ?
0
 Аватар для krapotkin
6851 / 4677 / 1465
Регистрация: 14.04.2014
Сообщений: 20,674
Записей в блоге: 21
06.06.2016, 09:08
Delphi
1
2
q2.SQL.Text := format('select поле1, поле2 from секретная_таблица where полеX=%s', [edit1.text]);
q2.Open;
Добавлено через 53 секунды
вот только про
Цитата Сообщение от crazugun Посмотреть сообщение
новая строчка
не понял
может найтись старая, это да
1
0 / 0 / 0
Регистрация: 06.06.2015
Сообщений: 88
06.06.2016, 09:21  [ТС]
Нет у меня есть таблица под названием журнал.Куда записывается:
Антипин А.А время дата вход;
Иванов А.А время дата вход;
Антипин А.А время дата выход;
Иванов А.А время дата выход;
Антипин А.А время дата вход;
Иванов А.А время дата вход;
И так все сотрудники.
Мне нужно чтобы я ввёл номер сотрудника в эдит.И нажал к примеру кнопку вход.И в таблице появилась строчка:
Имя фамилия Отчество время дата вход.
Если жмё на кнопку выход то появляется новая строчка
Имя фамилия Отчество время дата выход.

Добавлено через 3 минуты
Вот что пытаюсь реализовать.

Добавлено через 1 минуту
То есть журнал где отмечаются входы и выходы сотрудников.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.06.2016, 09:21
Помогаю со студенческими работами здесь

Запись даты и времени в txt файл
Всем привет, нужна помощь в написании элемента программы: суть такая: По нажатию на кнопку нужно создать txt файл внутри которого будет...

Надо дописать!Ассемблер вывод системной даты,времени и даты ближайшего воскресенья
вот исходный код .Model Small .486p .Stack 100h .Data wNumOff DW 10 Dup(0) ;Смещение строки, где будет содержаться...

Вывод системной даты, времени и даты ближайшего воскресенья
вот исходный код выводит дату время .Model Small .486p .Stack 100h .Data wNumOff DW 10 Dup(0) ;Смещение строки, где...

Программа должна работать до определенной даты у пользователя, независимо, что он выставит в настройках даты и времени
Добрый день, уважаемые! Уже сломал голову, но ничего не могу придумать. Дело вот в чем: есть программа (клиент обращений в поддержку),...

Почему при записи даты и времени из формы в бд, к времени прибавляется час?
Здравствуйте, при записи даты и времени из формы в бд, к времени прибавляется час, почему так происходит?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru