asp获取数据库中表名和字段名的代码

要获取数据库中表名和字段名，我们首先需要连接到数据库。在ASP中，我们可以使用ADODB对象连接到数据库。

以下是获取数据库中所有表名的ASP示例代码：

<%

Dim connection, rsTables
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("your_database_name.mdb")

Set rsTables = connection.OpenSchema(adSchemaTables)
Do While Not rsTables.EOF
   Response.Write rsTables("TABLE_NAME") & "<br>"
    rsTables.MoveNext
Loop

rsTables.Close
Set rsTables = Nothing
Set connection = Nothing

%>

代码解释：

• 首先，我们创建了一个ADODB.Connection对象，并使用Open方法打开数据库连接。

• 然后，我们使用OpenSchema方法打开一个记录集，该记录集包含了数据库中所有的表格信息。

• 最后，我们通过遍历记录集获取每个表格的名称（即使用rsTables("TABLE_NAME")）。

接下来，我们将看一个获取指定表格中所有字段名的ASP示例代码：

<%

Dim connection, rsFields
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("your_database_name.mdb")

Set rsFields = connection.OpenSchema(adSchemaColumns, Array(Empty, Empty, "table_name"))
Do While Not rsFields.EOF
   Response.Write rsFields("COLUMN_NAME") & "<br>"
    rsFields.MoveNext
Loop

rsFields.Close
Set rsFields = Nothing
Set connection = Nothing

%>

代码解释：

• 首先，我们创建了一个ADODB.Connection对象，并使用Open方法打开数据库连接。

• 然后，我们使用OpenSchema方法打开一个记录集，该记录集包含了指定表格中所有的字段信息。

• 注意到我们使用了Array函数来指定OpenSchema方法的第二个参数，这里是一个数组，包含了三个元素。第三个元素是我们要获取字段信息的表格名称。由于我们只需要获取指定表格中的字段信息，因此第一个和第二个元素都设置为了Empty。

• 最后，我们通过遍历记录集获取每个字段的名称（即使用rsFields("COLUMN_NAME")）。

这些代码可以帮助你获取数据库中表名和字段名的信息，你可以根据实际情况进行修改和扩展。