Bu X13v2' de kullandığım fonksiyonblardan bir tanesinin sadeleştirilmiş hali.
Test etmedim ancak hata vermemesi gerekiyor.
ConnX13 isimli db bağlantı stringine ihtiyacın olacak.
http://ferruh.mavituna.com/article.asp?112 adresinden X13 v1~ in tam kaynak kodlarını indirebilirsin.
Bu tip işlemler için sana çok yardımcı olabilir.
<%
'********************************************
'// @Info : List Tables
'// @Return: Options String
'********************************************
Function fm_DbTables()
Dim RsTables, TmpTableName, PKShemaConn
Set PKShemaConn =
server.CreateObject("ADODB.Connection")
PKShemaConn.ConnectionString = ConnX13
PKShemaConn.Open
Set RsTables = PKShemaConn.OpenSchema(20)
While NOT RsTables.EOF
If RsTables("table_type")="TABLE" Then '// Just Tables
TmpTableName = RsTables("table_name")
Response.Write TmpTableName & "<br />"
End if
RsTables.MoveNext
Wend
'// Kill
RsTables.Close
Set RsTables = Nothing
End Function
%>