用ADO来导出所有表的所有字段

卡西达

1. Function ExportColumns()
   
2. DoCmd.RunSQL "delete * from A" 'A表为目标存放位置
   
3. Dim Conn As ADODB.Connection
   
4. Dim Rs As ADODB.Recordset
   
5. Dim i As Integer
   
6. Dim Str As String
   
7. Dim Str1 As String
   
8. Dim Str2 As String
   
9. Dim Str33 As String
   
10. Set Conn = CurrentProject.Connection
    
11. Set Rs = Conn.OpenSchema(adSchemaColumns, Array(Empty, Empty, Empty, Empty))
    
12. Do Until Rs.EOF
    
13. 'If Mid(Rs!table_name, 1, 1) <> "M" And Mid(Rs!table_name, 1, 1) <> "A" Then
    
14. If Mid(Rs!table_name, 1, 1) <> "M" Then
    
15. Str = Nz(Rs!table_name)
    
16. Str1 = Nz(Rs!Description)
    
17. Str2 = Nz(Rs!column_name)
    
18. DoCmd.RunSQL "insert into A (Tnam,des,Cnam) values (" & "'" & Str & "'" & "," & "'" & Str1 & "'" & "," & "'" & Str2 & "'" & ")"
    
19. 
    
20. End If
    
21. Rs.MoveNext
    
22. Loop
    
23. DoCmd.TransferSpreadsheet acExport, 8, "A", "Path", False, ""
    
24. End Function

复制代码