Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 22.12.2015
Сообщений: 19

Resultset ничего не возвращает

23.12.2015, 04:40. Показов 865. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем доброго времени суток!

Столкнулся с таким казуом, никогда такого не возникало..

Есть макрос, который запускается в аксессовском файле, данные берет из другого файла

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Dim conn As Object, rs As Object, xlApp As Object, xlWb As Object, xlSh As Object, rst As Object
    Set conn = CreateObject("adodb.connection")
    Set rst = CreateObject("adodb.recordset")
    
    With conn
        .Provider = "Microsoft.jet.OLEDB.4.0"
        .ConnectionString = "Data Source='c:\railtrack\SaveFilesReport.mdb';Persist Security Info=False"
        .Open
    End With
 
    sSQL = "SELECT ra.trk_file FROM Reports_AVA_check"
    rst.Open sSQL, conn
    
    'With rst
    '    Set .ActiveConnection = conn
    '    .CursorType = adOpenStatic
    '    .Source = sSQL
    '    .Open
    'End With
    
    If Not rst.EOF Then
        Debug.Print "NOT EOF"
    End If
в результате такого простейшего запроса resultset ничего не возвращает (EOF = True и в цикл не заходит), раньше у меня такого не было.

Пробовал еще и так
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Dim conn As Object, rs As Object, xlApp As Object, xlWb As Object, xlSh As Object, rst As Object
    Set conn = CreateObject("adodb.connection")
    Set rst = CreateObject("adodb.recordset")
    
    With conn
        .Provider = "Microsoft.jet.OLEDB.4.0"
        .ConnectionString = "Data Source='c:\railtrack\SaveFilesReport.mdb';Persist Security Info=False"
        .Open
    End With
 
    sSQL = "SELECT ra.trk_file FROM Reports_AVA_check"
    rst.Open sSQL, conn
    
    'With rst
    '    Set .ActiveConnection = conn
    '    .CursorType = adOpenStatic
    '    .Source = sSQL
    '    .Open
    'End With
    
    If Not rst.EOF Then
        Debug.Print "NOT EOF"
    End If
Данные по запросу возвращаются, проверял на той базе, к которому подключаюсь, создав отдельный запрос.

В чем может быть причина? Спасибо заранее.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.12.2015, 04:40
Ответы с готовыми решениями:

Как вернуть в запросе значение по умолчанию, если SELECT возвращает NULL или ничего не возвращает?
Добрый день! Например я хочу чтобы донное выражение возвращало мне 0 или скажем 1, если результатом выражения rating вернется NULL: ...

Json_decode ничего не возвращает
Всем привет! Есть json такого вида:...

Функция не возвращает ничего
Накидал код по ходьбе из консоли по папкам import os, sys from pathlib import Path class clear: def __call__(self): ...

8
4089 / 1469 / 401
Регистрация: 07.08.2013
Сообщений: 3,671
23.12.2015, 06:49
Visual Basic
1
2
sSQL = "SELECT ra.trk_file FROM Reports_AVA_check as ra"
rst.Open sSQL, conn,3,3
0
0 / 0 / 0
Регистрация: 22.12.2015
Сообщений: 19
23.12.2015, 06:54  [ТС]
Не помогло. Подумал может ";" в конце запроса не хватает, но безрезультатно
0
4089 / 1469 / 401
Регистрация: 07.08.2013
Сообщений: 3,671
23.12.2015, 06:56
Цитата Сообщение от snipe Посмотреть сообщение
ra.trk_file
вот это явно не правильно
0
0 / 0 / 0
Регистрация: 22.12.2015
Сообщений: 19
23.12.2015, 07:35  [ТС]
А в чем некорректность конструкции? Стандартное объявление переменной таблицы. В любом случае я попробовал так тоже, снова нет результата

Visual Basic
1
      sSQL = "SELECT Wagon, trk_file FROM Reports_AVA_check;"
0
Заблокирован
23.12.2015, 07:56
Цитата Сообщение от snipe Посмотреть сообщение
ra.trk_file
Могу лишь предположить, что это некая переменная, имя которой для запроса ничего не говорит.
М.б. так будет правильнее -
Visual Basic
1
sSQL = "SELECT Wagon, " & ra.trk_file & " FROM Reports_AVA_check;"
?
0
0 / 0 / 0
Регистрация: 22.12.2015
Сообщений: 19
23.12.2015, 08:08  [ТС]
Нет, trk_file - это одно из полей таблицы Report_AVA_check. Также как и Wagon. Я уже упростил запрос проще некуда, без определения переменной)
0
Эксперт MS Access
26826 / 14506 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
23.12.2015, 16:16
true_revenant, попробуйте подключиться с DAO
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub daoacs()
    Dim app As String, dbe As Object, db As Object, rst As Object
    app = "c:\railtrack\SaveFilesReport.mdb"
    Set dbe = CreateObject("DAO.PrivateDBEngine.36")
    Set db = dbe.OpenDatabase(app, False)
    Set rst = db.openrecordset("SELECT * FROM Reports_AVA_check as ra")
    Debug.Print rst.BOF, rst.EOF
    Do Until rst.EOF
        Debug.Print rst(0).Name, rst(0)
        rst.movenext
    Loop
End Sub
1
0 / 0 / 0
Регистрация: 22.12.2015
Сообщений: 19
11.02.2016, 13:27  [ТС]
Извиняюсь за долгий ответ! Спасибо, помогло)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
11.02.2016, 13:27
Помогаю со студенческими работами здесь

Кэш ничего не возвращает
При включении у компонента автокэширования, кэш ничего не возвращает. В чем может быть проблема?

Select возвращает ничего
Есть таблица , в нем есть записи не знаю какой кодировкой ( я конвертировал эти таблицы с MS ACCESS). Когда делаю SELECT * FROM...

ExecuteScalar() ничего не возвращает.
У меня вопрос. Почему ExecuteScalar() ничего не возвращает. Некоторые меня узнали по теме SQLServer. В контексте это выглядит так: ...

CURL ничего не возвращает
Добрый день. Задача стоит следующая - собрать номера телефонов на небезызвестной доске. Посмотрел, что там да как устроено, набросал...

Запрос с LIKE ничего не возвращает
Доброго времени суток. есть след код SQLiteCommand comd = DBConnection.DB.CreateCommand(); ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru