VPF::VBScript Ошибка при работе с ADO.Recordset

Severyanin

Дата 4.6.2010, 05:15 (ссылка)

(нет голосов)

Загрузка ...

Исследователь

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 31.7.2007
Где: Россия, Омск

Репутация: нет
Всего: 9

Всем привет. Делаю простенький конвертер из базы Access в формат YAML.

Код


Dim cn
    Set cn = CreateObject("ADODB.Connection")
    'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=params.mdb;Initial Catalog=;UID=admin;PWD=''" 
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=params.mdb"
    If Err.Number <> 0 Then
        WScript.Echo "1-" & Err.Number & ":" & Err.Description
        Err.Clear
        'Continue
    End If
    'On Error GoTo CnErrorHandler
    Dim rs 
    Set rs = CreateObject("ADODB.Recordset")
    If Err.Number <> 0 Then
        WScript.Echo "2-" & Err.Number & ":" & Err.Description
        Err.Clear
        'Continue
    End If
    rs.CursorType = adOpenForwardOnly
    rs.ActiveConnection = cn
    rs.Source = "SELECT FIO FROM params"
    rs.Open

При открытии рекордсета получаю ошибку "Отсутствует значение для одного или нескольких требуемых параметров".
Перерыл возможную документацию, но там все указывают на отсутствие определения курсора или запроса, которые у меня есть.

--------------------

"Звонким вереском скроются наши следы, и не вспомнят о них. Кто поверит нам, рыцарям павшей звезды из отвергнутых книг? Пусть в узоре времен ни стихов. ни имен, но напомнит забывшим их полуночный крик." Тэм Гринхилл
"Ужели суслик твоего коварства нагадит в плов доверья моего?". Л.Филатов

Akina

Дата 4.6.2010, 08:21 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Создал такую базу с такой таблицей и данными. Скопировал твой код в скрипт. Изменил имя базы (добавил диск и путь). Добавил в конец вывод пары строк и закрытие соединения:

Код


Dim cn
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\db1.mdb"
If Err.Number <> 0 Then
        WScript.Echo "1-" & Err.Number & ":" & Err.Description
        Err.Clear
End If
Dim rs 
Set rs = CreateObject("ADODB.Recordset")
If Err.Number <> 0 Then
        WScript.Echo "2-" & Err.Number & ":" & Err.Description
        Err.Clear
End If
rs.CursorType = adOpenForwardOnly
rs.ActiveConnection = cn
rs.Source = "SELECT FIO FROM params"
rs.Open

dim val
val=rs.fields("FIO") & chr(10)
rs.movenext
val=val & rs.fields("FIO")
WScript.Echo val

rs.close
cn.close

Скрипт отработал корректно и без проблем.
Вывод: проблемы в коде НЕТ.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Severyanin

Дата 8.6.2010, 17:18 (ссылка)

(нет голосов)

Загрузка ...

Исследователь

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 31.7.2007
Где: Россия, Омск

Репутация: нет
Всего: 9

Спасибо, проблема решилась подстановкой правильного названия поля в запрос)

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »