Перейти к содержанию
СофтФорум - всё о компьютерах и не только

VBA in Access


Рекомендуемые сообщения

Здраствуйте начал работу с аксесом еговнутренними средствами работает вроди нормально только вот одна неувязочка с массивами не хочет работать пишу следующий

Dim arr1() As String

Sub intel()

Dim db As Database

Dim rs As Recordset

Dim qd As QueryDef

Dim str As String

Dim i As Integer

i = 0

Set db = OpenDatabase("razborka.mdb")

str = "SELECT Выделено FROM [ТЭ-1-1_Выбрка_СтТовар]GROUP BY Выделено"

Set qd = db.QueryDefs("test")

qd.SQL = str

Set rs = qd.OpenRecordset(dbOpenDynaset)

rs.MoveFirst

Do

ReDim arr1(i)

arr1(i) = rs.Fields(0).Value

MsgBox arr1(i) '- здесь текст нормалньо выводиться

rs.MoveNext

i = i + 1

Loop While Not rs.EOF

MsgBox arr1(5) '- выводиться пустая строка

End Sub

Провел также один експеримент и выяснилось что такая вещь получаеться из-за использование ReDim arr1(i) в цыкле, почему такслучаеться

Изменено пользователем Delphi
Ссылка на комментарий
Поделиться на другие сайты

Redim очищает масив. Останется только последнее значение.

Вставь перед "Do"

rs.MoveLastReDim arr1(rs.RecordCount)rs.MoveFirst
Ссылка на комментарий
Поделиться на другие сайты

Ясно

Такой ещё вопрос у меня есть бд, также есть модуль на ВБА в нем запросы работают но одно но есть такая строка

Set db = OpenDatabase("C:\razborka.mdb")

и с недавнего времени начало выдавать сообщение что база данных уже используеться в связи с этим вопрос как мне указать чтобы база данных не открывалась а использовалась уже открытая

Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...