html + VBScript +Connection +mdb

← →
Раиса © (2009-09-14 16:11) [0]

Что нужно установить, чтобы в html-е с помощью VBScript-а можно было работать с файлом mdb?

← →
Сергей М. © (2009-09-14 16:13) [1]

Смотря какая ОС ..
Может и ничего не надо дополнительно устанавливать)

← →
Раиса © (2009-09-14 16:26) [2]

Виста или ХР.... Не получается почему-то...

← →
Сергей М. © (2009-09-14 16:36) [3]

http://www.askit.ru/custom/progr_admin/m13/13_01_ado_basics.htm

← →
Раиса © (2009-09-14 16:44) [4]

Спасибо за ссылку, попробую дома и скажу. Но уже не верится... ни один кусок из примеров не работал...

← →
Сергей М. © (2009-09-14 16:49) [5]

> ни один кусок из примеров не работал

"Не работал" - понятие растяжимое ..

← →
wicked © (2009-09-14 16:50) [6]

из HTML-а может и не получиться - ограничения безопасности - кому охота, чтобы скрипты копались в локальных базах?

а вот из HTA - вполне может быть
это тот же HTML, только расширение у файла другое, ну может и doctype другой, но браузер уже знает, что это - программа для исполнения на локальном компьютере

← →
Раиса © (2009-09-15 10:44) [7]

Спасибо за ответы. Про HTA не знала.

Говорит, что ошибка на странице. Помогите, пожалуйста.

<html> <head> <script language="VBScript"> Sub but_onclick Set Conn = Server.CreateObject("ADODB.Connection") DB=Server.MapPath("C:\TEMP\aa.mdb") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB & ";" Set Rs = Conn.Execute("SELECT * FROM men ORDER BY Фамилия") Do While Not RS.EOF Response.Write Rs("Фамилия") Response.Write "<br>" RS.MoveNext Loop Rs.Close Conn.Close End Sub </script> </head> <body> <form> <input type="button" name="but" onclick="scenariy" language="VBScript"> </form> </body> </html>

← →
Сергей М. © (2009-09-15 11:12) [8]

А попробуй-ка помоги себе сама)
Установи свой обработчик ошибок и выведи инф-цию о коде ошибки

Sub but_onclick
on Error goto ErrHandler
.. здесь твой код, вызывающий ошибку ..
End Sub

ErrorControl:
.. здесь Err.Number покажет код ошибки, а Err.Description - ее описание

← →
Skyle © (2009-09-15 11:24) [9]

Что-то мне кажется удивительным такое сочетание.

Sub but_onclick
....
Response.Write Rs("Фамилия")
.....

Я думал что Response - серверный объект. А судя по but_onClick - скрипт клиентский...

нормальные примеры есть в ADO210.CHM из хелпа офиса, для access или mssql (в принципе там одинаково).
главное там не перепутать клиентский код с серверным (asp), по виду скрипты один в один...

а по коду [7] - нет объявления typelib или непосредственно объекта (вот откуда тут Server возьмется?)

> Я думал что Response - серверный объект. А судя по but_onClick - скрипт клиентский...
скорее просто "самостийная мешанина" из разных кодов...

Странно.
Процедура обозвана, как but_onclick.
А на кнопку в обработчик вешается какой-то onclick="scenariy"
Может я чё не так понимаю?

так должно работать, но только под IE и с разрешенным ActivX-ом
<html> <head> <script language="VBScript"> Sub but_onclick Set Conn = CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TEMP\aa.mdb;" Set Rs = Conn.Execute("SELECT * FROM men ORDER BY [Фамилия]") Do While Not Rs.EOF Document.Write Rs("Фамилия") + "<br>" Rs.MoveNext Loop Rs.Close Conn.Close End Sub </script> </head> <body> <form> <input type="button" name="but" onclick="but_onclick" language="VBScript"> </form> </body> </html>

Спасибо ВСЕМ. У меня получилось (взяла из своего работающего VBScript-a с MS SQL и коннект к mdb из Delphi).

<html> <head> <script language="VBScript"> Sub but_onclick set oConn = CreateObject("ADODB.Connection") set rs = CreateObject("ADODB.Recordset") DB="C:\TEMP\aa.mdb" oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB & ";Persist Security Info=False" oConn.CommandTimeout = 0 strSQL="select * from men " rs.Open strSQL, oConn, adOpenKeyset ReclD_min=rs.Fields("Surname_M") rs.Close alert (ReclD_min) End Sub </script> </head> <body> <form> <input type="button" value ="knopka" name="but" onclick="scenariy" language="VBScript"> </form> </body> </html>

html + VBScript +Connection +mdb Найти похожие ветки