Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > ASP > Не работает Open

Автор: Ragli 14.5.2007, 20:01

Здравствуйте
Не подскажете почему в этом коде ошибка,я вроде все правильно делаю,но эксплоер выдает следующую ошибку

Тип ошибки:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию
/my2.asp, line 9

Вот код asp файла :

<%@ Language=JavaScript %>

<%
var connect;
    connect=Server.CreateObject("ADODB.Connection");
    //connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\myDB.mdb";
    //connect.Open("DSN=myBDbd";"dbq=C:\Inetpub\wwwroot\myDB.mdb";"Uid=ILGAR";"Pwd=";);
    connect.Open("DSN=myBDbd");

var cmd=Server.CreateObject("ADODB.Command");
    cmd.ActiveConnection=connect;
    cmd.CommandText="SELECT distinct Фамилия FROM BD WHERE Иванов ";
    cmd.CommandType=adCmdText;
var strr;
    strr=cmd.CommandText;

var record;
    record=cmd.Execute();
var nam;
    nam=record.Fields("Фамилия").Value;

    connect.close();

    Response.Write(nam);
%>

Очень нужно,подскажите пожалуйста
Заранее спасибо

Автор: ReFleX 18.5.2007, 00:16

Код


Dim adoCon
Dim strSQL
Dim pRecordset

Set adoCon = Server.CreateObject("ADODB.Connection")

strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=С://data.mdb;"
adoCon.Open strCon 

Set pRecordset = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT .... "

pRecordset.Open strSQL, adoCon, 1, 3

pRecordset.Close

Set pRecordset = Nothing
Set adoCon = Nothing