|
Displaying Source Code(s)
|
|
Tables Function
--------------------------------------------------------------------------------
Description : The Tables Function returns an array of all table
names in a database. There is one required argument, connstring
which must be a valid OLE database connection string.
<%
Private Function Tables(ByVal connstring)
Dim adox, i, strTables
Set adox = Server.CreateObject("ADOX.Catalog")
adox.ActiveConnection = connstring
For i = 0 To adox.tables.count - 1
If UCase( adox.tables(i).type ) = "TABLE" Then
strTables = strTables & adox.tables(i).name & vbCrLf
End If
Next
Set adox = Nothing
Tables = Split( strTables, vbCrLf )
End Function
%> |
|
|
123
Eng