Архив форумов ЦИТФорума

Sao · Зарегистрирован: 08.09.2004 Сообщения: 2

Есть база на SQL сервере 2000. Все под управлением 2000 винды.
Создаю системный источник данных к этой базе с авторизацией пользователя заведенного в СКЛ сервере, регистрация проходит без проблем.
Пишу такой код в asp странички:
<html>
<center><h1>РИС</h1></center>
<%
Dim conn, RS, strSQL, strOut
strOut="<h3>Регионы</h3><br>"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "ris"
Set RS=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT kreg, nreg from sreg order by kreg"
RS.Open strSQL, Conn
RS.MoveFirst
do while not RS.eof
strOut=strOut & RS.Fields("kreg") & "<p> - </p>" & RS.Fields("nreg") & "<BR>"
loop
Rs.Close
Set RS=Nothing
Conn.Close
Set Conn=Nothing
Response.Write strOut
%>
</html>

Когда пытаюсь просмотреть получаю такую ошибку:

Microsoft OLE DB Provider for ODBC Drivers ошибка '80040e4d'

[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'WINS2000\IUSR_WINS2000'.

/index.asp, line 7

В чем проблема, подскажите ПЛЗ. То же делал с Accesom все хорошо, а со СКЛ не получается.

Заранее благодарю

Sao · Зарегистрирован: 08.09.2004 Сообщения: 2

Все решил проблему!! Я не стал пользоваться ODBC, а написал строчку прямого соединения через ADO

<%
dim Conn, RS, strSQL, strOUT
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server};" & _
"Server=SARABSKY;" & _
"Database=ris;" & _
"Uid=risuser;" & _
"Pwd=;"
strSQL = "SELECT kreg,nreg from sreg order by kreg"
Set RS = Conn.Execute(strSQL)
RS.MoveFirst
do while not RS.Eof
strOut=strOut & "<p>" & RS.Fields("kreg") & " - " & RS.Fields("nreg") & "</p><br>"
RS.MoveNext
loop
RS.Close
SET RS=Nothing
Conn.Close
SET Conn=Nothing
Response.Write strOut
%>

	Список форумов Архив форумов ЦИТФорума -> Базы данных	Часовой пояс: GMT + 3
Страница 1 из 1