ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема с циклом
21 сообщений из 21, страница 1 из 1
Проблема с циклом
    #32404258
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Dim TempOrder1 As DAO.RecordSet
Dim TempOrder2 As DAO.RecordSet
Dim TblOrder As DAO.RecordSet

Set TempOrder1 = CurrentDb.OpenRecordset( "__TEMP_order" )
Set TempOrder2 = CurrentDb.OpenRecordset( "temp_order" )

TempOrder1.MoveFirst
TempOrder2.MoveFirst
    For i =  0  To TempOrder1.Fields.Count -  1 
        If TempOrder1.Fields(i) <> TempOrder2.Fields(i) Then
            With TempOrder1
                .Edit
                    .Fields(i) = TempOrder2.Fields(i)
                .Update
            End With
    Set TblOrder = CurrentDb.OpenRecordset( "select * from orders where operid = '" & TempOrder1!OperId & "'" )
            With TblOrder
                .Edit
                    .Fields(i) = TempOrder1.Fields(i)
                .Update
                .Close
            End With
        End If
    Next

В этих рекордсетах содержится только одна запись.
Заведомо известно, что TempOrder1.Fields(6) <> TempOrder2.Fields(6). Однако при выполнении программа проскакивает участок кода, связанный с условием IF.
Пробовал пошагово выполнять цикл. Программа видит, что TempOrder1.Fields(6) <> TempOrder2.Fields(6).
...
Рейтинг: 0 / 0
10.02.2004, 14:42
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404261
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
А вот это
Код: plaintext
1.
TempOrder1.MoveFirst
TempOrder2.MoveFirst

зачем?
...
Рейтинг: 0 / 0
10.02.2004, 14:44
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404264
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
На всякий пожарный...
...
Рейтинг: 0 / 0
10.02.2004, 14:45
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404273
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
>На всякий пожарный...
При возникновении какой-либо ошибки в рекордсет могут попасть более чем одна запись. Но я уверен, что первая запись будет верной.
...
Рейтинг: 0 / 0
10.02.2004, 14:49
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404278
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Может, одно из этих значений Null? Тогда любая проверка будет давать False.
...
Рейтинг: 0 / 0
10.02.2004, 14:50
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404281
Фотография Polev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Polev
Участник
А чему равны?
Как насчет
msgbox TempOrder1.Fields(6) & "-" & TempOrder2.Fields(6)
...
Рейтинг: 0 / 0
10.02.2004, 14:51
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404288
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Саныч - голова!
TempOrder1.Fields(6)=Null
Как мне тогда осуществлять эту проверку?
...
Рейтинг: 0 / 0
10.02.2004, 14:53
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404289
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Кстати, насчет MoveFirst.
1. Если есть больше, чем одна запись, то OpenRecordset все равно становится на первую.
2. Первая запись при незаданной сортировке - это неизвестно какая.
...
Рейтинг: 0 / 0
10.02.2004, 14:53
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404293
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Попробуй так:

Код: plaintext
TempOrder1(i) <> TempOrder2(i)
...
Рейтинг: 0 / 0
10.02.2004, 14:54
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404294
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
select case true
case a=b, isnull(a) and isnull(b)
case else
'а тут то, что дожно исполниться в случае a<>b
end select
...
Рейтинг: 0 / 0
10.02.2004, 14:55
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404296
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
2 Vsevolod V
Раньше инсерты писал на рекордсетах - теперь апдейты - ну-ну:)
...
Рейтинг: 0 / 0
10.02.2004, 14:56
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404298
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Kelme
Это тоже самое
...
Рейтинг: 0 / 0
10.02.2004, 14:56
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404300
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Hummer
Прогресс на лицо! (или регресс?) ^^
...
Рейтинг: 0 / 0
10.02.2004, 14:57
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404305
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
2 Vsevolod V
No comments.
...
Рейтинг: 0 / 0
10.02.2004, 14:59
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404318
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
For i =  0  To TempOrder1.Fields.Count -  1 
        Select Case True
            Case TempOrder1.Fields(i) = TempOrder2.Fields(i), IsNull(TempOrder1.Fields(i)) And IsNull(TempOrder2.Fields(i))
            Case Else
                With TempOrder1
                    .Edit
                        .Fields(i) = TempOrder2.Fields(i)
                    .Update
                End With
        Set TblOrder = CurrentDb.OpenRecordset( "select * from orders where operid = '" & TempOrder1!OperId & "'" )
                With TblOrder
                    .Edit
                        .Fields(i) = TempOrder1.Fields(i)
                    .Update
                    .Close
                End With
        End Select
    Next

Invalid use of NULL
...
Рейтинг: 0 / 0
10.02.2004, 15:04
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404332
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Код: plaintext
Case TempOrder1.Fields(i) = TempOrder2.Fields(i), IsNull(TempOrder1.Fields(i)) And IsNull(TempOrder2.Fields(i))


Конечно, а если только одно из полей IsNull, тогда это условие пролетает
...
Рейтинг: 0 / 0
10.02.2004, 15:09
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404344
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
2 Vsevolod V
Можно без Case, а с помощью функции Nz.

Nz(TempOrder1.Fields(i),0) - вернёт 0, если поле NULL.
...
Рейтинг: 0 / 0
10.02.2004, 15:13
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404354
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Hummer
А ведь ты прав!
---
Всем спасибо.
...
Рейтинг: 0 / 0
10.02.2004, 15:16
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404361
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
2 Vsevolod V
:)
Запросы изучи - быстрее будет:)
...
Рейтинг: 0 / 0
10.02.2004, 15:19
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404365
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Kelmeесли только одно из полей IsNull, тогда это условие пролетает
Что и требуется. Программа идет обрабатывать случай "не равно".

2 Vsevolod V:
Пользоваться nz опасно. Оно вернет True, даже если одно из значений 0, а другое Null.
...
Рейтинг: 0 / 0
10.02.2004, 15:19
| Ответить | Цитировать | Написать  
Проблема с циклом
    #32404374
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Я тоже об этом подумал и сделал так:
Nz(TempOrder1.Fields(i),рр)
...
Рейтинг: 0 / 0
10.02.2004, 15:23
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема с циклом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1683&tid=1676733]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 202ms
total:  319ms
созд. / загр.: 319ms
x
x
Закрыть


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