ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / DataCombo и рекордсет
6 сообщений из 6, страница 1 из 1
DataCombo и рекордсет
    #33463070
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
мужики, выручайте, туплю по страшной силе!
что есть есть дата комбо и 2 текстбокса
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'в модуле
Public rs_prod As ADODB.Recordset
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set rs_prod = New ADODB.Recordset
      rs_prod.Open "select * from prod", conn

Set DataCombo2.RowSource = rs_prod
        DataCombo2.ListField = "naim"
        DataCombo2.BoundColumn = "cen_opt"

Private Sub DataCombo2_Change()
    On Error Resume Next
    Set Text13.DataSource = rs_prod
          Text13.DataField = "ves"
          Text12.Text = DataCombo2.BoundText
как мне сделать чтобы при смене в датакомбо менялся и еще текст в текстбоксах?? точнее в Text12 текст-то меняется.
...
Рейтинг: 0 / 0
28.12.2005, 20:41:27
| Ответить | Цитировать | Написать  
DataCombo и рекордсет
    #33463530
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
я думаю так

Код: plaintext
1.
2.
3.
4.
Private Sub DataCombo1_Change()
    If rs_prod.State = adStateOpen Then
        rs_prod.Find "cen_opt = " & DataCombo1.BoundText
    End If
End Sub

насколько я понял, датакомбо не переходит по записям, нужжно делать это самому
...
Рейтинг: 0 / 0
29.12.2005, 10:08:51
| Ответить | Цитировать | Написать  
DataCombo и рекордсет
    #33465086
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
нет, мне нужно чтобы этот датакомбо переходил по записям, ну что-то типа ADODC.
т.е. например у меня в базе есть 6 полей. Есть форма на которой 1 датакомбо и 5 текстбоксов. Датакомбо отоброжает первое поле. Пять текстбоксов отоброжают остальные пять полей. Ну и соответственно, в зависимости от того какая строка в датакомбо выбрана, 5 текстбоксов должны отоброжать данные из той же строки что и датакомбо, но последние 5 полей базы.
надеюсь понятно объяснил :)
...
Рейтинг: 0 / 0
29.12.2005, 20:22:02
| Ответить | Цитировать | Написать  
DataCombo и рекордсет
    #33465290
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Надо писать дополнительную обработку для поиска строки критерием которой будет являтся DataCombo
типа
====
rec.Open "select * from table where name='" & DataCombo.Text & "'",rec.Activecon,..........
====


=====
Text1.Text=rec.Fields(0).Value
Text2.Text=rec.Fields(1).Value
Text3.Text=rec.Fields(3).Value
...
Рейтинг: 0 / 0
30.12.2005, 08:23:51
| Ответить | Цитировать | Написать  
DataCombo и рекордсет
    #33466068
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
спасибо, это наверное только и поможет.
...
Рейтинг: 0 / 0
30.12.2005, 14:45:27
| Ответить | Цитировать | Написать  
DataCombo и рекордсет
    #33467077
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
К сожалению DataCombo не синхронизирует букмарк рекордсета с выбранной строкой (как это делает TDBCombo).
Но ловить событие надо не в Change, а в Click и кажется еще где-то (не помню - мы пользуемся TDBCombo) по этому отдельная процедура FindBookmark
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub DataCombo2_Click(Area As Integer)
   If Area = dbcAreaList Or Area = dbcAreaEdit Then FindBookmark
End Sub

Private Sub FindBookmark()
   rs_prod.MoveFirst
   If Not IsNull(DataCombo2.BoundText) Then
      rs_prod.Find "cen_opt = " & DataCombo2.BoundText
   Else
      rs_prod.MoveLast
      rs_prod.MoveNext  'загоняем на EOF
   End If
End Sub
...
Рейтинг: 0 / 0
02.01.2006, 19:46:07
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / DataCombo и рекордсет
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2166608]:
 0ms
get settings:
 11ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 210ms
get topic data:
 7ms
get first new msg:
 3ms
get forum data:
 1ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 229ms
total:  513ms
созд. / загр.: 513ms
x
x
Закрыть


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