randallc Posted May 13, 2006 Share Posted May 13, 2006 Hi,i can's get the translation here; i have the connection, but not sur of translation; attached to ADODB set rs = adodbConn.execute("EXEC sp_tables") do while not rs.eof if rs("table_type") = "TABLE" then Response.Write rs("table_name") & "<br>" end if rs.movenext loopTried;$quer = $connectionobj.execute("EXEC sp_tables")Can anyone please translate?Thanks, randall ExcelCOM... AccessCom.. Word2... FileListToArrayNew...SearchMiner... Regexps...SQL...Explorer...Array2D.. _GUIListView...array problem...APITailRW Link to comment Share on other sites More sharing options...
randallc Posted May 13, 2006 Author Share Posted May 13, 2006 Hi, I'd still be interested to know how to translate; but found the alternative method works; func _GetTableNames($connectionobj,$i_adoMDB=1,$USRName="",$PWD="") dim $ret[1]if isobj($connectionobj) Then $adoxConn = ObjCreate("ADOX.Catalog") $adoxConn.activeConnection = $connectionobj for $table in $adoxConn.tables if $table.type="TABLE" then ReDim $ret[uBound($ret, 1) + 1] $ret[uBound($ret, 1) - 1] = $table.name endif next $adoxConn = "" endif return $ret EndFunc ;==>_GetTableNamesBest, Randall ExcelCOM... AccessCom.. Word2... FileListToArrayNew...SearchMiner... Regexps...SQL...Explorer...Array2D.. _GUIListView...array problem...APITailRW Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now