Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
将多条记录从一个表传递到SQL语句_Sql_Vba_Ms Access_Pass Through - Fatal编程技术网

将多条记录从一个表传递到SQL语句

将多条记录从一个表传递到SQL语句,sql,vba,ms-access,pass-through,Sql,Vba,Ms Access,Pass Through,我试图从access中的表中获取许多值(这些值总是变化的),并将它们放在SQL语句的限制内 我有Dlookup(),但我们知道它只拉1个值 我如何循环这个来获取所有值 相关代码: Dim值作为字符串 Value=DLookup(“值”、“值”) sSQL=。。。。。。。。。其中,AL.LIMIT“&”值和“&”& 我不知道你想干什么,你的问题很清楚。不过,我要试试看 试着这样做: Dim db as Database Dim rec as Recordset Db = CurrentDB 'T

我试图从access中的表中获取许多值(这些值总是变化的),并将它们放在SQL语句的限制内

我有Dlookup(),但我们知道它只拉1个值

我如何循环这个来获取所有值

相关代码:

  • Dim值作为字符串
  • Value=DLookup(“值”、“值”)
  • sSQL=。。。。。。。。。其中,AL.LIMIT“&”值和“&”&

  • 我不知道你想干什么,你的问题很清楚。不过,我要试试看

    试着这样做:

    Dim db as Database
    Dim rec as Recordset
    
    Db = CurrentDB
    'This assumes you're pulling one specific record from a table with many records
    rec = db.OpenRecordSet("Select * from YourTableName WHERE Something = SomethingElse")
    
    Do While rec.EOF = False
      MyFirstValue = rec(0)
      MySecondValue = rec(1)
      MyThirdValue = rec(2)
      ...ect
    Loop
    
    sSQL = "Select * from Whatever WHERE FirstParam = '" & MyFirstValue & "' AND SecondParam = '" & MySecondValue & "' AND ThirdParam = '" & MyThirdValue & "'"
    

    这需要大量的编辑,但如果我理解正确,这应该是一个很好的起点。

    向上箭头和复选标记是表达“谢谢你!“;o)唯一的区别是我从一个表中提取所有记录。