powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Связь элементов
10 сообщений из 10, страница 1 из 1
Связь элементов
    #32299461
hangkil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
(на примере базы Biblio.mdb)
допустим на форме есть комбобокс и текстбокс подвязаны с таблицей авторы
в комбе у нас ID а в текстбоксе имена авторов

Ну вот, как написать, чтоб при выборе в комбе любого числа (ID) в текстбоксе отражались изменения авторов.
...
Рейтинг: 0 / 0
Связь элементов
    #32299499
Фотография tpg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У комба есть событие Combo1_Change(), в него и положи код изменения текстбокса.
...
Рейтинг: 0 / 0
Связь элементов
    #32299522
hangkil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ну а как это сделать, поэтому я и спрашиваю, а где писать DataCombo1_Change() я знаю
...
Рейтинг: 0 / 0
Связь элементов
    #32299614
DionX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не знаю как ента делаетса в Accese, не лублу я его... А в стандаотном VB примерно так:
Допустим есть текстовое поле Text1 и комбо Combo1. При этом свойство DataSourse обоих элементов равно rs (где rs - статистический набор записей), свойство Text1.DataField="Field1", Combo1.DataField="Field2". Не буду писать, что Combo1 нужно сначала заполнить (.Add). Теперь обрабатываем событие DataCombo1_Change():

sub DataCombo1_Change()
rs.Find "Field2 = " & Combo1.Text
if rs.eof then rs.MoveFirst
end sub

Это, конечно, очень примерно, но...
...
Рейтинг: 0 / 0
Связь элементов
    #32299766
hangkil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо что ответили, только теперь он говорит что аргументы имеют не верный тип или вступают в конфликт

у меня для комбо стоит подвязка AU_ID для texta датафилд = author

Private Sub DataCombo1_Change()
Adodc1.Recordset.Find "author" & DataCombo1.Text
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst
End Sub


что не так?
...
Рейтинг: 0 / 0
Связь элементов
    #32299788
hangkil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все дошло, вот как надо

Adodc1.Recordset.Find "au_id = '" & DataCombo1.Text & "'"
...
Рейтинг: 0 / 0
Связь элементов
    #32299798
DionX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Adodc1.Recordset.Find "author" & DataCombo1.Text
после "author" знак "=" должен быть и это поле текстовое? Тада значение в кавычки заключать нада:
Adodc1.Recordset.Find "author" & """DataCombo1.Text"""
Кроме того у метода Find, кроме критерия поиска есть ещё ряд необязательных аргументов + в Access'ом может быть несколько иначе. Так, что эксперементируй.
...
Рейтинг: 0 / 0
Связь элементов
    #32299810
DionX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И ещё... четь не забыл. На время поиска по рекордсету оба элемента (текстбокс и сомбо) лучше освободить от привязки к ентому рекордсету, т.е.:

сначала Text1.DataSourse=Nothing
Combo1.DataSourse=Nothing
потом ищем и:
Text1.DataSourse=rs
Combo1.DataSourse=rs
...
Рейтинг: 0 / 0
Связь элементов
    #32299891
hangkil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все ОК спасибо, и еще вопросик

Если ты представялешь базу biblio то тебе бедет легче соорентироваться.

так вот, у нас на форме есть: Adodc1, datacombo1, textbox1
оба они привязаны к adodc1 (код я не писал ни строчки) через DSN
которая в свою очередь связана с таблицей Authors, все работоает нормально.

Допустим что в combe у нас связь с полем au_id из таблицы authors
как засунуть в техтбокс ISBN (ихняя идентификация) которая находится в таблице title author
...
Рейтинг: 0 / 0
Связь элементов
    #32300784
DionX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
"Засунуть", как ты варазился (выразилась?) просто, но базу biblio не знаю, опиши подробна поля этих таблиц и по какому полю они связаны. Одно могу сказать уже сейчас: adodc нужно будет связывать не с конкретной таблицей, а строить SQL-запрос, т.е. command type в его свойствах поставить равное 8, а в текстовое поле command text написать запрос. С текстом запроса помогу, кода опишешь мне таблицы, и куда какое поле запихать.
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Связь элементов
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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