求助大神：关于sql的参数传递问题

viclice

在使用SQL查询时，出现了参数传递问题，代码如下：

    'sqlFd1 = "select * from 入库明细表 where (产品编码 = '" & Replace(TextProIDFd, "'", "''") & "')"
    'sqlFd2 = "select * from (" & sqlFd1 & ") where (入库登记编码 = '" & Replace(TextRgNoFd, "'", "''") & "')"
      Set rsFd = con.Execute(sqlFd2)
其他过程没问题，但总是报错，“至少缺少一个参数”。
请大神指导
      

limonet

检查一下字段名称是否有敏感字符，用[]框起来。

ovxyz

这样看则两句话没啥问题，
但因为有些变量无法看出来是什么。
建议你调试，sqlFd2输出到立即窗口，复制该语句到sql运行检查。

viclice

我看了一下，好像没有，这里时全部的代码
Private Sub CommandButton4_Click()

Dim sqlFd1 As String
Dim sqlFd2 As String
Dim rsFd As New ADODB.Recordset
Dim i As Integer
    sqlFd1 = "select * from 入库明细表 where (产品编码 = '" & Replace(TextProIDFd, "'", "''") & "')"
    sqlFd2 = "select * from (" & sqlFd1 & ") where (入库登记编码 = '" & Replace(TextRgNoFd, "'", "''") & "')"
      Set rsFd = con.Execute(sqlFd2)   
   Sheet3.Activate
   Sheet3.Cells.Clear
   For i = 0 To rsFd.Fields.Count - 1
       If rsFd.BOF And rsFd.EOF Then
            MsgBox "没有找到相关记录"
            Else
            Sheet3.Cells(1, i + 1) = rsFd.Fields(i).Name
        End If
            Next   
            Sheet3.Range("A2").CopyFromRecordset rsFd
End Sub

viclice

很奇怪，当我把第二句SQL代码中的where语句删除后又没有问题，但这不是我想要的，用where ……and ……也不行，还是报错

盼盼198310

viclice 发表于 2023-5-15 15:35
很奇怪，当我把第二句SQL代码中的where语句删除后又没有问题，但这不是我想要的，用where ……and ……也不 ...

那就检查一下看看where后面的字段名称有没有问题,还有就是看看数据类型是不是相符,看到你的字段名称中有编码,很大概率是数字与文本的原因

viclice

我的access中入库登记编码确实是一串数字，但我的设置是文本格式，在SQL语句中也是使用的文本格式啊，这里会有什么坑呢？还请指导

viclice

确实，但我在数据库中的设置是文本格式，这里也用的是文本格式啊

viclice

确实是数字和文本的问题，我改成查询零一字段（纯文字的）就没有问题，但一定要查询编码应该怎么处理呢

nicleyuan

viclice 发表于 2023-5-15 16:17
确实是数字和文本的问题，我改成查询零一字段（纯文字的）就没有问题，但一定要查询编码应该怎么处理呢

查询前先转换成统一格式了。