运行SQL查询在Access VBA

Question

我试着运行在Access中VBA的SQL查询，但我的查询是太长，无法在同一行

INSERT INTO tblProduct SELECT[SAMPartGrp],[ProductPrefix] ,[ProductCode] ,[pcode1],[pcode2],[SubPart1],[SubPart2],[ProductCodeNew],[ProductDescription],[MadeFrom],[MadeFromDescription],[Field1],[SamFamilySort1],[SamFamilySort2],[SamFamilySort3] 
,[SamFamilySort4],[SamFamilySort5],[Grade],[Length],[Thickness],[fWidth],[Factor],[CubicMtrs],[CubicMtrsFull],[Weight(T)],[DrawingFilepath],[PackingFilePath],[EFACSProductGrouping],[BatchSize],[PackSize],[Density],[createdby],[createddate],[ProductType],[reorderpolicy],[EFACSExport],[PreactorExport],[customer],[Obsolete/DoNotUse],[noinminipack],[piecesincrate],[minipackheight],[DimA],[DimB],[DimC],[DimD],[DimE],[DimF],[DimG],[DimH],[DimI],[DimJ],[DimK],[DimL],[DimM],[DimN],[DimO] ,[DimP],[DimQ],[DimR],[DimS],[DimT],[DimU],[DimV],[DimW],[DimX],[DimY],[DimZ],[TolA],[TolB],[TolC],[TolD],[TolE],[TolF],[TolG],[TolH],[TolI],[TolJ],[TolK],[TolL],[TolM],[TolN],[TolO],[TolP],[TolQ],[TolR],[TolS],[TolT],[TolU],[TolV],[TolW],[TolX],[TolY],[TolZ] 
    ,[Dimension],[Main],[Saws],[Moulders],[PaintLines],[XCut],[DET],[MitreSaw],[Wrapper],[Blocks] 
    ,[HingeRecess],[ShrinkWrap],[CNC],[SW],[ShrinkWrapPackSize] ,[SAMBarCode],[machinedaway],[ExcludeFromPreactorUpload],[UseOtherM3XC],[UseOtherM3XC81],[UseOtherM3MS],[UseOtherM3MS83],[comment],[samtype1],[fsc],[LabelPack],[LabelPiece],[trml],[vtype1],[vtype2],[minipack] ,[profile],[madefromlength],[productchamp],[packtype],[uom],[acumatica],[Cupboard],[AcmtaExport],[ExportedtoAcmta],[PostingClass] 
    FROM tblProducts 

所以它不会在运行一次完整的查询，有没有解决方法？

Answer 1

你有几个问题。

一个是SQL服务器和Access SQL不一样。访问SQL更受限制，因为SQL查询在SQL服务器上运行并不意味着它将在Access中运行。要运行与Access SQL不兼容的SQL Server查询，您必须使用传递查询。

另一个问题是Access表名和SQL服务器表名不一定相同。现在

，假设你已经采取了所有的考虑和您的查询实际上是访问SQL兼容，你可以像这样运行：

Dim sql as String 
sql = "Query part A" 
sql = sql & "Query Part B" 
... repeat as necessary 
DoCmd.RunSQL sql 

Answer 2

SQL不考虑空白空间，这应该一次运行整个查询。

我觉得你的问题是，你要使用SELECT INTO与TSQL

在这里看到更多的信息：

https://msdn.microsoft.com/en-us/library/bb208934(v=office.12).aspx

Answer 3

您刚才谈到环绕格式，在您使用了“ & _“继续你的字符串？

strSQL = "SELECT [SAMPartGrp],[ProductPrefix] ,[ProductCode] ,[pcode1], " & _ 
    "[pcode2], [SubPart1],[SubPart2],[ProductCodeNew],[ProductDescription], " & _ 
    "[MadeFrom], [MadeFromDescription],[Field1],[SamFamilySort1], " & _ 
    "[SamFamilySort2],[SamFamilySort3],[SamFamilySort4], " & _ 
    "[SamFamilySort5], [Grade], " 

Answer 4

试试这个。

Dim strSQL as String 

strSQL = "INSERT INTO tblProduct SELECT[SAMPartGrp],[ProductPrefix] , " & _ 
     "[ProductCode] ,[pcode1],[pcode2],[SubPart1],[SubPart2],[ProductCodeNew], " & _ 
     "[ProductDescription],[MadeFrom],[MadeFromDescription],[Field1], " & _ 
     "[SamFamilySort1],[SamFamilySort2],[SamFamilySort3], [SamFamilySort4], " _ 
     "[SamFamilySort5],[Grade],[Length],[Thickness], [fWidth],[Factor], " & _ 
     "[CubicMtrs],[CubicMtrsFull],[Weight(T)],[DrawingFilepath], " & _ 
     "[PackingFilePath],[EFACSProductGrouping],[BatchSize], " & _           
     "[PackSize],[Density],[createdby],[createddate],[ProductType], " & _ 
     "[reorderpolicy],[EFACSExport],[PreactorExport],[customer], " & _ 
     "[Obsolete/DoNotUse],[noinminipack],[piecesincrate], [minipackheight], " & _ 
     "[DimA],[DimB],[DimC],[DimD],[DimE],[DimF],[DimG],[DimH], " & _ 
     "[DimI],[DimJ],[DimK],[DimL],[DimM],[DimN],[DimO] ,[DimP], " &_ 
     "[DimQ],[DimR],[DimS],[DimT],[DimU],[DimV],[DimW],[DimX], " & _ 
     "[DimY],[DimZ],[TolA],[TolB],[TolC],[TolD],[TolE],[TolF], " & _  
     "[TolG],[TolH],[TolI],[TolJ],[TolK],[TolL],[TolM],[TolN], " & _ 
     "[TolO],[TolP],[TolQ],[TolR],[TolS],[TolT],[TolU],[TolV], " & _ 
     "[TolW],[TolX],[TolY],[TolZ],[Dimension],[Main],[Saws], " &_ 
     "[Moulders],[PaintLines],[XCut],[DET],[MitreSaw],[Wrapper], " &_ 
     "[Blocks],[HingeRecess],[ShrinkWrap],[CNC],[SW], " & _ 
     "[ShrinkWrapPackSize] ,[SAMBarCode],[machinedaway], " & _ 
     "[ExcludeFromPreactorUpload],[UseOtherM3XC],[UseOtherM3XC81], " & _ 
     "[UseOtherM3MS],[UseOtherM3MS83],[comment],[samtype1],[fsc], " & _ 
     "[LabelPack],[LabelPiece],[trml],[vtype1],[vtype2],[minipack] , " & _ 
     "[profile],[madefromlength],[productchamp],[packtype],[uom], " & _ 
     "[acumatica],[Cupboard],[AcmtaExport],[ExportedtoAcmta], " & _ 
     "[PostingClass] FROM tblProducts;" 
DoCmd.RunSQL strSQL