| Вопрос: Помогите с циклом | Добавлено: 03.06.09 16:17 |
Автор вопроса:  Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 |
|
Совсем запутался ПОМОГИТЕ надо перебрать все записи поля Names и поочереди подставить их в переменную AA
Adodc1.Recordset.MoveFirst If Adodc1.Recordset.EOF = False Then AA = Adodc1.Recordset![Names] После присвоения AA тут будут действия End If Adodc1.Recordset.MoveNext Do While Adodc1.Recordset.EOF = True Loop |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Arvitaly ICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #1 | Добавлено: 03.06.09 16:27 |
| чего эт у тебя цикл идет под самой программой | ||
|
Номер ответа: 2 Автор ответа: AstonICQ: 214-179-991 Вопросов: 42 Ответов: 272 |
Профиль | | #2 | Добавлено: 03.06.09 18:18 |
|
[source]Adodc1.Recordset.MoveFirst
For i = 0 to Adodc1.Recordset.Count - 1 AA = Adodc1.Recordset("Names") После присвоения AA тут будут действия Adodc1.Recordset.MoveNext Next [/sourse] |
||
|
Номер ответа: 3 Автор ответа: AstonICQ: 214-179-991 Вопросов: 42 Ответов: 272 |
Профиль | | #3 | Добавлено: 03.06.09 18:19 |
Не так в конце прописал( |
||
|
Номер ответа: 4 Автор ответа: Andrey999ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #4 | Добавлено: 03.06.09 19:08 |
|
Спасибо завтра попробую.
Я так понял Do While Adodc1.Recordset.EOF = True - это я фигню написал |
||
|
Номер ответа: 5 Автор ответа: Imperial Kashak ICQ: 479713821 Вопросов: 10 Ответов: 57 |
Профиль | | #5 | Добавлено: 05.06.09 13:47 |
|
Do While Adodc1.Recordset.EOF = True
Это значит, как если бы делать что-то, пока конец файла )) Здесь тогда Until написать попробовать можно было бы. Хотя мне с For To больше нравится - счётчик точным будет. |
||
Страница: 1 |