9570_zh-TW

liliconcom

從 Access 數據庫中獲取表的列表<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

你好，

我正在嘗試在應用程序構建器中創建一個用戶窗體，使用本機功能，為什麼不使用 JSL。 我有想法，現在我需要繼續......

首先，有誰知道如何獲取 Access 數據庫中所有表的列表？ 當然，該列表將在用戶表單上。

感謝您的支持，我開始操作 JMP 11。

回复：從 Access 數據庫中獲取表的列表

1. 在訪問中創建一個模塊並粘貼此代碼。
2. 在調試窗口中運行
3. 在立即窗口中復制生成的表列表。

Public Sub List_fields_in_tables()
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field

    For Each tdf In CurrentDb.TableDefs
        If Left(tdf.Name, 4) <> "MSys" Then
            Debug.Print
            Debug.Print
            Debug.Print tdf.Name
            Debug.Print "----------------------------------------"
    
            
            For Each fld In tdf.Fields
                Debug.Print fld.Name & Space(20 - Len(fld.Name)) & fld.Size & Space(10 - Len(Str(fld.Size))) & FDataType(fld.Type)
        
            Next fld
        End If
    Next tdf

End Sub

Private Function FDataType(intType As Integer) As String

    Dim RetString As String
    
    Select Case intType
        Case 1
            RetString = "Boolean"
        Case 8
            RetString = "Date"
        Case 3
            RetString = "Integer"
            
        Case 7
            RetString = "Double"
        
        Case 10
            RetString = "String"
            
        Case 4
            RetString = "Long Integer"
        
        Case Else
            RetString = "Unknown"
            
    End Select
    
    FDataType = RetString

End Function

 

 

回复：從 Access 數據庫中獲取表的列表

謝謝埃里克，

只是為了非常清楚和更完整，然後我使用了這個：

“從 MSysNameMap WHERE (MSysNameMap.Type = 1) 中選擇 MSysNameMap.Name”

進而：

對於每一行 (List1 << append(:Name))

--> 完美！

再次感謝你。

回复：從 Access 數據庫中獲取表的列表

大多數數據庫都有系統視圖，您可以針對這些視圖編寫 SQL 查詢，以獲取數據庫中與 WHERE 子句匹配的所有表的列表，等等。我沒有 MS Access，但做一些谷歌搜索，這樣的事情可能對你有用：

SELECT MSysObjects.Name FROM MSysObjects WHERE (MSysObjects.Type = 1);

你也可以試試“ WHERE (MSysObjects.Type = 6) " 作為 WHERE 子句。所以你可以使用 JSL打開數據庫函數將該查詢提交給 MS Access，這將為您提供一個包含 Access 表名稱的 JMP 數據表，然後您可以使用它進行迭代對於每一行。

以下是我找到 MS Access 信息的鏈接：

ms access - sql語句返回所有表中的所有字段 - Thinbug

使用 MsysObjects

衛生部,

埃里克

回复：從 Access 數據庫中獲取表的列表

感謝您的幫助。

這是一個幫助文件，可讓您連接到數據庫。 我想為自己創建一個數據庫中所有可用表名的列表。

就像是：

x=列表()

對於 my_database 中的每個 tabledef

x1<<獲取表定義名稱；

插入（x，x1）；

最後，它有點複雜。 我想使用 JMP 表中存儲的內容自動創建 SQL 語句。 快完成了，我敢肯定... . 但在之前的步驟中，我希望允許用戶輕鬆地將信息存儲在該 JMP 表中。 他必須在兩個列表中進行選擇，首先是數據庫中的表，然後是該表中他感興趣的特徵。 然後單擊“確定”，他的選擇將存儲在 JMP 表中。 然後我可以編譯一條 SQL 語句，從數據庫中獲取存儲在該 JMP 表中的所有選擇的數據。

希望我清楚......雄心勃勃？

回复：從 Access 數據庫中獲取表的列表

http://www.jmp.com/software/whitepapers/pdfs/102427_jmp_odbc.pdf

我在網上找到了這個，它提供了在數據庫和 JMP 之間建立連接的分步說明，您可以從那裡獲取。

問候

烏代