Как присвоить полю значение из запроса?

@Olya_z · Регистрация: 01.06.2014

Author24 — интернет-сервис помощи студентам

Выдает ошибку "Invalid use of property"

Visual Basic

Dim rst As DAO.Recordset
Dim sSQL As String
sSQL = "SELECT [Расстояние]*[Стоимость] AS выражение FROM Тип_вагонов INNER JOIN ((Поезд INNER JOIN Вагон ON Поезд.Код = Вагон.ID_поезда) INNER JOIN Станции_поезда ON Поезд.Код = Станции_поезда.ID_поезда) ON Тип_вагонов.Код = Вагон.ID_тип_вагона GROUP BY [Расстояние]*[Стоимость], Вагон.Код, Станции_поезда.ID_станции HAVING (((Вагон.Код)=" & Me.ПолеСоСписком74.Value & " AND " & Me.ПолеСоСписком100.Value
 
rst = CurrentDb.OpenRecordset(sSQL)
var e = rst.Fields(0)
Me.Поле119.Value = e

вот сам запрос:
access

SQL

SELECT [Расстояние]*[Стоимость] AS выражение
FROM Тип_вагонов INNER JOIN ((Поезд INNER JOIN Вагон ON Поезд.Код = Вагон.ID_поезда) INNER JOIN Станции_поезда ON Поезд.Код = Станции_поезда.ID_поезда) ON Тип_вагонов.Код = Вагон.ID_тип_вагона
GROUP BY [Расстояние]*[Стоимость], Вагон.Код, Станции_поезда.ID_станции
HAVING (((Вагон.Код)=[Forms]![Билет]![ПолеСоСписком74]) AND ((Станции_поезда.ID_станции)=[Forms]![билет]![ПолеСоСписком100]));

shanemac51 · 24.05.2016, 14:16

Сообщение от Olya_z

var e = rst.Fields(0)

это синтаксис из других языков

Visual Basic

Dim rst As DAO.Recordset
Dim sSQL As String
sSQL = "SELECT [Расстояние]*[Стоимость] AS выражение FROM Тип_вагонов INNER JOIN ((Поезд INNER JOIN Вагон ON Поезд.Код = Вагон.ID_поезда) INNER JOIN Станции_поезда ON Поезд.Код = Станции_поезда.ID_поезда) ON Тип_вагонов.Код = Вагон.ID_тип_вагона GROUP BY [Расстояние]*[Стоимость], Вагон.Код, Станции_поезда.ID_станции HAVING (((Вагон.Код)=" & Me.ПолеСоСписком74.Value & " AND " & Me.ПолеСоСписком100.Value
 
set rst = CurrentDb.OpenRecordset(sSQL)
dim e
e = rst.Fields(0)
Me.Поле119.Value = e

@amd48 · 24.05.2016, 14:18

Что такое var в "var e = rst.Fields(0)"?
Обычно из запроса данные в поля вводят так:
Me.Поле119.Value=rst!выражение

mobile · 24.05.2016, 14:27

В селекте пропущено поле связываемое с ПолеСоСписком100. Параметры отбора не связаны с агрегатными функциями и резонно их поместить во Where, а не в Having

Visual Basic

Dim rst As DAO.Recordset
Dim sSQL As String
sSQL = "SELECT [Расстояние]*[Стоимость] AS выражение " _
& "FROM Тип_вагонов INNER JOIN ((Поезд INNER JOIN Вагон " _
& "ON Поезд.Код = Вагон.ID_поезда) INNER JOIN Станции_поезда " _
& "ON Поезд.Код = Станции_поезда.ID_поезда) " _
& "ON Тип_вагонов.Код = Вагон.ID_тип_вагона " _
& "WHERE Вагон.Код=" & Me.ПолеСоСписком74 _
& " AND Станции_поезда.ID_станции=" & Me.ПолеСоСписком100
& "GROUP BY [Расстояние]*[Стоимость], Вагон.Код, Станции_поезда.ID_станции " 
 
set rst = CurrentDb.OpenRecordset(sSQL)
Me.Поле119.Value = rst.Fields(0)

И еще. Если есть группировка, то как бы требуется поместить группируемые поля в селект. Непонятно почему их там нет.

Новые блоги и статьи
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .

@amd48 842 / 473 / 79 Регистрация: 18.05.2016 Сообщений: 1,255 Записей в блоге: 4
	24.05.2016, 14:18	3
	Что такое var в "var e = rst.Fields(0)"? Обычно из запроса данные в поля вводят так: Me.Поле119.Value=rst!выражение 0

	24.05.2016, 14:27