access runsql 如何將單筆讀取改成多筆呢?

冰殤

底下的指令雖然可執行讀取多個EXCEL檔案,但是into的資料表只會有最後一次讀取的檔案資料

1.   Private Sub t001_Click()
   
2.     'Dim TbaName As String, TbbName As String '表名稱變數
   
3. '    CurrentDb.Execute ("delete * from Main")
   
4. If MsgBox("請準備好導入的文件！", vbOKCancel, "打印確認") = 1 Then
   
5.     Dim rs As Recordset
   
6.     Dim FN As String
   
7.     Dim URL() As Variant
   
8.     Dim i As Long
   
9. 
   
10. '    On Error GoTo ER
    
11. 
    
12.     URL = dbFunction.Inport_From_Excel
    
13.     i = 1
    
14. 
    
15.     DoCmd.SetWarnings False
    
16. 條件 = Me.週期
    
17.     Do Until i = UBound(URL) + 1
    
18. 101        FN = Dir(URL(i))
    
19. 
    
20. 
    
21.         mySQL = "SELECT 特殊_1,備註_3,異常_3,代號_3" _
    
22. & " INTO  MAIN FROM [Excel 8.0;Database=" & URL(i) & "].[派單$] WHERE 周期 ='" & 條件 & "';" & "   "
    
23. DoCmd.RunSQL mySQL '運行SQL
    
24. 
    
25.         i = i + 1
    
26.     Loop
    
27. 
    
28. MsgBox "您於" & Now() & "更新數據成功！", vbInformation '人性化提示
    
29.     DoCmd.Close acForm, Me.Name
    
30. 
    
31. 
    
32.         End If
    
33.         
    
34.     End Sub
    
35. 
    

复制代码

自訂函數

1. Public Function Inport_From_Excel() As Variant
   
2. Dim FileUrl As String
   
3. Dim fso As Office.FileDialog
   
4. Dim V() As Variant, c As Long, R As Long
   
5. On Error GoTo exf
   
6. Set fso = Application.FileDialog(msoFileDialogFilePicker)
   
7. With fso
   
8.     .AllowMultiSelect = True
   
9.     .Filters.Clear
   
10.     .Filters.Add "xlsm", "*.xlsm"
    
11.     .Filters.Add "xlsx", "*.xlsx"
    
12.     .Filters.Add "xltx", "*.xltx"
    
13.     .Filters.Add "xltm", "*.xltm"
    
14.     .Filters.Add "xlsb", "*.xlam"
    
15.     .Filters.Add "ALL", "*.*"
    
16.     .Show
    
17. End With
    
18. R = fso.SelectedItems.Count
    
19. ReDim V(1 To R)
    
20. 
    
21. For c = 1 To R
    
22.     V(c) = fso.SelectedItems.Item(c)
    
23. Next c
    
24. 
    
25. Inport_From_Excel = V
    
26. 
    
27. Exit Function
    
28. exf:
    
29.     'MsgBox VBA.Err.Description
    
30. End Function
    
31. 
    
32. Function fExistTable(strTableName As String)
    
33. Dim db As dao.Database
    
34. Dim i As Integer
    
35.     Set db = DBEngine.Workspaces(0).Databases(0)
    
36.     fExistTable = False
    
37.     db.TableDefs.Refresh
    
38.     For i = 0 To db.TableDefs.Count - 1
    
39.         If strTableName = db.TableDefs(i).Name Then
    
40.             'Table Exists
    
41.             DoCmd.DeleteObject acTable, strTableName
    
42.             Exit For
    
43.         End If
    
44.     Next i
    
45.     Set db = Nothing
    
46. End Function

复制代码

marco

SELECT INTO 和 INSERT INTO SELECT 两种表复制语句

      Insert是T-sql中常用语句，Insert INTO table(field1,field2,...) values(value1,value2,...)这种形式的在应用程序开发中必不可少。但我们在开发、测试过程中，经常会遇到需要表复制的情况，如将一个table1的数据的部分字段复制到table2中，或者将整个table1复制到table2中，这时候我们就要使用SELECT INTO 和 INSERT INTO SELECT 表复制语句了。

      1.INSERT INTO SELECT语句

      语句形式为：Insert into Table2(field1,field2,...) select value1,value2,... from Table1

      要求目标表Table2必须存在，由于目标表Table2已经存在，所以我们除了插入源表Table1的字段外，还可以插入常量。示例如下：

INSERT INTO SELECT语句复制表数据

      2.SELECT INTO FROM语句

      语句形式为：SELECT vale1, value2 into Table2 from Table1

      要求目标表Table2不存在，因为在插入时会自动创建表Table2，并将Table1中指定字段数据复制到Table2中。示例如下：

SELECT INTO FROM创建表并复制表数据

冰殤

marco 发表于 2018-1-7 13:06
SELECT INTO 和 INSERT INTO SELECT 两种表复制语句

      Insert是T-sql中常用语句，Insert INTO table ...

感謝版大指導