КайратShamanus,
Вы меня не правильно поняли. Реализовать проверку пароля и логина через БД я могу. Приведённый код просто для примера. У меня в БД имеются только числовые данные (тип double). Мне необходимо обработать эти данные по методу множественной регресии(но это уже другой вопрос). И чтоб мне их обработать я хочу переписать данные из таблицы БД в двумерный массив для дальнейшей обработки. Пока что мне необходимо реализовать именно это, а дальше видно будет.
ну если Вы уверены что знаете то что Вам нужно то вот код функции
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
'----------------------------------------------------------------------------------------------------------------------------
'Данная функция читает в массив содержимое запроса или таблицы в некой access базе
'размерность массива не имеет значения, функция удаляет массив и переобъявляет размерность в соответствии с размером базы
'Массив 2х мерный даже если размер второго измерения 1, начало массива 1(а не 0, как по умолчанию).
'Для использования функции должен быть объявлен массив куда писать, 2ая переменная типа текст - путь к базе,
'3я переменная название запроса
' в случае успешного выполнения функция принимает значение TRUE
'----------------------------------------------------------------------------------------------------------------------------
Public Function ReadInArray(ByRef InArr() As Variant, ByVal paTH, QueryName As String) As Boolean
Dim X As Long
Dim db As DAO.Database
Dim rs As DAO.Recordset
ReadInArray = False
On Error GoTo endt
'открываем рекордсет и базу данных
Set db = DAO.OpenDatabase(paTH, , yes)
Set rs = db.OpenRecordset(QueryName)
' стираем массив для записи запроса
Erase InArr
'считаем размер массива
' rs.RecordCount не работает для запросов, тольк для таблиц
'X = 0
'Do While Not rs.EOF
'X = X + 1
'rs.MoveNext
'Loop
' переобъявляем массив
ReDim InArr( 1 To rs.RecordCount, 1 To rs.Fields.Count) As Variant
' записываем массив
'rs.MoveFirst
X = 0
Do While Not rs.EOF
X = X + 1
For I = 0 To rs.Fields.Count - 1
InArr(X, I + 1 ) = rs.Fields(I)
Next I
rs.MoveNext
Loop
ReadInArray = True
'Закрываем рекордсет и базу данных
rs.Close
db.Close
'Освобождаем память
Set rs = Nothing
Set db = Nothing
endt:
End Function
важный момент, если чтение происходит не из таблицы, а из запроса то rs.RecordCount вернет 0. Тогда придется считать количество записей перебором. Эта часть кода сейчас неактивная.
строки с
X = 0 по Loop
и строка rs.MoveFirst
соответственно нужно будет изменить переобъявление размерности массива
с
ReDim InArr( 1 To rs.RecordCount, 1 To rs.Fields.Count) As Variant
на
ReDim InArr( 1 To X, 1 To rs.Fields.Count) As Variant
из этого кода нельзя узнать заголовки полей
заголовок возвращает функция rs.fielsds(i).Name
