powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужно обновить запрос б/д внутри коллекции
2 сообщений из 2, страница 1 из 1
Нужно обновить запрос б/д внутри коллекции
    #38289335
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
PBGrupsSpisok.Add BAZASite.OpenRecordset("SELECT Grups.*, MusicPls.*, Grups.KodG FROM Grups INNER JOIN MusicPls ON Grups.KodG = MusicPls.NameGroup WHERE (((Grups.KodG)=" & CStr(NomerGrups) & ") AND (MusicPls.Played)=False);", dbOpenDynaset)



Таблица попадает в коллекцию PBGrupsSpisok таким образом работаю с ней так как и через SET, тоесть обращаясь к коллекции я на самом деле обращаюсь к таблице (связь "SET" устанавливается в Collection). Вот пример.

Код: vbnet
1.
2.
3.
4.
5.
PBGrupsSpisok(NomerGrup).Edit
  PBGrupsSpisok(NomerGrup).Fields("Played") = True
  PBGrupsSpisok(NomerGrup).Fields("DateTimePlay") = Now()
  PBGrupsSpisok(NomerGrup).Fields("Kst") = PBGrupsSpisok(NomerGrup).Fields("Kst") + 1
PBGrupsSpisok(NomerGrup).Update



Как сделать повторный
Код: vbnet
1.
BAZASite.OpenRecordset("SELECT Grups.*, MusicPls.*, Grups.KodG FROM Grups INNER JOIN MusicPls ON Grups.KodG = MusicPls.NameGroup WHERE (((Grups.KodG)=" & CStr(NomerGrups) & ") AND (MusicPls.Played)=False);", dbOpenDynaset)


для конкретного PBGrupsSpisok(NomerGrup) я пробовал несколько способов - не могу подобраться. Или может есть типа PBGrupsSpisok(NomerGrup). РЕЛОАД какой-то чтоб таблица обновилась...
...
Рейтинг: 0 / 0
Нужно обновить запрос б/д внутри коллекции
    #38289339
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
уже есть решение
Requery
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужно обновить запрос б/д внутри коллекции
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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