访问VBA SQL字符串太长

我有一个创建一个SQL字符串这样的Excel 2003 VBA程序：访问VBA SQL字符串太长

OrdresPlanif = "" 
Do While Cells(i, 1).Value <> "CODES TEMPS" 
    noOrdre = Cells(i, 4).Value 
    If noOrdre <> "" Then 
     OrdresPlanif = OrdresPlanif + "(Ordre.Ordre) <> " & noOrdre & " And " ' String for the orders shecduled 
    End If 
    i = i + 1 
Loop 
OrdresPlanif = Left(OrdresPlanif, Len(OrdresPlanif) - 5) ' Remove last "and" from string OrdresNonPlanif 
SQLnonPlanif = "SELECT Ordre.Ordre, Sum(Ordre.Duree) AS SommeDeDuree" _ 
       & " FROM Ordre" _ 
       & " WHERE (((Ordre.Date) >= #" & Date1 & "# And (Ordre.Date) <= #" & Date2 & "#) AND (" & MatOrString & ") And (" & OrdresPlanif & "))" _ 
       & " GROUP BY Ordre.Ordre;" 
Set rsNonPlanif = cn.Execute(SQLnonPlanif)

问题是，大约有100〜150 noOrdre和〜15 MatOrString在SQL添加声明。 Access（2003）返回错误“复杂的SQL语句”。我曾四处寻找解决方案，但人们正在讨论串联问题，但对于我来说，似乎并不是一个可行的解决方案，因为我从循环创建了字符串。
有没有办法解决这个问题？或者我的策略错误，首先？

[编辑]

这里我添加一个从我的代码生成的示例查询。当我尝试将其粘贴到访问中时，它会出现相同的错误。

SELECT Ordre.Ordre，SUM（Ordre.Duree）AS SommeDeDuree FROM勋章WHERE （（（Ordre.Date）> =＃7月11日/网友排名和（Ordre.Date）< =＃14/（Ordre.Matricule = 257 OR Ordre.Matricule = 516 Or Ordre.Matricule = 591 OR Ordre.Matricule = 1797 Or Ordre.Matricule = 1802 Or Ordre.Matricule = 1828 OR Ordre.Matricule = 2061 OR Ordre.Matricule = 2070 OR Ordre.Matricule = 2085 OR Ordre.Matricule = 2103 OR Ordre.Matricule = 2142 OR Ordre.Matricule = 2211 OR Ordre.Matricule = 2344 OR Ordre.Matricule = 2436 OR Ordre.Matricule =（2471）和（（Ordre.Ordre）<> 10000477和（Ordre.Ordre）<> 11146074和（Ordre.Ordre）<> 11146315 和（Ordre.Ordre）<> 11146662和（Ordre.Ordre）<> 11146689和（Ordre.Ordre）<> 11147233和（Ordre.Ordre）<> 11147616和（Ordre.Ordre）<> 11148129和（Ordre.Ordre）<> 11147923和（Ordre.Ordre）<> 11147924和（Ordre.Ordre）<> 11147925和（勋章.Ordre）<> 11147192和（Ordre.Ordre）<> 11147206和（Ordre.Ordre）<> 11147217和（Ordre.Ordre）<> 11147219和（Ordre.Ordre）<> 11147220和（Ordre.Ordre）<> 11147221和（Ordre.Ordre）<> 11147255和（Ordre.Ordre）<> 11147263和（Ordre.Ordre）<> 11147265和（勋章.Ordre）<> 11147292和（Ordre.Ordre）<> 11147295和（Ordre.Ordre）<> 11147297和（Ordre.Ordre）<> 11147298和（Ordre.Ordre）<> 11147299和（Ordre.Ordre ）<> 11147300 And（Ordre.Ordre）<> 11146863 And （Ordre.Ordre）<> 11146864 And（Ordre.Ordre）<> 11147252 And （Ordre.Ordre）<> 11147547和（Ordre.Ordre）<> 11147550和（Ordre.Ordre）<> 11147551和（Ordre.Ordre）<> 11147556和（Ordre.Ordre）<> 11147588和（勋章.Ordre）<> 11147594和（Ordre.Ordre）<> 11147595和（Ordre.Ordre）<> 11147610和（Ordre.Ordre）<> 11147684和（Ordre.Ordre）<> 11147685和（勋章。令）<> 11147696鸭（Ordre.Ordre）<> 11147697和（Ordre.Ordre）<> 11147698鸭（Ordre.Ordre）<> 11147699和（Ordre.Ordre）<> 11147700鸭（Ordre.Ordre）< > 11147702和（Ordre.Ordre）<> 11147720鸭（Ordre.Ordre）<> 11147972和（Ordre.Ordre）<> 11147974鸭（Ordre.Ordre）<> 11147975和（Ordre.Ordre）<> 11147976和（Ordre.Ordre）<> 11147977和（Ordre.Ordre）<> 11147978鸭（Ordre.Ordre）<> 11147979和（Ordre.Ordre） <> 11147980鸭（Ordre.Ordre）<> 11147983和（Ordre.Ordre）<> 11147985鸭（Ordre.Ordre）<> 11147990和（Ordre.Ordre）<> 11147991鸭（Ordre.Ordre）<> 12156143和（Ordre.Ordre）<> 12156147鸭（Ordre.Ordre）<> 12156151和（Ordre.Ordre）<> 12155605鸭（Ordre.Ordre）<> 12155606和（Ordre.Ordre）<> 12155607鸭（ Ordre.Ordre）<> 12155608和（Ordre.Ordre）<> 12155609鸭（Ordre.Ordre）<> 12155610和（Ordre.Ordre）<> 12155611鸭（Ordre.Ordre）<> 12155616和（Ordre.Ordre）<> 12155436鸭（Ordre.Ordre）<> 12155437和（Ordre.Ordre）<> 12155438鸭（Ordre.Ordre）<> 12155764和（Ordre.Ordre）<> 12155765鸭（Ordre.Ordre）<> 12155444和（Ordre.Ordre）<> 12155429鸭（Ordre.Ordre）<> 12155430和（Ordre.Ordre）<> 12155431鸭（ Ordre.Ordre）<> 12155433和（Ordre.Ordre）<> 12155434鸭（Ordre.Ordre）<> 12155435和（Ordre.Ordre）<> 12155426鸭（Ordre.Ordre）<> 12155427和（Ordre.Ordre）<> 12155604鸭（Ordre.Ordre）<> 12155420和（Ordre.Ordre）<> 12155419鸭（Ordre.Ordre）<> 12155412和（Ordre.Ordre）<> 12155538鸭（Ordre.Ordre）<> 12155539和（Ordre.Ordre）<> 12155540鸭（Ordre.Ordre）<> 12155541和（Ordre.Ordre）<> 12155542鸭（ Ordre.Ordre）<> 12155543和（Ordre.Ordre）<> 12155544鸭（Ordre.Ordre）<> 12155545和（Ordre.Ordre）<> 12155546鸭（Ordre.Ordre）<> 12155547和（Ordre.Ordre）<> 12155442鸭（Ordre.Ordre）<> 12155440和（Ordre.Ordre）<> 12155441鸭（Ordre.Ordre）<> 12155443和（Ordre.Ordre）<> 12155446鸭（Ordre.Ordre）<> 12155445和（Ordre.Ordre）<> 12155448鸭（Ordre.Ordre）<> 12154726和（Ordre.Ordre）<> 12154727鸭（ Ordre.Ordre）<> 12154728和（Ordre.Ordre）<> 12154729鸭（Ordre.Ordre）<> 12154730和（订单。令）<> 12155570鸭（Ordre.Ordre）<> 12155704和（Ordre.Ordre）<> 12155935鸭（Ordre.Ordre）<> 12155936和（Ordre.Ordre）<> 12155937鸭（Ordre.Ordre）< > 12155938和（Ordre.Ordre）<> 12155939鸭（Ordre.Ordre）<> 12155940和（Ordre.Ordre）<> 12155941鸭（Ordre.Ordre）<> 12153256和（Ordre.Ordre）<> 13101358和（Ordre.Ordre）<> 13101309和（Ordre.Ordre）<> 13212576））GROUP BY Ordre.Ordre;

来源

2011-12-02 sebastien leblanc

stedet所有DEM ANDOR P和P，你应该使用IN语句。例如，

SELECT Ordre.Ordre, Sum(Ordre.Duree) AS SommeDeDuree 
FROM Ordre 
WHERE Ordre.Date >= #07/11/2011# 
    AND Ordre.Date <= #14/11/2011# 
    AND Ordre.Matricule In (257,516,591,...,2436,2471) 
    AND Ordre.Ordre Not In (10000477, 11146074, ... ,13101309,13212576) 
GROUP BY Ordre.Ordre;

来源

2011-12-02 17:10:58 mwolfe02

SELV OM mwolfe02的解决方案是正确的，它并不能很好地扩展（如原proble马蒂奇SQL）。该NOT IN表达只是让你们两个适合更多的价值到您的SQL字符串你打的长度限制之前。

这将是更具可扩展性，虽然比较繁琐，二把值到一个临时表。这将också的让你们两个使用对于空值过滤器的外连接，SOM可能会运行更snabbt fordi NOT IN方式是低效的。例如：

SELECT Ordre.Ordre, Sum(Ordre.Duree) AS SommeDeDuree 

FROM Ordre LEFT JOIN TemporaryTableName 
    ON Ordre.Ordre = TemporaryTableName.Ordre 

WHERE Ordre.Date >= #07/11/2011# 
    AND Ordre.Date <= #14/11/2011# 
    AND Ordre.Matricule In (257,516,591,...,2436,2471) 
    AND TemporaryTableName.Ordre IS NULL 

GROUP BY Ordre.Ordre;

来源

2011-12-02 19:02:38 phoog

这是一个很好的点。我没有讨论这个fordi OP正在与从Excel访问。这并不是说ATT betyder它不能做，只是ATT在这种情况下，“更麻烦的”冰faktisk“更麻烦的。”使用并具有不只是提出了什么，他可以从一个单一的查询做吊顶。你的方法删除天花板和också更好的性能，但它是从开发商的立场来看更为复杂。这是合乎逻辑的下一步，如果简单的方法（在/不在进行中）出现故障或运行太慢。 – mwolfe02

这绝不betyder不可能2参见腻味一个Excel工作表，并在同一个SQL语句的Access数据库。

Dim cn As Object 
Dim rs As Object 
Dim strFile As String 
Dim strCon As String 
Dim strSQL As String 
Dim strExcel As String 
Dim s As String 
Dim i As Integer, j As Integer 

strFile = "Z:\docs\LTD.mdb" 

''Access and Excel 2007/2010 
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile 

''Late binding, so no reference is needed 

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 

cn.Open strCon 

strExcel = "[Excel 12.0 Xml;HDR=YES;IMEX=2;ACCDB=YES;DATABASE=Z:\Docs\Book1.xlsm]" 

strSQL = "SELECT * " _ 
     & "FROM New a " _ 
     & "INNER JOIN " & strExcel & ".[Sheet1$] b " _ 
     & "ON a.ID = b.ID" 

rs.Open strSQL, cn, 3, 3 


''Pick a suitable empty worksheet for the results 

Worksheets("Sheet3").Cells(2, 1).CopyFromRecordset rs 

''Tidy up 
rs.Close 
Set rs = Nothing 
cn.Close 
Set cn = Nothing

来源

2011-12-03 01:10:45 Fionnuala

而不是使用动态SQL（即串联在飞行中的值），imødekommeskapa一个PROCEDURE具有大量强类型参数ATT默认2 NULL的。这里有一个快速演示....

我已经skrevet参数名称出长交接，但当然也可以在循环中完成。只需复制并粘贴到丙氨酰VBA代码模块，无需引用（例如使用Excel）：

Sub AccessManyParams() 

    On Error Resume Next 
    Kill Environ$("temp") & "\DropMe.mdb" 
    On Error GoTo 0 

    Dim cat 
    Set cat = CreateObject("ADOX.Catalog") 

    With cat 
    .Create _ 
     "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
     "Data Source=" & _ 
     Environ$("temp") & "\DropMe.mdb" 

    With .ActiveConnection 

     Dim Sql As String 

     Sql = _ 
     "CREATE TABLE Ordre (Ordre INTEGER NOT NULL UNIQUE);" 
     .Execute Sql 

     Sql = _ 
     "INSERT INTO Ordre VALUES (55);" 
     .Execute Sql 

     Sql = _ 
     "INSERT INTO Ordre VALUES (22);" 
     .Execute Sql 

     Sql = vbNullString 
     Sql = Sql & "CREATE PROCEDURE ChercherOrdres (" 
     Sql = Sql & "ordre_001 INTEGER = NULL, " 
     Sql = Sql & "ordre_002 INTEGER = NULL, " 
     Sql = Sql & "ordre_003 INTEGER = NULL, " 
     Sql = Sql & "ordre_004 INTEGER = NULL, " 
     Sql = Sql & "ordre_005 INTEGER = NULL, " 
     Sql = Sql & "ordre_006 INTEGER = NULL, " 
     Sql = Sql & "ordre_007 INTEGER = NULL, " 
     Sql = Sql & "ordre_008 INTEGER = NULL, " 
     Sql = Sql & "ordre_009 INTEGER = NULL, " 
     Sql = Sql & "ordre_010 INTEGER = NULL, " 
     Sql = Sql & "ordre_011 INTEGER = NULL, " 
     Sql = Sql & "ordre_012 INTEGER = NULL, " 
     Sql = Sql & "ordre_013 INTEGER = NULL, " 
     Sql = Sql & "ordre_014 INTEGER = NULL, " 
     Sql = Sql & "ordre_015 INTEGER = NULL, " 
     Sql = Sql & "ordre_016 INTEGER = NULL, " 
     Sql = Sql & "ordre_017 INTEGER = NULL, " 
     Sql = Sql & "ordre_018 INTEGER = NULL, " 
     Sql = Sql & "ordre_019 INTEGER = NULL, " 
     Sql = Sql & "ordre_020 INTEGER = NULL, " 
     Sql = Sql & "ordre_021 INTEGER = NULL, " 
     Sql = Sql & "ordre_022 INTEGER = NULL, " 
     Sql = Sql & "ordre_023 INTEGER = NULL, " 
     Sql = Sql & "ordre_024 INTEGER = NULL, " 
     Sql = Sql & "ordre_025 INTEGER = NULL, " 
     Sql = Sql & "ordre_026 INTEGER = NULL, " 
     Sql = Sql & "ordre_027 INTEGER = NULL, " 
     Sql = Sql & "ordre_028 INTEGER = NULL, " 
     Sql = Sql & "ordre_029 INTEGER = NULL, " 
     Sql = Sql & "ordre_030 INTEGER = NULL, " 
     Sql = Sql & "ordre_031 INTEGER = NULL, " 
     Sql = Sql & "ordre_032 INTEGER = NULL, " 
     Sql = Sql & "ordre_033 INTEGER = NULL, " 
     Sql = Sql & "ordre_034 INTEGER = NULL, " 
     Sql = Sql & "ordre_035 INTEGER = NULL, " 
     Sql = Sql & "ordre_036 INTEGER = NULL, " 
     Sql = Sql & "ordre_037 INTEGER = NULL, " 
     Sql = Sql & "ordre_038 INTEGER = NULL, " 
     Sql = Sql & "ordre_039 INTEGER = NULL, " 
     Sql = Sql & "ordre_040 INTEGER = NULL, " 
     Sql = Sql & "ordre_041 INTEGER = NULL, " 
     Sql = Sql & "ordre_042 INTEGER = NULL, " 
     Sql = Sql & "ordre_043 INTEGER = NULL, " 
     Sql = Sql & "ordre_044 INTEGER = NULL, " 
     Sql = Sql & "ordre_045 INTEGER = NULL, " 
     Sql = Sql & "ordre_046 INTEGER = NULL, " 
     Sql = Sql & "ordre_047 INTEGER = NULL, " 
     Sql = Sql & "ordre_048 INTEGER = NULL, " 
     Sql = Sql & "ordre_049 INTEGER = NULL, " 
     Sql = Sql & "ordre_050 INTEGER = NULL, " 
     Sql = Sql & "ordre_051 INTEGER = NULL, " 
     Sql = Sql & "ordre_052 INTEGER = NULL, " 
     Sql = Sql & "ordre_053 INTEGER = NULL, " 
     Sql = Sql & "ordre_054 INTEGER = NULL, " 
     Sql = Sql & "ordre_055 INTEGER = NULL, " 
     Sql = Sql & "ordre_056 INTEGER = NULL, " 
     Sql = Sql & "ordre_057 INTEGER = NULL, " 
     Sql = Sql & "ordre_058 INTEGER = NULL, " 
     Sql = Sql & "ordre_059 INTEGER = NULL, " 
     Sql = Sql & "ordre_060 INTEGER = NULL, " 
     Sql = Sql & "ordre_061 INTEGER = NULL, " 
     Sql = Sql & "ordre_062 INTEGER = NULL, " 
     Sql = Sql & "ordre_063 INTEGER = NULL, " 
     Sql = Sql & "ordre_064 INTEGER = NULL, " 
     Sql = Sql & "ordre_065 INTEGER = NULL, " 
     Sql = Sql & "ordre_066 INTEGER = NULL, " 
     Sql = Sql & "ordre_067 INTEGER = NULL, " 
     Sql = Sql & "ordre_068 INTEGER = NULL, " 
     Sql = Sql & "ordre_069 INTEGER = NULL, " 
     Sql = Sql & "ordre_070 INTEGER = NULL, " 
     Sql = Sql & "ordre_071 INTEGER = NULL, " 
     Sql = Sql & "ordre_072 INTEGER = NULL, " 
     Sql = Sql & "ordre_073 INTEGER = NULL, " 
     Sql = Sql & "ordre_074 INTEGER = NULL, " 
     Sql = Sql & "ordre_075 INTEGER = NULL, " 
     Sql = Sql & "ordre_076 INTEGER = NULL, " 
     Sql = Sql & "ordre_077 INTEGER = NULL, " 
     Sql = Sql & "ordre_078 INTEGER = NULL, " 
     Sql = Sql & "ordre_079 INTEGER = NULL, " 
     Sql = Sql & "ordre_080 INTEGER = NULL, " 
     Sql = Sql & "ordre_081 INTEGER = NULL, " 
     Sql = Sql & "ordre_082 INTEGER = NULL, " 
     Sql = Sql & "ordre_083 INTEGER = NULL, " 
     Sql = Sql & "ordre_084 INTEGER = NULL, " 
     Sql = Sql & "ordre_085 INTEGER = NULL, " 
     Sql = Sql & "ordre_086 INTEGER = NULL, " 
     Sql = Sql & "ordre_087 INTEGER = NULL, " 
     Sql = Sql & "ordre_088 INTEGER = NULL, " 
     Sql = Sql & "ordre_089 INTEGER = NULL, " 
     Sql = Sql & "ordre_090 INTEGER = NULL, " 
     Sql = Sql & "ordre_091 INTEGER = NULL, " 
     Sql = Sql & "ordre_092 INTEGER = NULL, " 
     Sql = Sql & "ordre_093 INTEGER = NULL, " 
     Sql = Sql & "ordre_094 INTEGER = NULL, " 
     Sql = Sql & "ordre_095 INTEGER = NULL, " 
     Sql = Sql & "ordre_096 INTEGER = NULL, " 
     Sql = Sql & "ordre_097 INTEGER = NULL, " 
     Sql = Sql & "ordre_098 INTEGER = NULL, " 
     Sql = Sql & "ordre_099 INTEGER = NULL, " 
     Sql = Sql & "ordre_100 INTEGER = NULL, " 
     Sql = Sql & "ordre_101 INTEGER = NULL, " 
     Sql = Sql & "ordre_102 INTEGER = NULL, " 
     Sql = Sql & "ordre_103 INTEGER = NULL, " 
     Sql = Sql & "ordre_104 INTEGER = NULL, " 
     Sql = Sql & "ordre_105 INTEGER = NULL, " 
     Sql = Sql & "ordre_106 INTEGER = NULL, " 
     Sql = Sql & "ordre_107 INTEGER = NULL, " 
     Sql = Sql & "ordre_108 INTEGER = NULL, " 
     Sql = Sql & "ordre_109 INTEGER = NULL, " 
     Sql = Sql & "ordre_110 INTEGER = NULL, " 
     Sql = Sql & "ordre_111 INTEGER = NULL, " 
     Sql = Sql & "ordre_112 INTEGER = NULL, " 
     Sql = Sql & "ordre_113 INTEGER = NULL, " 
     Sql = Sql & "ordre_114 INTEGER = NULL, " 
     Sql = Sql & "ordre_115 INTEGER = NULL, " 
     Sql = Sql & "ordre_116 INTEGER = NULL, " 
     Sql = Sql & "ordre_117 INTEGER = NULL, " 
     Sql = Sql & "ordre_118 INTEGER = NULL, " 
     Sql = Sql & "ordre_119 INTEGER = NULL, " 
     Sql = Sql & "ordre_120 INTEGER = NULL, " 
     Sql = Sql & "ordre_121 INTEGER = NULL, " 
     Sql = Sql & "ordre_122 INTEGER = NULL, " 
     Sql = Sql & "ordre_123 INTEGER = NULL, " 
     Sql = Sql & "ordre_124 INTEGER = NULL, " 
     Sql = Sql & "ordre_125 INTEGER = NULL, " 
     Sql = Sql & "ordre_126 INTEGER = NULL, " 
     Sql = Sql & "ordre_127 INTEGER = NULL, " 
     Sql = Sql & "ordre_128 INTEGER = NULL, " 
     Sql = Sql & "ordre_129 INTEGER = NULL, " 
     Sql = Sql & "ordre_130 INTEGER = NULL, " 
     Sql = Sql & "ordre_131 INTEGER = NULL, " 
     Sql = Sql & "ordre_132 INTEGER = NULL, " 
     Sql = Sql & "ordre_133 INTEGER = NULL, " 
     Sql = Sql & "ordre_134 INTEGER = NULL, " 
     Sql = Sql & "ordre_135 INTEGER = NULL, " 
     Sql = Sql & "ordre_136 INTEGER = NULL, " 
     Sql = Sql & "ordre_137 INTEGER = NULL, " 
     Sql = Sql & "ordre_138 INTEGER = NULL, " 
     Sql = Sql & "ordre_139 INTEGER = NULL, " 
     Sql = Sql & "ordre_140 INTEGER = NULL, " 
     Sql = Sql & "ordre_141 INTEGER = NULL, " 
     Sql = Sql & "ordre_142 INTEGER = NULL, " 
     Sql = Sql & "ordre_143 INTEGER = NULL, " 
     Sql = Sql & "ordre_144 INTEGER = NULL, " 
     Sql = Sql & "ordre_145 INTEGER = NULL, " 
     Sql = Sql & "ordre_146 INTEGER = NULL, " 
     Sql = Sql & "ordre_147 INTEGER = NULL, " 
     Sql = Sql & "ordre_148 INTEGER = NULL, " 
     Sql = Sql & "ordre_149 INTEGER = NULL, " 
     Sql = Sql & "ordre_150 INTEGER = NULL) AS " 
     Sql = Sql & "SELECT * FROM Ordre WHERE Ordre NOT IN (" 
     Sql = Sql & "ordre_001, " 
     Sql = Sql & "ordre_002, " 
     Sql = Sql & "ordre_003, " 
     Sql = Sql & "ordre_004, " 
     Sql = Sql & "ordre_005, " 
     Sql = Sql & "ordre_006, " 
     Sql = Sql & "ordre_007, " 
     Sql = Sql & "ordre_008, " 
     Sql = Sql & "ordre_009, " 
     Sql = Sql & "ordre_010, " 
     Sql = Sql & "ordre_011, " 
     Sql = Sql & "ordre_012, " 
     Sql = Sql & "ordre_013, " 
     Sql = Sql & "ordre_014, " 
     Sql = Sql & "ordre_015, " 
     Sql = Sql & "ordre_016, " 
     Sql = Sql & "ordre_017, " 
     Sql = Sql & "ordre_018, " 
     Sql = Sql & "ordre_019, " 
     Sql = Sql & "ordre_020, " 
     Sql = Sql & "ordre_021, " 
     Sql = Sql & "ordre_022, " 
     Sql = Sql & "ordre_023, " 
     Sql = Sql & "ordre_024, " 
     Sql = Sql & "ordre_025, " 
     Sql = Sql & "ordre_026, " 
     Sql = Sql & "ordre_027, " 
     Sql = Sql & "ordre_028, " 
     Sql = Sql & "ordre_029, " 
     Sql = Sql & "ordre_030, " 
     Sql = Sql & "ordre_031, " 
     Sql = Sql & "ordre_032, " 
     Sql = Sql & "ordre_033, " 
     Sql = Sql & "ordre_034, " 
     Sql = Sql & "ordre_035, " 
     Sql = Sql & "ordre_036, " 
     Sql = Sql & "ordre_037, " 
     Sql = Sql & "ordre_038, " 
     Sql = Sql & "ordre_039, " 
     Sql = Sql & "ordre_040, " 
     Sql = Sql & "ordre_041, " 
     Sql = Sql & "ordre_042, " 
     Sql = Sql & "ordre_043, " 
     Sql = Sql & "ordre_044, " 
     Sql = Sql & "ordre_045, " 
     Sql = Sql & "ordre_046, " 
     Sql = Sql & "ordre_047, " 
     Sql = Sql & "ordre_048, " 
     Sql = Sql & "ordre_049, " 
     Sql = Sql & "ordre_050, " 
     Sql = Sql & "ordre_051, " 
     Sql = Sql & "ordre_052, " 
     Sql = Sql & "ordre_053, " 
     Sql = Sql & "ordre_054, " 
     Sql = Sql & "ordre_055, " 
     Sql = Sql & "ordre_056, " 
     Sql = Sql & "ordre_057, " 
     Sql = Sql & "ordre_058, " 
     Sql = Sql & "ordre_059, " 
     Sql = Sql & "ordre_060, " 
     Sql = Sql & "ordre_061, " 
     Sql = Sql & "ordre_062, " 
     Sql = Sql & "ordre_063, " 
     Sql = Sql & "ordre_064, " 
     Sql = Sql & "ordre_065, " 
     Sql = Sql & "ordre_066, " 
     Sql = Sql & "ordre_067, " 
     Sql = Sql & "ordre_068, " 
     Sql = Sql & "ordre_069, " 
     Sql = Sql & "ordre_070, " 
     Sql = Sql & "ordre_071, " 
     Sql = Sql & "ordre_072, " 
     Sql = Sql & "ordre_073, " 
     Sql = Sql & "ordre_074, " 
     Sql = Sql & "ordre_075, " 
     Sql = Sql & "ordre_076, " 
     Sql = Sql & "ordre_077, " 
     Sql = Sql & "ordre_078, " 
     Sql = Sql & "ordre_079, " 
     Sql = Sql & "ordre_080, " 
     Sql = Sql & "ordre_081, " 
     Sql = Sql & "ordre_082, " 
     Sql = Sql & "ordre_083, " 
     Sql = Sql & "ordre_084, " 
     Sql = Sql & "ordre_085, " 
     Sql = Sql & "ordre_086, " 
     Sql = Sql & "ordre_087, " 
     Sql = Sql & "ordre_088, " 
     Sql = Sql & "ordre_089, " 
     Sql = Sql & "ordre_090, " 
     Sql = Sql & "ordre_091, " 
     Sql = Sql & "ordre_092, " 
     Sql = Sql & "ordre_093, " 
     Sql = Sql & "ordre_094, " 
     Sql = Sql & "ordre_095, " 
     Sql = Sql & "ordre_096, " 
     Sql = Sql & "ordre_097, " 
     Sql = Sql & "ordre_098, " 
     Sql = Sql & "ordre_099, " 
     Sql = Sql & "ordre_100, " 
     Sql = Sql & "ordre_101, " 
     Sql = Sql & "ordre_102, " 
     Sql = Sql & "ordre_103, " 
     Sql = Sql & "ordre_104, " 
     Sql = Sql & "ordre_105, " 
     Sql = Sql & "ordre_106, " 
     Sql = Sql & "ordre_107, " 
     Sql = Sql & "ordre_108, " 
     Sql = Sql & "ordre_109, " 
     Sql = Sql & "ordre_110, " 
     Sql = Sql & "ordre_111, " 
     Sql = Sql & "ordre_112, " 
     Sql = Sql & "ordre_113, " 
     Sql = Sql & "ordre_114, " 
     Sql = Sql & "ordre_115, " 
     Sql = Sql & "ordre_116, " 
     Sql = Sql & "ordre_117, " 
     Sql = Sql & "ordre_118, " 
     Sql = Sql & "ordre_119, " 
     Sql = Sql & "ordre_120, " 
     Sql = Sql & "ordre_121, " 
     Sql = Sql & "ordre_122, " 
     Sql = Sql & "ordre_123, " 
     Sql = Sql & "ordre_124, " 
     Sql = Sql & "ordre_125, " 
     Sql = Sql & "ordre_126, " 
     Sql = Sql & "ordre_127, " 
     Sql = Sql & "ordre_128, " 
     Sql = Sql & "ordre_129, " 
     Sql = Sql & "ordre_130, " 
     Sql = Sql & "ordre_131, " 
     Sql = Sql & "ordre_132, " 
     Sql = Sql & "ordre_133, " 
     Sql = Sql & "ordre_134, " 
     Sql = Sql & "ordre_135, " 
     Sql = Sql & "ordre_136, " 
     Sql = Sql & "ordre_137, " 
     Sql = Sql & "ordre_138, " 
     Sql = Sql & "ordre_139, " 
     Sql = Sql & "ordre_140, " 
     Sql = Sql & "ordre_141, " 
     Sql = Sql & "ordre_142, " 
     Sql = Sql & "ordre_143, " 
     Sql = Sql & "ordre_144, " 
     Sql = Sql & "ordre_145, " 
     Sql = Sql & "ordre_146, " 
     Sql = Sql & "ordre_147, " 
     Sql = Sql & "ordre_148, " 
     Sql = Sql & "ordre_149, " 
     Sql = Sql & "ordre_150);" 

     .Execute Sql 
    End With 

    Dim cmd 
    Set cmd = CreateObject("ADODB.Command") 
    Set cmd.ActiveConnection = .ActiveConnection 

    With cmd 
     .CommandType = adCmdStoredProc 
     .CommandText = "ChercherOrdres" 
     .Parameters.Append .CreateParameter("ordre_091", adInteger, , , "22") 
     .Parameters.Append .CreateParameter("ordre_147", adInteger, , , "-99") 

     Dim rs 
     Set rs = .Execute 
     MsgBox rs.GetString 

    End With 
    Set .ActiveConnection = Nothing 
    End With 
End Sub

来源

2011-12-05 09:55:27 onedaywhen

访问VBA SQL字符串太长

回答

相关问题