MS access SELECT INTO in vba

Question

У меня возникли некоторые проблемы с некоторыми функциями моего приложения. Существует конкретный экземпляр, в котором у меня есть экземпляр «ожидающего класса» в форме для проверки администратором. Форма заполняется учащимися, связанными с этим ожидающим классом. После того, как их оценки закончены, у меня есть кнопка в нижнем колонтитуле, которая удалит этот класс из моей «ожидающей» таблицы и добавит оценки всем ученикам. Это работает. Однако я хочу по существу копировать этот ожидающий класс, который просто имеет имя класса, дату и учитель до завершенной таблицы классов, прежде чем он будет удален из ожидающего. Поскольку в этой форме не сохраняется никаких данных об этом классе, отличном от первичного ключа (номер класса), я не могу заполнить другие поля (имя класса, дата) строки в моей заполненной таблице классов.

Я пытаюсь выполнить операцию «SELECT INTO» в VBA, чтобы получить эти значения. Это происходит так:

dim cname as String 
    dim classdate as Date 
    dim pid as integer 
    dim teacher as String 
    dim qry as String 

    pid = [Forms]![frmClasses]![txtID] 

    qry = "Select className INTO cname FROM tblPending WHERE tblPending.id = " & " ' " & pid & " ' " & ";" 

    db.execute qry 
    debug.print qry 
    debug.print cname 

Отсюда, я делаю те же операции для каждой другой переменной, построить мой ВСТАВИТЬ запрос и выполнить его. Проблема в том, что мой выбор не работает. Debug.print показывает, что локальные переменные никогда не инициализировались из инструкции SELECT INTO. Есть предположения?

Answer 1

Во-первых, наличие всех классов в одной таблице и просто установка столбца «NotPending» или «Completed» будет лучше.
Наличие двух идентичных таблиц для классов и перемещение значений из одного в другое для указания изменений состояния - это плохой дизайн базы данных.

---

Если вы действительно нужно сделать это с помощью двух таблиц и копирование строк, то вам нужно an INSERT INTO query (и not SELECT INTO), как уже упомянуто Remou в комментариях, потому что SELECT INTO создает новую таблицу (или перезаписывает существующий с тем же именем, если он уже существует).

Синтаксис INSERT INTO выглядит следующим образом:

INSERT INTO CompletedClassTable (ClassName, Teacher) 
SELECT ClassName, Teacher FROM tblPending WHERE id = 123 

---

И, наконец, вы спрашивали об этом в комментарии:

Так SELECT INTO полностью отличается в доступе, чем Oracle? В Oracle и PL/SQL вы можете выбрать строку в переменной ИЛИ таблице. В Access вы не можете выбрать переменную?

Чтобы загрузить строку в переменную, вам необходимо использовать Recordset.

Пример код для загрузки вашего запроса в Recordset и вывод ClassName поля:

Dim RS As DAO.Recordset 

Set RS = CurrentDb.OpenRecordset("SELECT * FROM tblPending WHERE id = 123") 
If Not RS.EOF Then 
    Debug.Print RS("classname") 
End If 
RS.Close 
Set RS = Nothing 

Answer 2

Кажется, что вы хотите получить текстовое значение, className, от tblPending где tblPending.id соответствует найденному значению в текстовом поле, txtID, и сохраните это текстовое значение в строковой переменной с именем cname.

Если эта интерпретация верна, вам не нужно беспокоиться о запросе и наборе записей. Просто используйте DLookup Function для получения значения, похожего на этот образец непроверенного кода.

Dim cname As String 
Dim pid As Integer 
Dim strCriteria As String 
pid = [Forms]![frmClasses]![txtID] 
strCriteria = "id = " & pid 
cname = Nz(DLookup("className", "tblPending", strCriteria), vbNullString) 
Debug.Print "cname: '" & cname & "'" 

Примечание:

1. Я предположил тип данных id поля в tblPending является числовым. Если это на самом деле тип данных текст, изменить strCriteria так:

   strCriteria = "ID = '& PID & "'"

2. DLookup() возвращает Null, если совпадений не найдено. Поскольку мы присваиваем возвращаемое значение функции строковой переменной, я использовал Nz() для преобразования Null в пустую строку. Кроме того, вы можете объявить cname как Variant (чтобы он мог принять значение Null) и избавиться от Nz().