Невозможно подключиться к SQL2005 с помощью VBScript

Question

Используя приведенную ниже строку подключения, я могу подключиться к БД SQL2000, но не к SQL2005. У меня есть код в файле ASP.

Dim connStr, cn, rs, sql
connStr = "Provider=SQLOLEDB;Persist Security Info=True" _
           & ";Initial Catalog=mydatabase"  _
           & ";User ID=dbuser" _
           & ";Password=dbpwd" _
           & ";Data Source=servername" 
sql = "SELECT TOP 1 [Column1] FROM [dbo].[MyTable] order by NEWID()"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open cn

set rs= server.CreateObject("ADODB.Recordset")
    rs.CursorLocation=3
    rs.Open sql,cn,3,4

    if not rs.EOF then
       Response.Write("<b>Column1: " & rs("Column1") & "</b><br />")
    end if
set rs.ActiveConnection= nothing    
    rs.Close
    set rs= nothing
if ucase(TypeName(cn)) = "CONNECTION" then
    cn.Close
    Set cn = Nothing
end if

Я даже устал от SQLOLEDB.1 Вход в Sql включен на сервере sql.

Ошибка: соединение не может быть использовано для выполнения этой операции. В этом контексте он либо закрыт, либо недействителен. Бывает на RS.Open sql, cn, 3,4

Answer 1

Это случается со всеми когда-нибудь:

Dim connStr, cn, rs, sql
connStr = "Provider=SQLOLEDB;Persist Security Info=True" _
           & ";Initial Catalog=mydatabase"  _
           & ";User ID=dbuser" _
           & ";Password=dbpwd" _
           & ";Data Source=servername" 
sql = "SELECT TOP 1 [Column1] FROM [dbo].[MyTable] order by NEWID()"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open connStr

Вы вызываете переменную conn в качестве строки подключения, но вы объявили и заполнили connStr

Заменить "cn.Open conn" на "cn.Open connStr"

Answer 2

В чем ошибка? Установка SQL Server 2005/8 с отключенными удаленными подключениями - см. Эту статью поддержки .

Понятно, попробуйте установить connString для вашего объекта Connection (вы используете conn вместо connStr). Uee опция явная , чтобы избежать этих ошибок.