插入外鍵。 Excel VBA和MS Access 2003

Question

我有兩個表：Department（Dept_ID，Dept_Name）。 和表Employee（Empl_ID，Empl_Name，Salary，Dept_ID）。 ID是自動編號。 表Employee中的Dept_ID是一個外鍵，引用表Department中的Dept_ID。 現在，我想使用連接到表所在的Access 2003數據庫的Excel VBA向表Employee插入一條記錄。 假設用戶只提交屬於已提交員工的Dept_Name，我如何獲得正確的Dept_ID值並將其插入到表Employee中？ 我使用一個簡單的插入追加查詢：

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

除了引用外鍵Dept_ID的Parameter_Dept_ID的值之外，我具有所有值。 考慮到我知道該ID的Dept_Name，我不知道如何生成正確的Dept_ID並將其插入到表Employee中。 問題清楚了嗎？ 請幫忙，

Answer 1

我猜最好的選擇是先查找部門編號，這應該允許您檢查它的存在並提示用戶是否不存在，因此，應注意以下幾點：

Set rs=CreateObject("ADODB.Recordset")

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

rs.Open sSQL, <connection>

DeptID=rs!DeptID