| Вопрос: Доступ к *mdb с VBScript | Добавлено: 08.02.08 13:51 |
Автор вопроса:  Дмитрий | Web-сайт: teslitsky.info
|
|
Здравствуйте! Я не силен на VBScript, у меня вопрос: можно ли получить (только чтение) данные из базы данных Access не использую сервер?
Вот нашел код для открытия БД, но как прочитать данные из таблицы? <script language="VBScript"> <!-- Option Explicit dim path path = "C:\base\" dim accessApp dim rst dim strSql set accessApp = createObject("Access.Application") accessApp.OpenCurrentDataBase(path & "test.mdb") strSql = "select * from Students" set rst = accessApp.Currentdb.OpenRecordSet(strSql) 'какая-то обработка даных rst.close --> </script> |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: Дмитрий Вопросов: 1 Ответов: 1 |
Web-сайт: Профиль | | #1 | Добавлено: 10.02.08 10:40 |
|
Все, тема закрыта. Нашел как это можно сделать. Выкладываю, может кому-то понадобится. Я использовал для информационного портала, лежащего в локальной сети.
Если дата конца действия новости не больше, чем текущая системная, то выводится новость и ее дата создания. Вот упрощенный вывод: <script language="VBScript"> <!-- Option Explicit dim path dim x dim y dim z path = "C:\base\" dim accessApp dim rstn dim rstds dim rstde dim strNews dim strDateStart dim strDateEnd set accessApp = createObject("Access.Application" 
accessApp.OpenCurrentDataBase(path & "test.mdb"
strNews = "select newslist from news" strDateStart = "select datestart from news" strDateEnd = "select dateend from news" set rstn = accessApp.Currentdb.OpenRecordSet(strNews) set rstds = accessApp.Currentdb.OpenRecordSet(strDateStart) set rstde = accessApp.Currentdb.OpenRecordSet(strDateEnd) 'какая-то обработка даных do until rstn.EOF for each x in rstde.Fields for each y in rstn.Fields for each z in rstds.Fields If x.value >= date() then document.write(y.value) document.write(" @ "
document.write(z.value) document.write("<br>"
End If next next next rstde.MoveNext rstn.MoveNext rstds.MoveNext loop rstds.close rstn.close rstde.close --> </script> |
||
Страница: 1 |