ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с циклом
10 сообщений из 10, страница 1 из 1
Помогите с циклом
    #36023970
Andrey999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey999
Участник
Совсем запутался ПОМОГИТЕ надо перебрать все записи поля 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
...
Рейтинг: 0 / 0
03.06.2009, 16:16
| Ответить | Цитировать | Написать  
Помогите с циклом
    #36023995
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Ниче не понял. А в цикле то что? Цикл - это то что между Do и Loop
...
Рейтинг: 0 / 0
03.06.2009, 16:27
| Ответить | Цитировать | Написать  
Помогите с циклом
    #36024366
Andrey999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey999
Участник
Я тоже не пойму, мне надо построчно считать в переменную все данные из поля Names
...
Рейтинг: 0 / 0
03.06.2009, 19:01
| Ответить | Цитировать | Написать  
Помогите с циклом
    #36024384
Andrey999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey999
Участник
Так чтоли

Adodc1.Recordset.MoveFirst

For i = 0 to Adodc1.Recordset.Count - 1

AA = Adodc1.Recordset("Names")

После присвоения AA тут будут действия

Adodc1.Recordset.MoveNext

Next
...
Рейтинг: 0 / 0
03.06.2009, 19:13
| Ответить | Цитировать | Написать  
Помогите с циклом
    #36024495
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Andrey999,

А зачем спрашивать, если можно прогнать код?
...
Рейтинг: 0 / 0
03.06.2009, 21:16
| Ответить | Цитировать | Написать  
Помогите с циклом
    #36024799
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
авторТак чтоли Примерно так, но гонять цикл по рекордсету занятие мало увлекательное и может даже не нужное. Опиши задачу изначально, вероятно тебе подскажут более лучшее решение.
...
Рейтинг: 0 / 0
04.06.2009, 08:19
| Ответить | Цитировать | Написать  
Помогите с циклом
    #36024816
Andrey999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey999
Участник
Мне нужно передать все данные из поля Names в таблицу Excel
...
Рейтинг: 0 / 0
04.06.2009, 08:37
| Ответить | Цитировать | Написать  
Помогите с циклом
    #36024896
Фотография qwrqwr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwrqwr
Участник
Andrey999Мне нужно передать все данные из поля Names в таблицу Excel
Код: plaintext
1.
2.
3.
Set Adors = New ADODB.Recordset
Adors.Open "SELECT Names FROM Tabl", Adodc1, adOpenStatic, adLockReadOnly, adCmdText
ExcelApp.Workbooks( 1 ).Worksheets( 1 ).Range("A2").CopyFromRecordset Adors
Adors.Close
?
...
Рейтинг: 0 / 0
04.06.2009, 09:33
| Ответить | Цитировать | Написать  
Помогите с циклом
    #36024914
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
:) Все уже придумано до вас.
...
Рейтинг: 0 / 0
04.06.2009, 09:41
| Ответить | Цитировать | Написать  
Помогите с циклом
    #36025015
Andrey999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey999
Участник
Я не пойму как ее использовать. Если просто так как есть то оно не работает ОШИБКА 3001 Аргументы имеют неверный тип
...
Рейтинг: 0 / 0
04.06.2009, 10:25
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с циклом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2160890]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 52ms
get topic data:
 7ms
get first new msg:
 5ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 201ms
total:  326ms
созд. / загр.: 326ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]