Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Дата из т...

Тема: Дата из текстового файла

15.06.2007 21:04:47

С.Потапов

8 сообщения

Тема: Дата из текстового файла

Здравствуйте!

Имеется текстовик, в который сыпятся логи логинов, логофов, включений и выключений компьютера. С датой и временем %date% %time%. Соответственно имеют вид "Вт 12.03.2006" и "10:15:32,12".
Текстовая таблица "log" привязана к файлу базы данных, ее видно, все разделяется по полям, все замечательно. И есть таблица, куда эти данные переливаются "mylog" НО!
Я хочу преобразовать эти строковые данные в тип дата/время. Код примерно такой:

Public Function retable()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("log")
dbs.Execute "delete * from mylog"
With rst
.MoveLast
.MoveFirst
If .RecordCount Then
Do Until .EOF
maxnum = .RecordCount
mydate = Format(![log_date], "mm\/dd\/yyyy")
mytime = Format(![log_time], "hh\:mm")
Естественно не то, тут и хотелось бы преобразовать правильно...

If ![log_act] = "logon" Then
myact = True
Else
myact = False
End If
dbs.Execute "insert into mylog ...
Тут вставляем новую запись в таблицу...
.MoveNext
Loop
End If
End With
End Function

Вот собственно что и хотелось спросить.

Заранее благодарен,
С уважением,
С.Потапов

P.S. Связанные таблицы Text
Автор: Сергей от 05.12.2003 12:41:03 Источник ...

15.06.2007 21:04:47

All

4316 сообщения

RE: Дата из текстового файла

Это можно сделать так.
Dim bufData, bufTime
bufDate = CDate(Mid("Вт 10.10.2003", 4))
bufTime = CDate(Left("10:15:32,12", 8))

P.S. Связанные таблицы Text
Автор: Admin от 0:00:00 Источник ...

15.06.2007 21:04:47

С.Потапов

8 сообщения

RE: Дата из текстового файла

Спасибо!

Но не все так просто... Если время, скажем, "7:12:35,15", то получается Type mismach... Еще фигня получается, если с англоязычной машины свалилось "Fri 12.10.2005"...

Заранее благодарен,
С уважением,
С.Потапов

P.S. Связанные таблицы Text
Автор: Сергей от 08.12.2003 16:01:46 Источник ...

15.06.2007 21:04:47

С.Потапов

8 сообщения

RE: Дата из текстового файла

Сорри, кажется понял... Надо воспользоваться условием по Len(my_date)...

Извините за бестолковость, попробую так.

С уважением,
С.Потапов

P.S. Связанные таблицы Text
Автор: Сергей от 08.12.2003 16:05:56 Источник ...

15.06.2007 21:04:47

All

4316 сообщения

RE: Дата из текстового файла

Вообще лучше использовать split для разбора строки. Например, buf=split("Вт 10.10.2003"," "). Дата будет сохранена в buf(1)

P.S. Связанные таблицы Text
Автор: Admin от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Дата из т...

Поиск

Список форумов

Начало | Forums