ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с запросом
5 сообщений из 30, страница 2 из 2
  2  все
Помогите с запросом
    #36630843
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Shocker.Pro,
об этом не подумал))спасибо
...
Рейтинг: 0 / 0
16.05.2010, 19:06
| Ответить | Цитировать | Написать  
Помогите с запросом
    #36630854
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Shocker.Pro,

Код: 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.
25.
26.
27.
ad1 = Me.Adodc1.Recordset.RecordCount
ad2 = Me.Adodc2.Recordset.RecordCount

For i =  0  To ad1

 Me.Adodc2.Recordset.MoveFirst
  If Me.Adodc1.Recordset.EOF = False Then

   namefilt1 = Me.Adodc1.Recordset("KOD").Value
   namefilt1name = Me.Adodc1.Recordset("NAME").Value
   namefilt2 = Me.Adodc2.Recordset("KOD").Value
    Me.Adodc2.Recordset.Find "KOD =" + namefilt1
      If Adodc2.Recordset.EOF Then
        MsgBox "НЕТ СХОЖИХ"
       Else
         List1.AddItem (namefilt1name)
          Me.Adodc1.Recordset("ZAKAZ").Value =  0 
        
    End If
 End If

Me.Adodc1.Recordset.MoveNext

Next i
Adodc1.Refresh
TDataLite1.Refresh
Adodc2.Refresh
TDataLite2.Refresh

ВЗГЛЯНИ ПОЖАЛУЙСТА , ТАК ВЕРНО?
...
Рейтинг: 0 / 0
16.05.2010, 19:28
| Ответить | Цитировать | Написать  
Помогите с запросом
    #36630855
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
код работает проверял
...
Рейтинг: 0 / 0
16.05.2010, 19:29
| Ответить | Цитировать | Написать  
Помогите с запросом
    #36630871
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
ad2 = Me.Adodc2.Recordset.RecordCount
не нужно

Код: plaintext
If Me.Adodc1.Recordset.EOF = False Then
Как-то по-индусски... лучше так привыкать:
Код: plaintext
If Not Me.Adodc1.Recordset.EOF Then
оно и понятнее читается

Код: plaintext
namefilt2 = Me.Adodc2.Recordset("KOD").Value
не нужно

Код: plaintext
Me.Adodc2.Recordset.MoveFirst
не обязательно, в общем-то, так как у метода Find есть специальная опция поиска сначала.

Код: plaintext
MsgBox "НЕТ СХОЖИХ"
сообщение будет выдано столько раз, сколько нет схожих, при этом все время одинаковое... может указать, что конкретно не найдено?

Код: plaintext
Me.Adodc1.Recordset("ZAKAZ").Value =  0
по идее, без последующего Update работать не должно.


Ну и форматирование.... размещайте начало и конец (условия, цикла, селекта и т.п.) на одном уровне, команды друг под другом, вложенные команды с одинаковым отступом. Иначе, когда напишете кучу кода - сами в нем разбираться перестанете, не говоря уж о других, вот уже сейчас фиг поймешь, где заканчивается IF

Код: 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.
25.
26.
ad1 = Me.Adodc1.Recordset.RecordCount
ad2 = Me.Adodc2.Recordset.RecordCount

For i =  0  To ad1

  Me.Adodc2.Recordset.MoveFirst
  If Me.Adodc1.Recordset.EOF = False Then

    namefilt1 = Me.Adodc1.Recordset("KOD").Value
    namefilt1name = Me.Adodc1.Recordset("NAME").Value
    namefilt2 = Me.Adodc2.Recordset("KOD").Value
    Me.Adodc2.Recordset.Find "KOD =" + namefilt1
    If Adodc2.Recordset.EOF Then
      MsgBox "НЕТ СХОЖИХ"
    Else
      List1.AddItem (namefilt1name)
      Me.Adodc1.Recordset("ZAKAZ").Value =  0 
    End If
  End If

  Me.Adodc1.Recordset.MoveNext

Next i
Adodc1.Refresh
TDataLite1.Refresh
Adodc2.Refresh
TDataLite2.Refresh
...
Рейтинг: 0 / 0
16.05.2010, 19:42
| Ответить | Цитировать | Написать  
Помогите с запросом
    #36630882
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Shocker.Pro,
очень полезно , благодарю, без update работает кстати
...
Рейтинг: 0 / 0
16.05.2010, 19:54
| Ответить | Цитировать | Написать  
5 сообщений из 30, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с запросом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=36630882&tid=2159789]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 30ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 207ms
total:  303ms
созд. / загр.: 303ms
x
x
Закрыть


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