Помогите разобраться с кодом

[zaf]

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


Option Explicit

Dim Zakaz(10, 200) As Variant
'_______________

Private Sub Command2_Click()
Data2.Recordset.MoveFirst 'Считываем базу данных из Access - Таблица заказчиков
            For i = 0 To 5
            For j = 0 To 5
                Zakazchik(j, i) = Text2(j).Text
                List2(j).AddItem Zakazchik(j, i)
            Next j
                Data2.Recordset.MoveNext
            Next i
End Sub

Что значат эти цифры в скобках Dim Zakaz(10, 200) As Variant и на что они влияют?

И что делает код этой кнопки
P.s. визуально вижу что происходит при нажатии, но не пойму как програмно происходит... обясните plizz

[[Zeus]]

Dim Zakaz(10, 200) As Variant - это двумерный массив, размерностью 10 на 200
Код этой кнопки заполняет массив данными из текстовых полей (Text2(j).Text) и заполняет теми же данными списки List2(j).
Тока не понятно зачем тут Data2.Recordset.MoveNext т.к. данные из БД не используются.
Data2.Recordset.MoveFirst - это установка на первый элемент в полученом списке из БД.

[Lil Alex]

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

Private Sub Command2_Click()
Data2.Recordset.MoveFirst 'Считываем базу данных из Access - Таблица заказчиков
            For i = 0 To 5
            For j = 0 To 5
                Zakazchik(j, i) = Text2(j).Text
                List2(j).AddItem Zakazchik(j, i)
            Next j
                Data2.Recordset.MoveNext
            Next i
End Sub

Идёт в самоё начало таблици
затем записываеться в ListBox заказчики, данные которых берёться из TextBox'ов
i - это лини в таблице от 0 до 5 ячеек
j - это колонки в таблице от 0 до 5 ячеек

т.е. например Zakazchik(1, 1) это первая линия, первая колонка
принимает значание которое находиться в textbox(1)
и выводит его в ListBox

а с помощью MoveNext передвигаеться на следующую записть в базе

[Zeus]

Тока не понятно зачем тут Data2.Recordset.MoveNext т.к. данные из БД не используются.

Наверное используются, но только не при клике на эту кнопу (Command2)

[zaf]

спасибо!

ВОПРОС
---
1) почему при нажатии на одну из стрелок в Data2 данные записываются в текст боксы? как он находит куда записывать?
---
2) как можно сделать чтобы нажав на кнопку данные из Access записалиь в текстБокс без той хернюшк ( Data2 )
P.S. Если с Data удобнее чем без него то на этот вопрос не отвечайте
---

Что бы я без вас делал? ( на него отвечать ненада )

[Amed]

1) свойства TextBox, начинающиеся на 'Data...'

[miwutka]

угу,
1. текстбокс привязан свойством "DataSource" к Data, поэтому бд туда и пишется
2.так проще

[zaf]

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

Data1.Recordset.MoveFirst

Do Until Data1.Recordset.EOF
    i = i + 1
Loop

Чему i будет равно?
Что значят Util и Data1.Recordset.EOF
*
Как можно узнать количество строк в таблице?

[VVitafresh]

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

Data1.Recordset.MoveFirst

Do Until Data1.Recordset.EOF
    i = i + 1
Loop

Чему i будет равно?

Бесконечности -- это бесконечный цикл. А если добавишь:

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

Data1.Recordset.MoveNext

то числу записей в таблице.

Что значят Util и Data1.Recordset.EOF

RTFM

Syntax

Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop

EOF -- returns a value that indicates whether the current record position is after the last record in a Recordset object.