在VBA中编写SQL以获取等于当前ford的记录源

Question

这是我第一次发布，因此希望我能提供所需的所有详细信息。

我正在尝试选择一个与当前显示在表单上的记录相等的记录源，以便使用书签功能将数据导入Word。我有一个词部分可以工作，我似乎无法理解的是VBA中的SQL。我花了好几个小时研究这个问题，而且我知道直接采用SQL是行不通的，但是在浏览其他帖子并实施其他人建议的其他更改之后，我似乎无法弄清楚需要更改的内容情况。

我的SQL是：

    SELECT TblJob.JobID, TblJob.JobTitle, TblJob.Location, TblJob.ScreeningQ1, TblJob.ScreeningQ2, TblJob.ScreeningQ3, TblJob.ScreeningQ4, TblJob.ScreeningQ5, TblJob.ScreeningQ6, TblJob.ScreeningQ7, TblJob.ScreeningQ8, TblJob.ScreeningQ9, TblJob.ScreenignQ10
    FROM TblJob
    WHERE (((TblJob.JobID)=[Forms]![FrmJob]![JobID]));

我试图实现的代码是：

    Dim rs As DAO.Recordset, strsql, val As String
    val = Forms!FrmJob!JobID
    strsql = "SELECT * FROM TblJob WHERE JobID = '" & val & "'"

任何人都可以提供的帮助将不胜感激，在编码方面，我仍然是一个初学者，到目前为止，该站点上的帖子对帮助我非常棒！

Answer 1

您非常亲密。这是我在Excel中使用ADODB库的脚本代码。

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "DRIVER={Oracle in OraClient11g_home1};" & "DBQ=" & Database_Name & ";UID=" & 
User_ID & ";PWD=" & Password & ";"
strsql = "some_sql"
rs.Open SQLStr, cn
'Sheets(dane_wymag).Cells(knc + 1, 1).CopyFromRecordset rs

Answer 2

我认为这是我们的，如果答案可以帮助其他人

    strsql = "SELECT * FROM TblJob WHERE JobID=" & Me.JobID