Форум программистов, компьютерный форум, киберфорум
Visual Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Социальные группы Поиск Сообщения за день Заказать работу  
 
Рейтинг 4.93/40: Рейтинг темы: голосов - 40, средняя оценка - 4.93
0 / 0 / 1
Регистрация: 18.07.2013
Сообщений: 67

RecordCount возвращает -1

22.08.2013, 07:25. Показов 7845. Ответов 10
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Доброго дня!
И раньше сталкивался с таким но не найдя ничего в гугле делал по другому.

Вот опять такое всплыло: rs.RecordCount возвращает -1

Visual Basic
1
2
3

  strsql = " ***"
        Set rs = cn.Execute(strsql)
        Frequency_NEW = Round((rs.RecordCount / rs.Fields("Cycle")), 1)
Запускаю отладку по шагам:
Запрос нормальный. Смотрю значение strsql в immediate, проверяю его на sql servere, все норм.
Делаю exexute. Смотрю rs в immediate он заполнен.
Смотрю rs.RecordCount а он -1.

Кто-нить сталкивался с подобным?

(запрос тут писать не стал потому что он большой, но рабочий точно)

Добавлено через 7 минут
Из окна immediate:
?rs.Fields("Cycle")
2
?rs.RecordCount
-1
0
Лучшие ответы (1)
Сообщение: #4973710
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 22.08.2013, 07:25
Ответы с готовыми решениями:

Вопрос по Recordset.RecordCount
В книге написано, что значение RecordCount RecordSet-а при некоторых 'типах курсора' (не знаю, как это по-русски, документация немецкая),...

Проблемы с свойством RecordCount элемента Data (VB 6.0)
Используется Access'овская база. Data1.Recordset.RecordCount в начале выполнения программы выдаёт 1, а через некоторое времени, даже если...

Особенности использования свойства RecordCount с объектом ADO
Люди добрые, подскажите при каких настройках корректно работает RecordCount, MoveLast, AbsolutePosition, при использовании ADO

10
Заблокирован
22.08.2013, 07:53
Visual Basic
1
2
3
4
5

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SQL запрос", conn, adOpenDynamic, adLockBatchOptimistic
msgbox rs.RecordCount
Set rs = Nothing
1
0 / 0 / 1
Регистрация: 18.07.2013
Сообщений: 67
22.08.2013, 08:28  [ТС]
Цитата Сообщение от inv.DS Посмотреть сообщение
Visual Basic
1
2
3
4
5

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SQL запрос", conn, adOpenDynamic, adLockBatchOptimistic
msgbox rs.RecordCount
Set rs = Nothing
Спасибо в очередной раз)
CursorLocation помог.
Можешь объяснить в чем функционал этого свойства?
0
Заблокирован
22.08.2013, 08:46
Читал давно не могу вспомнить.
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38171 / 21106 / 4307
Регистрация: 12.02.2012
Сообщений: 34,699
Записей в блоге: 14
22.08.2013, 09:52
recordCount обычно не нужен... Чтобы обработать все записи рекордсета последовательно, можно применить такой код:

Visual Basic
1
2
3
4

Do While Not rs.EOF
    ' обработка текущей записи
    rs.MoveNext
Loop
Для чего еще может быть нужен recordCount?
0
Заблокирован
22.08.2013, 11:17
Лучший ответ Сообщение было отмечено The trick как решение

Решение

На будущие:

RecordCount возвращает -1
Означает, что позиция набора записей не сдвигается с 1 строчки, то есть создав набор данных из базы данных мы не двигаемся ни вперед ни назад, а стоим на 0 позиции.
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38171 / 21106 / 4307
Регистрация: 12.02.2012
Сообщений: 34,699
Записей в блоге: 14
22.08.2013, 12:29
Цитата Сообщение от inv.DS Посмотреть сообщение
Означает, что позиция набора записей не сдвигается с 1 строчки, то есть создав набор данных из базы данных мы не двигаемся ни вперед ни назад, а стоим на 0 позиции.
- где это написано?
0
Заблокирован
22.08.2013, 17:02
Catstail, MSDN (c)
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38171 / 21106 / 4307
Регистрация: 12.02.2012
Сообщений: 34,699
Записей в блоге: 14
22.08.2013, 17:07
Цитата Сообщение от inv.DS Посмотреть сообщение
MSDN
- то-то я смотрю, что фраза не вполне русская... Статьи из MSDN переводятся программно. Поэтому и получается фигня: "создав набор данных из базы данных мы не двигаемся ни вперед ни назад, а стоим на 0 позиции". А зачем такой набор создавать? Ведь глупость!
0
Заблокирован
22.08.2013, 17:31
Catstail, Не я писал не я источник. Не могу объяснить, базы учил по Интернету, и по большому счету с буржуйских сайтов, где сам переводил, где Google переводчик.
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38171 / 21106 / 4307
Регистрация: 12.02.2012
Сообщений: 34,699
Записей в блоге: 14
22.08.2013, 17:45
Я без претензий... Вот хорошее руководство по ADO на литературном русском
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 22.08.2013, 17:45
Помогаю со студенческими работами здесь

Помогите по SQL код здесь, recordcount неправильно выдает?
Надо найти сколько одинаковых данных cret = recset.Fields(0).Name + '='' & Trim(recset.Fields(0).Value) & ''' Set tb1 =...

RecordCount возвращает 1
Ситуация такова, делаю тест с бд access, хочу сделал так что перед началом прохождения в событии OnShow записываю в переменную количество...

MyRecordset.RecordCount ВОЗВРАЩАЕТ -1?!!
Хочу получить количество записей в recordSet'e, а это свойство выдает -1 В чем грабли?

RecordCount возвращает значение -1
помогите справится с этим куском, RecordCount возвращает значение -1, как такое может быть? <% Set db =...

Св-во RecordCount объекта RecordSet возвращает -1
??? почему... хотя в RecordSet на самом деле есть записи... может как-то по другому надо определять колличество записей RecordSet?


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

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru