Function DBTables(connstring, ANStrArray, Sepa_Col)
' Returns array (or ANStrArray seperated by Sepa_Col)
' ANStrArray = 1 to return string with Sepa_Col
' Otherwise will return an array
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
If ANStrArray = 1 Then
DBTables = Replace(strTables, vbcrlf, Sepa_Col)
Else
DBTables = split( strTables, vbCrLf )
End If
End Function
' Returns array (or ANStrArray seperated by Sepa_Col)
' ANStrArray = 1 to return string with Sepa_Col
' Otherwise will return an array
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
If ANStrArray = 1 Then
DBTables = Replace(strTables, vbcrlf, Sepa_Col)
Else
DBTables = split( strTables, vbCrLf )
End If
End Function
byval connstring, ANStrArray, Sepa_Col
Views 126
Downloads 27
CodeID
DB ID