Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как записать масив в таблицу / 4 сообщений из 4, страница 1 из 1
29.04.2004, 20:32
    #32503501
Valerik
Valerik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как записать масив в таблицу
Как считать таблицу в масив понятно, тперь нужно записать полученный результат т.е. массив в таблицу..
Как это сделать ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2004, 01:30
    #32503596
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как записать масив в таблицу
Скучно и тоскливо. Через recordset.
загоняем поле из таблицы в массив и добавляем обратно в нее же.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Dim rst As DAO.Recordset
Dim arrMy
Dim i As Integer

Set rst = CurrentDb.OpenRecordset("select f1 from t1;")
rst.MoveLast
rst.MoveFirst
arrMy = rst.GetRows(rst.RecordCount)
With rst
Dim i As Integer
    For i =  0  To UBound(arrMy,  2 )
    .AddNew
    !f1 = arrMy( 0 , i)
    .Update
    Next
End With
rst.Close
Set rst = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2004, 05:36
    #32503633
Valerik
Valerik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как записать масив в таблицу
Нет сохраняю я не в туже таблицу мне нужно сохранить в другую таблицу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2004, 06:03
    #32503636
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как записать масив в таблицу
Это же пример. Открываем recordset c другой таблицей и делаем такой же цикл по массиву. Показываю принцип, а не конкретное решение, надо же и спрашивающему немного поразмыслить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как записать масив в таблицу / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 529ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1674913]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 212ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 238ms
total:  529ms
x
x
Закрыть


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