Здравствуйтене подскажете как мне настроить БД ACCESS для того чтобы можно было бы получить из ASP доступ к акцесс ???
У меня Эксплоуер выдает ошибку
Тип ошибки:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию
/my.asp, line 61
Я вроде установил это драйвер, но он опять жалуется на драйвер.
А драйвер я подключаю следующим образом :
Панель управления\Администрирование \ Источник данных ODBC \Системный DNS и добавляю драйвер Microsoft Access Driver с именем myBD. myBD- это моя БД на акцессе.
а вот код asp файла
<%@ Language=JavaScript %>
<HEAD>
<meta http-equiv="content-type" content="text/html; charset=Windows-1251">
<BODY>
<H3> База данных </H3>
<%
var strChoice;
var str;
var stroka;
%>
<FORM NAME="mailer" method="post" action="my.asp">
<P ALIGN=left>
<INPUT TYPE="text" NAME="strin" size="50" >
<input type="submit" value="Поиск">
<P ALIGN=left>
<INPUT TYPE=radio NAME="choice" VALUE="Фамилия" CHECKED > Фамилия
<P>
<INPUT TYPE=radio NAME="choice" VALUE="Имя" > Имя
<P>
<INPUT TYPE=radio NAME="choice" VALUE="Отчество" > Отчество
<%
strChoice=String(Request.Form("choice"));
if (Request.Form("strin")!="")
{
stroka=Request.Form("strin");
}
else
{
stroka="Введите данные для поиска";
}
if(stroka=="undefined")
{
stroka="Введите данные для поиска";
}
if(strChoice=="undefined")
{
strChoice="Фамилия";
}
var connect;
connect=Server.CreateObject("ADODB.Connection");
connect.ConnectionTimeout=15;
connect.CommandTimeout=10;
connect.Open("DSN=myDB");
var cmd=Server.CreateObject("ADODB.Command");
cmd.ActiveConnection=connect;
if (strChoice=="Фамилия") then
str="SELECT distinct Фамилия FROM BD WHERE Фамилия like stroka* ";
if (strChoice=="Имя") then
str="SELECT distinct Имя FROM BD WHERE Имя like stroka* ";
if (strChoice=="Отчество") then
str="SELECT distinct Отчество FROM BD WHERE Отчество like stroka* ";
var record=connect.Execute(str);
response.write("Результат поиска: <hr>");
while(!record.eof)
{
response.write(record("str"));
record.MoveNext();
}
connect.close();
%>
<B>Результат поиска </B>
<TEXTAREA NAME=address ROWS=5 COLS=50><% Response.Write(strChoice+" "+record("str")> </TEXTAREA>
</FORM>
</BODY>
</HEAD>