VPF::ASP,JScrip,ACCESS - Форум программистов

Ragli

Дата 9.5.2007, 16:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 4.4.2006

Репутация: нет
Всего: нет

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

не подскажете как мне настроить БД 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("Результат поиска: <br><hr>");

while(!record.eof)
{

response.write(record("str"));
record.MoveNext();

}

connect.close();

%>

<BR>
<BR>
<B>Результат поиска </B>
<BR>
<BR>

<TEXTAREA NAME=address ROWS=5 COLS=50><% Response.Write(strChoice+" "+record("str")> </TEXTAREA>

</FORM>

</BODY>
</HEAD>

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| ASP \| Следующая тема »