Question

我正在开发一个asp-classic vbscript网站，如果有办法在数据库中显示表格，我很好奇。我已经在线查看了一些示例，但他们没有解释实际使用代码的方法。我是非常新的，所以如果有人能让这对我有意义，那就太棒了。

DBMS：Microsoft SQL Server

Answer 1

Set Cat = CreateObject("ADOX.Catalog")
Cat.ActiveConnection = "Provider=sqloledb;Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;"
For Each Table In Cat.Tables
    WScript.Echo Table.Name
Next

Answer 2

为了获得started：

  Const adSchemaTables =         20 ' 00000014

  Dim sCS : sCS     = "...your connection string..."
  Dim oDb : Set oDb = CreateObject("ADODB.CONNECTION")
  oDb.Open sCS
  Dim oRs : Set oRs = oDb.OpenSchema(adSchemaTables)
  Do Until oRs.EOF
     If oRs("TABLE_TYPE") = "TABLE" Then WScript.Echo oRs("TABLE_NAME")
     oRs.MoveNext
  Loop

[如果您真的不了解连接线，请查看here。

如何在数据库中找到表的名称？ ASP Classic

2 个答案: