Попытка получить данные из SQL Server 2005 из Excel макро

Question

Я пытаюсь получить данные из SQL Server 2005, чтобы преуспеть .. Я написал код в Excel VBA

Ниже мой код

Dim strConnection, conn, rs, strSQL 

strConnection = "Provider=sqloledb;Data Source=LEON7269-G09\SQLEXPRESS;Initial Catalog=test;User Id=sa;Password=sa@123;" 

Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open strConnection 

Set rs = Server.CreateObject("ADODB.recordset") 
strSQL = "SELECT * FROM UserDetails" 
rs.Open strSQL, conn, 3, 3 

rs.MoveFirst 
While Not rs.EOF 
    Response.Write (rs("myField") & "<br/>") 
rs.MoveNext 
Wend 

rs.Close 
Set rs = Nothing 

conn.Close 
Set conn = Nothing 

Но я получаю сообщение об ошибке в строке Set Conn = Server.CreateObject ("ADODB.Connection")

как ошибка времени выполнения 424

я попытался добавить ссылки в VBA -> Инструменты -> ссылки , но ничего не работает ... Пожалуйста, руководство меня

Answer 1

Если это Excel VBA, вы должны избавиться от всех обращений к серверу, то есть:

CreateObject("ADODB.Connection") 

не

Server.CreateObject("ADODB.Connection") 

Это не будет работать, либо:

Response.Write (rs("myField") & "<br/>") 

Answer 2

Вы упомянули вы положили ссылку, то вы должны иметь это

Dim conn as Connection 
Dim rst as Recordset 
Set conn = New Connection 

Answer 3

Одной из причин для использования позднего связывания может быть:

Позднее связывание имеет то преимущество, что вы не не должны скомпилировать код

в случае использования в VBA макросов, нет необходимости устанавливать ссылки, которые делают VBA макрос сложнее развернуть

Говорят, что позднее связывание работает медленнее, так как объект-интерфейс позже назначен на объект, следовательно, expr поздняя привязка.

С уважением.