参数太少。预计1 CSV导入

时间:2016-06-29 08:02:45

标签: vba csv ms-access

我尝试通过VBA将CSV文件导入Access数据库。我收到此错误:"运行时错误:' 3061':参数太少。预计1。"

我已经尝试添加单引号,就像其他有关此问题的线程一样,但它没有帮助。

    strSQL = "INSERT INTO Import (" & _
         "[Equipment]" & _
         ",[Description]" & _
         ",[User_status]" & _
         ",[Functional_Location]" & _
         ",[Functional_Location_Desc]" & _
         ",[Cost_Center]" & _
         ",[Main_WorkCtr]" & _
         ",[Manufacturer]" & _
         ",[Model_Number]" & _
         ",[Serial_Number]" & _
         ",[Plant_Section])" & _
         " SELECT Equipment,Description,User_status" & _
         ",Functional_Loc,Description3,Cost_Center,Main_WorkCtr" & _
         ",Manufacturer,Model_number,ManufSerialNo,Plant_section" & _
         " FROM [Text" & _
                ";FMT=Delimited" & _
                ";HDR=YES" & _
                ";IMEX=2" & _
                ";CharacterSet=1252" & _
                ";DATABASE=" & strFolder & "].[" & strFilename & "]"

CurrentDb.Execute strSQL

我的CSV文件的第一行:设备,说明,User_status,Functional_Loc,Description3,Cost_Center,Main_WorkCtr,制造商,Model_number,ManufSerialNo,Plant_section

My Import Table

感谢您的帮助。

标记

1 个答案:

答案 0 :(得分:0)

我要偷窃vacip的答案并扩展它。我100%同意他的建议:

  

在CurrentDB.Execute之前添加Debug.Print strSQL并查看是否存在   好吧,有所有的价值观等。

我建议将Debug.Print的结果粘贴到Access查询向导的SQL窗口中。然后尝试运行它。当Access通过查询构建器运行时,有时错误更明显。此外,切换到此新查询的“设计”视图,查看是否有任何问题。通常在这两个视图之间,我可以找出我的查询所遇到的任何问题。