ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как узнать число записей в массиве?
25 сообщений из 45, страница 1 из 2
  1  все
Как узнать число записей в массиве?
    #32338101
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
    Dim r As DAO.RecordSet
    Set r = Me.RecordsetClone
    Dim i As Long
    Dim j As Long
    ReDim OldValue( 1  To  2 ,  0  To r.Fields.Count,  0  To r.RecordCount) As Variant
    r.Bookmark = Me.Bookmark
    r.MoveFirst
    
    For j =  0  To r.RecordCount -  1 
        For i =  0  To r.Fields.Count -  1 
            OldValue( 1 , i, j) = r.Fields(i).Name
            OldValue( 2 , i, j) = r.Fields(i).Value
        Next i
    r.MoveNext
    Next j
    Debug.Print OldValue.Count ' Нужно что-нибудь в роде этого :)
...
Рейтинг: 0 / 0
28.11.2003, 17:17
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338113
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Ubound(OldValue)
...
Рейтинг: 0 / 0
28.11.2003, 17:25
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338119
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Ubound(OldValue) что это такое?
Эта штука все время возвращает число 2, а строк 10
...
Рейтинг: 0 / 0
28.11.2003, 17:29
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338130
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Ubound(OldValue,2) или Ubound(OldValue,3)

В хелпе трудно глянуть что-ли?
...
Рейтинг: 0 / 0
28.11.2003, 17:37
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338138
amel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
amel
Участник
У тебя OldValue 3-х мерный массив, так и Ubound нужно показывать ту колонку которая max, т.е. что-то такое Ubound(OldValue(,,0)) .....
...
Рейтинг: 0 / 0
28.11.2003, 17:45
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338139
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Спасибо, разобрался.
...
Рейтинг: 0 / 0
28.11.2003, 17:46
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338147
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Ну и чтобы совсем хорошо было
Код: plaintext
UBound(...) - LBound(...)

а то башка снег попадет совсем дохлый будешь.
...
Рейтинг: 0 / 0
28.11.2003, 17:52
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338149
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
А как узнать порядковый номер (в рекордсете) удаляемой из рекордсета записи?
...
Рейтинг: 0 / 0
28.11.2003, 17:53
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338213
Фотография Pavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel
Участник
А зачем? Она же удаляется!
...
Рейтинг: 0 / 0
28.11.2003, 19:09
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338496
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
А зачем? Она же удаляется!
Надо.
В массиве, указанном выше, хранятся все записи рекордсета. При удалении записи из рекордсета логично было бы удалить ее и из массива.
...
Рейтинг: 0 / 0
29.11.2003, 18:20
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338497
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Код: plaintext
rst.AbsolutePosition -  1



RTFM
...
Рейтинг: 0 / 0
29.11.2003, 18:41
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338499
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Спасибо.
...
Рейтинг: 0 / 0
29.11.2003, 18:45
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338502
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Пожалуйста :)
...
Рейтинг: 0 / 0
29.11.2003, 18:51
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338529
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Нужно создать массив, который будет заполняться удаляемыми из рекордсета записями. Вот так выглядит код для одной удаляемой записи. Но, если будут удаляться несколько записей, то в массиве сохранится только последняя. Возможно ли добавлять записи в такой массив?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Form_Delete(Cancel As Integer)
    Dim r As DAO.Recordset
    Set r = Me.RecordsetClone
    Dim i As Long
    Dim j As Long
    
    r.Bookmark = Me.Bookmark
        j = r.AbsolutePosition
        For i =  0  To r.Fields.Count -  1 
            DelValue( 1 , i, j) = r.Fields(i).Name
            DelValue( 2 , i, j) = r.Fields(i).Value
        Next i
 
    r.Close
End Sub
...
Рейтинг: 0 / 0
29.11.2003, 21:58
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338536
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Это сказал Всеволод
> Но, если будут удаляться несколько записей, то в массиве сохранится только последняя.

А вот что говорит help:
>При одновременном удалении нескольких записей событие Удаление возникает
>после удаления каждой записи. Это позволяет получить доступ к данным в
>каждой записи перед ее фактическим удалением и выборочно подтверждать или
>отменять удаление каждой из записей в макросе или процедуре обработки
>события Удаление.

Отсюда вопрос: неужели трудно нажать F1?
...
Рейтинг: 0 / 0
29.11.2003, 22:12
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338557
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Geo
Я это и сам знаю без хелпа! Я вообще не понял, что ты хотел показать своей репликой???... Ты вопрос то не забыл прочитать а?
---
Повторяю:
Возможно ли добавлять записи в такой массив?
Поясняю:
Так как при одновременном удалении нескольких записей событие Удаление возникает после удаления каждой записи , то предложенный мною код не накапливает данные в массиве, а сохраняет только последнюю из них
...
Рейтинг: 0 / 0
29.11.2003, 22:54
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338558
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Чтобы в массив можно было добавлять, надо пользоваться ReDim.
...
Рейтинг: 0 / 0
29.11.2003, 22:56
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338561
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуф-нуф
Участник
Всеволод, ты, ИМХО, сам запутался и распутывать нет ни сил, ни желания :(
Ты же сам сказал, что знаешь, что процедура будет вызываться для каждой удаленной строки, так какая разница, будет ли она вызываться при удалении лишь одной записи или при удалении сразу всех?

На несколько "ляпов" в данном коде могу указать:

1. Массив трех размерностей здесь не нужен. Достаточно двух: DelValue(Строка, Поле). И вообще не понятно, что ты хотел сказать циферками 1 и 2 в первой размерности;
2. Позицию записи (r.AbsolutePosition) нельзя указывать в качестве индекса массива. Представь, что первая удаляемая запись будет расположена в самом конце 100 000 набора записей. У тебя что, будет выделен ПУСТОЙ массив на 100000 записей, чтобы сохранить данные в стотысячную строку массива? Система загнется... Позицию записи (если она вообще имеет смысл, в чем я сомневаюсь) следует сохранять так же в массиве, а индекс массива формировать на базе счетчика - значение счетчика равно количеству удаленных записей + 1;
3. Перебор полей лучше осуществлять через For ... Each ...;
4. Массив должен быть динамическим и при каждом добавлении в него строк должен быть изменен его размер через ReDim Preserv ...
5. Нафик ты открываешь и закрываешь клон набора записей, если вполне можешь использовать оригинал?;
6. А я пошел спать...
...
Рейтинг: 0 / 0
29.11.2003, 23:09
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338562
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
ReDim есть - просто здесь его забыл.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub Form_Delete(Cancel As Integer)
    Dim r As DAO.Recordset
    Set r = Me.RecordsetClone
    Dim i As Long
    Dim j As Long
    ReDim DelValue( 1  To  2 ,  0  To r.Fields.Count,  0  To r.RecordCount) As Variant
    r.Bookmark = Me.Bookmark
    r.MoveFirst
    
    j = r.AbsolutePosition
        For i =  0  To r.Fields.Count -  1 
            DelValue( 1 , i, j) = r.Fields(i).Name
            DelValue( 2 , i, j) = r.Fields(i).Value
        Next i

    r.Close
End Sub

Всеволод, ты, ИМХО, сам запутался и распутывать нет ни сил, ни желания :(
Я ни в чем не запутался и четко знаю, что мне нужно. И если бы не было не сил ни желания, то я бы сейчас пиво пил.

что ты хотел сказать циферками 1 и 2 в первой размерности;
Код: plaintext
1.
OldValue( 1 , i, j) = r.Fields(i).Name
OldValue( 2 , i, j) = r.Fields(i).Value

циферка 1 - это идентификатор имени поля
циферка 2 - его значения

Позицию записи (если она вообще имеет смысл, в чем я сомневаюсь) следует сохранять так же в массиве, а индекс массива формировать на базе счетчика - значение счетчика равно количеству удаленных записей + 1;
Смысл имеет.
Как мне узнать количество удаляемых записей?
...
Рейтинг: 0 / 0
29.11.2003, 23:23
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338563
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
автор писал:ReDim DelValue(1 To 2, 0 To r.Fields.Count, 0 To r.RecordCount) As Variant
1. Без волшебного слова Preserve старые значения будут стираться.
2. RecordCount - это не то, потому что по мере удаления записей оно будет уменьшаться, а массив должен расти.
3. r.Fields.Count - наверно, все-таки r.Fields.Count-1.
...
Рейтинг: 0 / 0
29.11.2003, 23:31
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338564
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
автор писал:Как мне узнать количество удаляемых записей?
Из хелпа, процитированного Geo, следует, что при каждом входе в обработчик события такая запись одна.
...
Рейтинг: 0 / 0
29.11.2003, 23:33
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338565
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub Form_Delete(Cancel As Integer)
    Dim r As DAO.Recordset
    Set r = Me.RecordsetClone
    Dim i As Long
    Dim j As Long
    ReDim Preserve DelValue( 1  To  2 ,  0  To r.Fields.Count -  1 ,  0  To  10 ) As Variant
    r.Bookmark = Me.Bookmark
    r.MoveFirst
    
    j = r.AbsolutePosition
        For i =  0  To r.Fields.Count -  1 
            DelValue( 1 , i, j) = r.Fields(i).Name
            DelValue( 2 , i, j) = r.Fields(i).Value
        Next i

    r.Close
End Sub

Удаляю две записи. После отработки кода в массиве только первая.

И, кстати, я так и не понял что использовать вместо r.AbsolutePosition?
...
Рейтинг: 0 / 0
29.11.2003, 23:42
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338572
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
r.MoveFirst - это опечатка :) -->> после удаления двух записей в массиве сохраняется только последняя.
r.Close тоже убрал :)
...
Рейтинг: 0 / 0
30.11.2003, 00:14
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338575
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
автор писал:что использовать вместо r.AbsolutePosition?
UBound(DelValue, 3) + 1
...
Рейтинг: 0 / 0
30.11.2003, 00:25
| Ответить | Цитировать | Написать  
Как узнать число записей в массиве?
    #32338577
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
хм...
На сколько я понимаю UBound(DelValue, 3) это максимальное значение в массиве.
Тогда UBound(DelValue, 3) + 1 > UBound(DelValue, 3) -> Subscript out of range
...
Рейтинг: 0 / 0
30.11.2003, 00:39
| Ответить | Цитировать | Написать  
25 сообщений из 45, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как узнать число записей в массиве?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32338138&tid=1677936]:
 0ms
get settings:
 11ms
get forum list:
 22ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 81ms
get tp. blocked users:
 1ms
others: 238ms
total:  423ms
созд. / загр.: 423ms
x
x
Закрыть


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