Ошибка синтаксиса FROM

@Aumi · Регистрация: 08.10.2015

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

Здравствуйте,

Есть база 2010г. Есть 2 формы "Главная", "причина".
На "Главной" в текстбоксы выводится информация из tabInfo. Есть кнопка "удалить".
При нажатии на кнопку открывается "Причина"-update таблицу prichina-удаляется запись из tabInfo, где ID = текстбоксу.

Проблема в том, что когда была у меня 32-бит система, то все работало.
Сейчас 64-бит. Из-за этого в многих местах требовал Declare. И теперь у меня не работает Delete. Update спокойно выполняет.

1)Ошибка синтаксиса в предложении FROM
2)Необходимо использование параметра dbSeeChanges с OpenRecordset при доступе к таблице SQL Server,вкторой есть столбец IDENTITY

Код написан на кнопке в формы "Причина"

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Кнопка1_Click()
 
Dim book As String
Dim oper As String
Dim spisok As String
 
 
Me.ПолеСоСписком1().SetFocus
 
 
spisok = DLookup("[choice]", "[WhyDel]", "id=" & Me!ПолеСоСписком1())
 
CurrentDb.Execute "UPDATE [prichina] SET [Del]= '" & spisok & "' where OP_ID= " & Forms!frmГлавная!ID & ""  'выполняет без проблем
 
CurrentDb.Execute "Delete from tabInfo where ID=" & Forms!frmГлавная!ID & ""  'ошибка FROM
 
CurrentDb.Execute "Delete from [tabInfo] where [ID]=" & Forms!frmГлавная!ID & ""  'Необходимо использование параметра dbSeeChanges
 
 
DoCmd.Close
 
End Sub

@Eugene-LS · 02.07.2018, 11:00

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

Ошибка синтаксиса в предложении FROM

Ваших данных и формы у меня нет, но вроде всё правильно.
У меня "отработало":

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Кнопка1_Click()
 
'Dim book As String 'Зачем?
'Dim oper As String 'Зачем?
Dim spisok As String
Dim s As String
 
    Me!ПолеСоСписком1.SetFocus 'Зачем? - Если закрываем форму в конце
    
    s = "id=" & Me!ПолеСоСписком1
    Debug.Print "s01:" & s
    spisok = DLookup("[choice]", "[WhyDel]", s)
    Debug.Print "spisok: " & spisok
 
    s = "UPDATE prichina SET Del= '" & spisok & "' WHERE OP_ID=" & Forms!frmГлавная!ID
    Debug.Print "s02:" & s
    CurrentDb.Execute s
 
    s = "Delete from tabInfo where ID=" & Forms!frmГлавная!ID
    Debug.Print "s03:" & s
    CurrentDb.Execute s
  
    DoCmd.Close acForm, Me.Name
 
End Sub

Для контроля правильности обращения к данным проверяйте строки в Immediate Window (Ctll+G)
После отладки все строки "Debug.Print ..." можно убрать.

@MrShin · 02.07.2018, 13:08

Вообще смена разрядности не должна влиять ни на что, кроме частей кода, относящихся к API вызовам. В качестве шаманства попробуйте удаение со звездочкой: DELETE * FROM...

@Aumi · 06.07.2018, 11:16 **[ТС]**

MrShin, Eugene-LS, спасибо, что ответили. Сам код с удалением строк не стала менять.
Я только доисправляла код для 64 битной системе(по этой статье http://www.sql.ru/forum/116974... ekovodstvo) и все нормально стало работать.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@MrShin 296 / 257 / 68 Регистрация: 18.06.2015 Сообщений: 570
	02.07.2018, 13:08
	Вообще смена разрядности не должна влиять ни на что, кроме частей кода, относящихся к API вызовам. В качестве шаманства попробуйте удаение со звездочкой: DELETE * FROM... 1

@Aumi 20 / 36 / 14 Регистрация: 08.10.2015 Сообщений: 406
	06.07.2018, 11:16 [ТС]
	MrShin, Eugene-LS, спасибо, что ответили. Сам код с удалением строк не стала менять. Я только доисправляла код для 64 битной системе(по этой статье http://www.sql.ru/forum/116974... ekovodstvo) и все нормально стало работать. 0