9570_zh-CN

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 之间建立连接的分步说明，您可以从那里获取。

问候

乌代