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

@true_revenant · Регистрация: 22.12.2015

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

Всем доброго времени суток!

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

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

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

Данные по запросу возвращаются, проверял на той базе, к которому подключаюсь, создав отдельный запрос.

В чем может быть причина? Спасибо заранее.

@snipe · 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

@true_revenant · 23.12.2015, 06:54 **[ТС]**

Не помогло. Подумал может ";" в конце запроса не хватает, но безрезультатно

@snipe · 23.12.2015, 06:56

Сообщение от snipe

ra.trk_file

вот это явно не правильно

@true_revenant · 23.12.2015, 07:35 **[ТС]**

А в чем некорректность конструкции? Стандартное объявление переменной таблицы. В любом случае я попробовал так тоже, снова нет результата

Visual Basic
1
      sSQL = "SELECT Wagon, trk_file FROM Reports_AVA_check;"

Shersh · 23.12.2015, 07:56

Сообщение от snipe

ra.trk_file

Могу лишь предположить, что это некая переменная, имя которой для запроса ничего не говорит.
М.б. так будет правильнее -

Visual Basic
1
sSQL = "SELECT Wagon, " & ra.trk_file & " FROM Reports_AVA_check;"

?

@true_revenant · 23.12.2015, 08:08 **[ТС]**

Нет, trk_file - это одно из полей таблицы Report_AVA_check. Также как и Wagon. Я уже упростил запрос проще некуда, без определения переменной)

mobile · 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

@true_revenant · 11.02.2016, 13:27 **[ТС]**

Извиняюсь за долгий ответ! Спасибо, помогло)

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни 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 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@true_revenant 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 19
	23.12.2015, 06:54 [ТС]
	Не помогло. Подумал может ";" в конце запроса не хватает, но безрезультатно 0

@true_revenant 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 19
	23.12.2015, 08:08 [ТС]
	Нет, trk_file - это одно из полей таблицы Report_AVA_check. Также как и Wagon. Я уже упростил запрос проще некуда, без определения переменной) 0

@true_revenant 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 19
	11.02.2016, 13:27 [ТС]
	Извиняюсь за долгий ответ! Спасибо, помогло) 0