Создание таблицы из запроса SQL

[starpiv]

Я хочу получить таблицу из запроса. Сам запрос работает нормально, но почему-то записывается ОДНА запись из запроса вместо 30! Почему?

Код: Выделить всё


Dim recset_temp As Recordset
Dim arr_temp As Variant
Set recset_temp = dbsNorthwind.OpenRecordset("SELECT * FROM words", dbOpenSnapshot, dbReadOnly)
arr_temp = recset_temp.GetRows(recset_temp.RecordCount)


[GSerg]

Потребовалось, однако, некоторое время, чтобы постичь тот невероятный факт, что под словом "таблица" автор понимает массив...

А не надо передавать в метод GetRows() параметры, смысл которых не совсем понимаешь. Он и без параметров работает.

[starpiv]

Потребовалось, однако, некоторое время, чтобы постичь тот невероятный факт, что под словом "таблица" автор понимает массив...

Ну извини, не силён я в терминологии...я же чайник в VBA..э
А чем отличается массив от таблицы?

А не надо передавать в метод GetRows() параметры, смысл которых не совсем понимаешь. Он и без параметров работает.

т.е. так:

Код: Выделить всё


Set recset_temp = dbsNorthwind.OpenRecordset("SELECT * FROM words", dbOpenSnapshot, dbReadOnly)
arr_temp = recset_temp.GetRows()


если да, то почему-то не получилось:

arr_temp(0,0) = Null
arr_temp(1,0) = 1
А нужно
arr_temp(0,0) = "Андрей"
arr_temp(1,0) = 57
или я где-то накосячил...

[skiperski]

А почему так должно быть? У тебя есть какой-то эталонный массив с которым ты сравниваешь? Или ты смотришь прямо в таблице БД? Так там записи отсортированы.

Наиболее вероятные ошибки:
Не указана сортировка -- раз, не исключены значения NULL -- два.

[starpiv]

Я попробовал написать число и получилось:

arr_temp = recset_temp.GetRows(20)

А как написать вместо этого числа выражение, означающее количество записей, после выполнения запроса?

[kibernetics]

Код: Выделить всё

arr_temp = recset_temp.RecordsCount

[GSerg]

kibernetics, прочитай топик с первого поста.