ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB 6.0 + Acces. Как настроить связи между таблицами?
7 сообщений из 7, страница 1 из 1
VB 6.0 + Acces. Как настроить связи между таблицами?
    #35747835
Кармагедец
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кармагедец
Гость
Первый раз собрался делать БД в ВБ. Данные решил хранить в MDB-файле. Проблемы возикли сразу же. Например есть две связанные по KP (один-ко-многим) таблицы:

Предметы:
KP,Predmet
Цены:
KP,DATA,MAX,MIN

На форме есть два элемента DATA, один (видимый) с таблицей "Предметы", другой (скрытый) с таблицей "Цены". На форме есть MSFlexGrid, куда должны автоматически попадать данные из таблицы "Цены", которые соответствуют предмету выбранному в Data с таблицей "Предметы" при перемещении по его записям.
Как бы это получше реализовать?
я пытался так:
Код: plaintext
1.
2.
datCeni.RecordSource = "SELECT DATA as Дата,MAX as Максимум,MIN as Минимум from Ceni,Predmeti where ceni.KP=Predmeti.KP"
datCeni.Refresh
неполучилось
...
Рейтинг: 0 / 0
08.01.2009, 19:28
| Ответить | Цитировать | Написать  
VB 6.0 + Acces. Как настроить связи между таблицами?
    #35747866
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
При использовании связей в запросе не пренебрегайте полным именованием таблица.поле:
Код: plaintext
datCeni.RecordSource = "SELECT b.Predmet as Предмет, a.DATA as Дата, a.MAX as Максимум, a.MIN as Минимум from Ceni a, Predmeti b where a.KP=b.KP"
...
Рейтинг: 0 / 0
08.01.2009, 20:07
| Ответить | Цитировать | Написать  
VB 6.0 + Acces. Как настроить связи между таблицами?
    #35747882
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
А вообще-то, при перемещении сделать можно так:
- из DATA предметов берем код текущего предмета и помещаем в переменную, например, Tek_KP
- присваиваем datCeni.RecordSource = "SELECT DATA as Дата, MAX as Максимум, MIN as Минимум from Ceni where ceni.KP=" & Tek_KP
- делаем datCeni.Refresh

Также никто не запрещает вам привязать источник запроса ФлексГрида к некоей переменной, в которую вы будете помещать текущее значение кода предмета. Тогда для обновления цен будет достаточно сделать рефреш.
...
Рейтинг: 0 / 0
08.01.2009, 20:18
| Ответить | Цитировать | Написать  
VB 6.0 + Acces. Как настроить связи между таблицами?
    #35747994
Кармагедец
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кармагедец
Гость
Уррра!!! Заработало!!! Спасибо!!!
...
Рейтинг: 0 / 0
08.01.2009, 21:49
| Ответить | Цитировать | Написать  
VB 6.0 + Acces. Как настроить связи между таблицами?
    #35748079
Кармагедец
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кармагедец
Гость
Пытаюсь добавить в datCeni новую запись
Код: plaintext
1.
2.
3.
4.
5.
6.
datCeni.Recordset.AddNew
datCeni.Recordset.Fields("KP") = Tek_KP
datCeni.Recordset.Fields("DATA") = Date$
datCeni.Recordset.Fields("MAX") = txtNewMax
datCeni.Recordset.Fields("MIN") = txtNewMin
datCeni.Recordset.Update
ошибка "Item not found in this collection"
Что ему опять не так?!
...
Рейтинг: 0 / 0
08.01.2009, 23:21
| Ответить | Цитировать | Написать  
VB 6.0 + Acces. Как настроить связи между таблицами?
    #35749937
AndreiКr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreiКr
Участник
Какое-то из полей рекордсета указано неправильно. К тому же MIN и MAX зарезервированные слова, возможно он не может с ними подружиться при работе метода Update.
Кстати, вам не обязательно обращаться к нужному полю, ссылаясь на элемент из коллекции Fields. Вместо datCeni.Recordset.Fields("MAX") = txtNewMax можно писать
datCeni![MAX] = txtNewMax
...
Рейтинг: 0 / 0
10.01.2009, 18:25
| Ответить | Цитировать | Написать  
VB 6.0 + Acces. Как настроить связи между таблицами?
    #35749939
AndreiКr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreiКr
Участник
Пардон, так правильно datCeni.Recordset![MAX] = txtNewMax
...
Рейтинг: 0 / 0
10.01.2009, 18:28
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB 6.0 + Acces. Как настроить связи между таблицами?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35747882&tid=2161468]:
 0ms
get settings:
 11ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 75ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 218ms
total:  403ms
созд. / загр.: 403ms
x
x
Закрыть


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