VBA中的MS Access 2016 SQL

Question

我确定我犯了一个简单的错误。 我有一个SQL Server，其中包含已在MS Access中链接的表。 我正在尝试在Form OnLoad运行SQL查询，以基于表单中的值填充文本框。

下面是我的代码。 我要返回的TE字段是MSSQL中的varchar和Access中的短文本。 我在文本框上看到'Type Mismatch' 。 当我尝试输出到MsgBox我得到：

“ rst！TE未收集”。

TN和TN_1是smallint，在Access中它们是Number。

Dim rst As DAO.Database
Set rst = CurrentDb

rst.OpenRecordset "SELECT dbo_STCH.TE FROM dbo_STCH RIGHT JOIN dbo_SCVR ON               dbo_STCH.TN = dbo_SCVR.TN_1 WHERE dbo_SCVR.TN_1=99;"

Me.Text22.Text = rst!TE
rst.Close
Set rst = Nothing

Answer 1

您正在混合DAO记录集和数据库，因此该消息是正确的，因为在集合中找不到该项目。 只需将rst初始化为记录集，并将其分配给OpenRecordset调用即可。

Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("SELECT dbo_STCH.TE FROM dbo_STCH" _
                                  & " RIGHT JOIN dbo_SCVR ON dbo_STCH.TN = dbo_SCVR.TN_1" _
                                  & " WHERE dbo_SCVR.TN_1=99;")

Me.Text22.Text = rst!TE

rst.Close
Set rst = Nothing

Answer 2

您必须使用rst.MoveFirst移至打开的记录集的第一条记录，然后再从中读取任何值。

同样作为上述答案，您必须Set rst = CurrentDb.OpenRecordset