powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / обновление записи таблицы1 из записей таблицы2
2 сообщений из 2, страница 1 из 1
обновление записи таблицы1 из записей таблицы2
    #39127788
ramil9209
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте, кто может помочь с таким вопросом? Access 2007,2010. Нужно написать запрос на обновление записи таблицы1 из записей таблицы2. Имеется таблица "Билет" с полями рейс, код_билета и таблица "Рейс" с полями номер_рейса, кол_мест, кол_свободных_мест. Они связаны Билет.рейс = Рейс.номер_рейса.
Update Рейс Set Рейс.кол_свободных_мест = [Рейс].[Количество_мест] - (Select Count(Билет.код_билета) from Билет Where Билет.рейс = Рейс.номер_рейса);
Вот это нужно сделать в Access, не получается потому что Access в запросе типа Обновление не поддерживает подзапрос с выборкой. Можно использовать DCount функцию, но не знаю как правильно ее заюзать. Кто может помочь?спасибо
...
Рейтинг: 0 / 0
обновление записи таблицы1 из записей таблицы2
    #39127816
ramil9209
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, дорогие форумчане разобрался сам. Сделал так написал запрос :
UPDATE Рейс INNER JOIN Билет ON Рейс.Номер_рейса = Билет.Рейс SET Рейс.Количество_свободных_мест = Рейс.Количество_мест - CountSQL(Билет.Рейс);

где CountSQL(Билет.Рейс) функция в Модуле

Public Function CountSQL(Reis) As Integer

Dim CountSelectSQL As Integer
Dim CN As ADODB.Connection

Dim Rs As ADODB.Recordset
Set CN = CurrentProject.Connection
Set Rs = New ADODB.Recordset
With Rs
.Source = "SELECT * FROM Áèëåò Where Áèëåò.Ðåéñ = " & Reis
.ActiveConnection = CN
.CursorType = adOpenKeyset
.Open
End With
CountSelectSQL = Rs.RecordCount
Set Rs = Nothing
Set CN = Nothing
CountSQL = CountSelectSQL
End Function
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / обновление записи таблицы1 из записей таблицы2
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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