Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с циклом / 10 сообщений из 10, страница 1 из 1
03.06.2009, 16:16
    #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:27
    #36023995
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с циклом
Ниче не понял. А в цикле то что? Цикл - это то что между Do и Loop
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2009, 19:01
    #36024366
Andrey999
Andrey999
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с циклом
Я тоже не пойму, мне надо построчно считать в переменную все данные из поля Names
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2009, 19:13
    #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, 21:16
    #36024495
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с циклом
Andrey999,

А зачем спрашивать, если можно прогнать код?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2009, 08:19
    #36024799
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с циклом
авторТак чтоли Примерно так, но гонять цикл по рекордсету занятие мало увлекательное и может даже не нужное. Опиши задачу изначально, вероятно тебе подскажут более лучшее решение.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2009, 08:37
    #36024816
Andrey999
Andrey999
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с циклом
Мне нужно передать все данные из поля Names в таблицу Excel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2009, 09:33
    #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:41
    #36024914
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с циклом
:) Все уже придумано до вас.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2009, 10:25
    #36025015
Andrey999
Andrey999
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с циклом
Я не пойму как ее использовать. Если просто так как есть то оно не работает ОШИБКА 3001 Аргументы имеют неверный тип
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с циклом / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 361ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2160890]:
 0ms
get settings:
 11ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 31ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 227ms
total:  361ms
x
x
Закрыть


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