Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как зафиксировать в БД дату её посл. изменения? / 7 сообщений из 7, страница 1 из 1
08.05.2006, 16:56
    #33715284
Adic
Adic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как зафиксировать в БД дату её посл. изменения?
Пишу БД в VFP 9.0
Хочу чтоб при входе в базу на главной форме показывалось окошко с датой последних изменений данных.
Подскажите пути решения...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2006, 21:40
    #33715534
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как зафиксировать в БД дату её посл. изменения?
Служебная таблица с полем типа Date.

На каждую таблицу базы данных (кроме этой служебной) вешаешь триггер на все 3 события (Delete, Insert, Update). В этом триггере команда на модификацию поля в этой служебной таблицы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2006, 23:02
    #33715609
grayalex
grayalex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как зафиксировать в БД дату её посл. изменения?
Ну или, как вариант, при старте программы выполнить ADIR(mas,'<путь к таблицам\*.dbf>'). Затем mas(x,3) даст дату, а mas(x,4) - время последней модификации файлов.
Но лучше, наверное, все-таки через служебную таблицу...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.05.2006, 12:21
    #33715878
Adic
Adic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как зафиксировать в БД дату её посл. изменения?
а что за команда на модификацию поля служ. таблицы?
просто я не знаток sql, перепробывал всяко разно уже, не получатца... ))))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.05.2006, 18:03
    #33716138
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как зафиксировать в БД дату её посл. изменения?
При чем здесь SQL? Ты же работаешь в FoxPro и модифицируешь таблицу FoxPro. А для этого есть команда REPLACE

Код: plaintext
1.
2.
select MyTab
REPLACE LastModify WITH Date()

Впрочем, можно и через UPDATE-SQL

Код: plaintext
UPDATE MyTab SET LastModify WITH Date()

Здесь MyTab - это имя служебной таблицы, а LastModify - имя поля. Предполагается, что в таблице есть всего одна запись. Если это не так, то надо добавить условие отбора нужной записи для модификации
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.05.2006, 21:28
    #33716333
karly™
karly™
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как зафиксировать в БД дату её посл. изменения?
grayalexНу или, как вариант, при старте программы выполнить ADIR(mas,'<путь к таблицам\*.dbf>'). Затем mas(x,3) даст дату, а mas(x,4) - время последней модификации файлов.
IMHO очень трезвая идея
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
lcPath = "\\server\DB\" && Директория, где лежат файлы dbf

Create Cursor _temp1 ( f1 C( 1 ), f2 I, f3 D, f4 C( 8 ), f5 C( 1 ))

= ADir(laDBF, lcPath + "*.dbf")

Append From array laDBF

Select f3, f4 from _temp1 into cursor _temp2 order by f3 descending , f4 descending

ldDate_LastModified = _temp2.f3 && Дата последней модификации
lcTime_LastModified = _temp2.f4 && Время последней модификации

USE in _temp1
USE in _temp2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.05.2006, 18:42
    #33721292
Adic
Adic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как зафиксировать в БД дату её посл. изменения?
Владимир! Респект, получилось!
Тока написал так:
PROCEDURE AddNewDate
SELECT Служебная
replace cur_date WITH DATE()
SELECT Служебная
Return .T.

Спасибо за помощь :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как зафиксировать в БД дату её посл. изменения? / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 465ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1591721]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 160ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 203ms
total:  465ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]