Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Время и имя / 6 сообщений из 6, страница 1 из 1
05.10.2006, 09:46
    #34033525
dialo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время и имя
При редактировании данных в форме нужно обеспечить сохранение имени компа и времени изменения записи в таблице.
Подскажите Как?
...
Рейтинг: 0 / 0
05.10.2006, 09:49
    #34033536
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время и имя
Где хранятся данные ? В БД, в файле ?
...
Рейтинг: 0 / 0
05.10.2006, 10:03
    #34033581
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время и имя
Видимо, аксесс. А что мешает ручками писать имя компа и время изменения в таблицу?
...
Рейтинг: 0 / 0
06.10.2006, 03:00
    #34036302
dialo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время и имя
Данные хранятся в таблице БД. А имя и время нужны, что б косякопоров ловить
...
Рейтинг: 0 / 0
06.10.2006, 09:51
    #34036629
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время и имя
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongDeclare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

и now() для времени
...
Рейтинг: 0 / 0
06.10.2006, 10:51
    #34036818
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Время и имя
Код: plaintext
1.
2.
3.
4.
    Dim objA 
    Set objA = CreateObject("WScript.Network")
    Debug.Print objA.Username
    Debug.Print objA.ComputerName
    Debug.Print Now() 
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Время и имя / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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