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

Question

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

Я пытаюсь заставить данные из SQL-сервера 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

Но я добираюсь, ошибка в Наборе строки ведут = Сервер. CreateObject ("ADODB.Connection")

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

я попытался добавить ссылки в vba-> инструменты-> ссылки, но ничто не работает... Ведите меня

1

excel-vba vba excel

задан Community 9 July 2018 в 19:34

2 ответа

Другие вопросы по тегам:

excel-vba vba excel

Похожие вопросы:

score 1 · Answer 1

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

 CreateObject("ADODB.Connection")

Не

 Server.CreateObject("ADODB.Connection")

Это тоже не сработает:

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

score 0 · Answer 2

Вы упомянули, что разместили ссылку, тогда у вас должно быть это

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