Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft SQL Server Новый топик    Ответить
 ошибка при обращении к SQL из VBA  [new]
Seva1414
Member

Откуда:
Сообщений: 2
Друзья, проблема такая:

есть списочек в Excel, хочу напротив это списка вставлять значения соответствующие записям в таблице SQL

для этого пытаюсь писать такой код в VBA:


Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim v1 As String


Set cn = CreateObject("ADODB.Connection")
cn.Provider = "SQLOLEDB"
cn.ConnectionString = "User ID=ХХХ;Password=XXX;Data Source = xxx\xxx;Initial Catalog = XXX"
cn.Open

For i = 1 To 100
v1 = Cells(i, 1).Value

SqlString = " SELECT z1 FROM dbo.isx WHERE v = " & v1 & ""

rs.Open SqlString, cn



cells(i,2).value = rs.Fields("z1").Value
Next i


Но почему-то на этапе обращения со строкой запроса (rs.Open SqlString, cn) вылетает "Неправильное имя столбца <...> " где <...> - значение переменной v1.

Что я делаю не так?
30 дек 09, 15:23    [8138026]     Ответить | Цитировать Сообщить модератору
 Re: ошибка при обращении к SQL из VBA  [new]
Konst_One
Member

Откуда:
Сообщений: 11514
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim v1 As String


Set cn = CreateObject("ADODB.Connection")
cn.Provider = "SQLOLEDB"
cn.ConnectionString = "User ID=ХХХ;Password=XXX;Data Source = xxx\xxx;Initial Catalog = XXX"
cn.Open

For i = 1 To 100
v1 = Cells(i, 1).Value

SqlString = " SELECT z1 FROM dbo.isx WHERE v = " & v1 & ""

rs.Open SqlString, cn



cells(i,2).value = rs.Fields("z1").Value
Next i

сами увидите или вам показать?
30 дек 09, 15:27    [8138049]     Ответить | Цитировать Сообщить модератору
 Re: ошибка при обращении к SQL из VBA  [new]
Seva1414
Member

Откуда:
Сообщений: 2
Konst_One,

Лучше показать))
30 дек 09, 15:33    [8138082]     Ответить | Цитировать Сообщить модератору
 Re: ошибка при обращении к SQL из VBA  [new]
Konst_One
Member

Откуда:
Сообщений: 11514
'" & v1 & "'"
30 дек 09, 15:35    [8138090]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft SQL Server Ответить