Вставка внешнего ключа. Excel VBA и MS Access 2003

Question

У меня есть две таблицы: Department (Dept_ID, Dept_Name). и Table Employee (Empl_ID, Empl_Name, Salary, Dept_ID). Идентификаторы являются автоматическими номерами. Dept_ID в таблице Employee - это внешний ключ, ссылающийся на Dept_ID в разделе Table. Теперь я хочу вставить запись в таблицу Employee с помощью Excel VBA, которая подключена к базе данных Access 2003, где находятся мои таблицы. Как я могу получить правильное значение Dept_ID и вставить его в таблицу Employee, учитывая, что пользователь будет отправлять только имя Dept_Name, которое принадлежит представленному сотруднику? Я использую простую вставку Append запрос:

insert into table Employee (Empl_Name,Salary,Dept_ID) 
values (Parameter_Empl_Name, Parameter_Salary, Parameter_Dept_ID) 

У меня есть все значения, кроме значения Parameter_Dept_ID которые referes к внешнему ключу dept_id. Я не знаю, как сгенерировать правильный Dept_ID и вставить его в таблицу Employee, учитывая, что я знаю Dept_Name для этого идентификатора. Является ли проблема понятной? Пожалуйста, помогите,

Answer 1

Я бы предположил, что лучшим вариантом было бы сначала найти идентификатор dept, это должно позволить вам проверить, что оно существует, и запросить пользователя, если это не так, и что-то в строках :

Set rs=CreateObject("ADODB.Recordset") 

sSQL="SELECT DeptID FROM Depts WHERE DeptName='" & <Cell with Dept Name> & "'" 

rs.Open sSQL, <connection> 

DeptID=rs!DeptID