123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home

Source Codes

Engineering Colleges

BE Students

Training  Reports (updated)

Seminar Reports (updated

Placement Papers (updated)

Forums

   Computer Science / IT

   Electronics

   Electrical

   Mechanical

   Chemical

   Civil

   CAT / MBA

   GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

Sitemap

About-Us

Terms of use

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
%>

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved copyright 123ENG