Работа с БД

@scart · Регистрация: 19.02.2016

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

Подскажите, что я делаю не правильно:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim conn As New OleDbConnection
        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DB\DB.accdb; Persist Security Info=False;"
        conn.Open()
        Dim a1 As String
        a1 = TextBox4.Text
        Dim c As New OleDbCommand
        c.Connection = conn
        c.CommandText = "select from Base where Цена =" & a1
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter(c)
        da.Fill(ds, "Base")
        Grid2.DataSource = ds
        Grid2.DataMember = "Base"
        c.ExecuteNonQuery()

Если делать select без условий всё нормально, если же нужно выбрать из базы только строки с определённым значением, задающимся в текстбоксе выдаёт ошибку

@Alex77755 · 26.02.2016, 19:39

возможно в типе данных проблема: Цена не текст

mobile · 26.02.2016, 19:56

Предположу, что десятичным разделителем у ТС запятая и при создании запроса параметр воспринимается как строка с запятой, а не число. Если прав, то нужна замена запятой на точку. В ВБА это функция Str или Replace.

Visual Basic
1
c.CommandText = "select from Base where Цена =" & Str(a1)

Как в .NET не знаю.

@scart · 26.02.2016, 20:24 **[ТС]**

VBA. Все поля в БД текстовые.
Выдает такую ошибку:
Ошибочное или пропущенное зарезервированное слово или аргумент в инструкции SELECT или неверная пунктуация.

@Alex77755 · 27.02.2016, 07:31

select from

Между словами должно быть имя поля, список имён или звёздочка (*) если все поля

mobile · 27.02.2016, 10:17

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

VBA. Все поля в БД текстовые.
Выдает такую ошибку:
Ошибочное или пропущенное зарезервированное слово или аргумент в инструкции SELECT или неверная пунктуация.

Текстовое поле Цена? Это дополнительные трудности. Тем не менее, если поле Цена текстовое, то параметр должен быть в апострофах или кавычках, чтобы указать, что значение именно текст, а не поле или неизвестная функция.

Visual Basic
1
where Цена ='" & Str(a1) & "'"

@scart · 27.02.2016, 17:10 **[ТС]**

Спасибо! Рабочий вид = '" & a1 & "'"

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	26.02.2016, 19:39
	возможно в типе данных проблема: Цена не текст 0

@scart 2 / 2 / 1 Регистрация: 19.02.2016 Сообщений: 65
	26.02.2016, 20:24 [ТС]
	VBA. Все поля в БД текстовые. Выдает такую ошибку: Ошибочное или пропущенное зарезервированное слово или аргумент в инструкции SELECT или неверная пунктуация. 0

@scart 2 / 2 / 1 Регистрация: 19.02.2016 Сообщений: 65
	27.02.2016, 17:10 [ТС]
	Спасибо! Рабочий вид = '" & a1 & "'" 0

Работа с БД

Решение