Форум: "Прочее";
Текущий архив: 2009.11.15;
Скачать: [xml.tar.bz2];
Вниз
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 - скрипт клиентский...
← →
sniknik © (2009-09-15 12:42) [10]нормальные примеры есть в ADO210.CHM из хелпа офиса, для access или mssql (в принципе там одинаково).
главное там не перепутать клиентский код с серверным (asp), по виду скрипты один в один...
а по коду [7] - нет объявления typelib или непосредственно объекта (вот откуда тут Server возьмется?)
> Я думал что Response - серверный объект. А судя по but_onClick - скрипт клиентский...
скорее просто "самостийная мешанина" из разных кодов...
← →
Ega23 © (2009-09-15 14:14) [11]Странно.
Процедура обозвана, какbut_onclick.
А на кнопку в обработчик вешается какой-тоonclick="scenariy"
Может я чё не так понимаю?
← →
sniknik © (2009-09-15 14:59) [12]так должно работать, но только под 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>
← →
Раиса © (2009-09-15 15:36) [13]Спасибо ВСЕМ. У меня получилось (взяла из своего работающего 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>
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2009.11.15;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.005 c
