SQL Server端替代DCount的高效方案：获取字段非空判断布尔值

方案一：直接执行参数化SQL查询获取布尔值 #

不用记录集，通过ADODB.Command直接调用SQL Server的查询并返回结果，这是最灵活的方式：

Dim cmd As ADODB.Command
Dim blnValueExists As Boolean
Set cmd = New ADODB.Command

With cmd
    .ActiveConnection = CurrentProject.Connection ' 复用Access已有的SQL Server连接
    .CommandType = adCmdText
    ' 用EXISTS子句判断是否存在符合条件的记录，直接返回0/1转换为布尔值
    .CommandText = "SELECT CASE WHEN EXISTS(SELECT * FROM dbo.tbl_Parts WHERE Part_Nr = ? AND ValuesExist IS NULL) THEN 0 ELSE 1 END"
    ' 添加参数，避免SQL注入，适配Part_Nr的字段类型和长度
    .Parameters.Append .CreateParameter("PartNr", adVarChar, adParamInput, 50, Me!txt_PartNr)
    ' 执行查询并获取标量结果
    blnValueExists = CBool(.Execute(, , adExecuteNoRecords).Fields(0).Value)
End With

Set cmd = Nothing

' 根据结果弹出提示
If blnValueExists Then
    MsgBox "目标字段已填写完整", vbInformation
Else
    MsgBox "目标字段存在空值，请检查", vbExclamation
End If

方案二：创建SQL Server标量函数复用逻辑 #

如果这个检查逻辑会在多处使用，建议在SQL Server端创建一个标量函数，后续直接调用：

1. 在SQL Server中创建函数 #

CREATE FUNCTION dbo.CheckPartValuesExist (@PartNr VARCHAR(50))
RETURNS BIT
AS
BEGIN
    DECLARE @Result BIT
    -- 核心逻辑和原DCount一致，判断是否存在空值记录
    IF EXISTS(SELECT * FROM dbo.tbl_Parts WHERE Part_Nr = @PartNr AND ValuesExist IS NULL)
        SET @Result = 0
    ELSE
        SET @Result = 1
    RETURN @Result
END

2. 在Access中调用函数 #

Dim blnValueExists As Boolean
' 用参数化方式调用SQL Server函数，安全高效
blnValueExists = CBool(CurrentProject.Connection.Execute("SELECT dbo.CheckPartValuesExist(?)", Array(Me!txt_PartNr)).Fields(0).Value)

' 后续提示逻辑同方案一
If blnValueExists Then
    MsgBox "目标字段已填写完整", vbInformation
Else
    MsgBox "目标字段存在空值，请检查", vbExclamation
End If

关键注意点 #

• 必须使用参数化查询，杜绝直接拼接字符串的写法，避免SQL注入风险
• 复用CurrentProject.Connection可以避免重复建立连接，提升执行效率
• adExecuteNoRecords参数能让命令执行时不生成记录集，减少资源消耗

内容的提问来源于stack exchange，提问作者karlo922