'假设mcnndb是个已打开某一数据库的ado.connection '获取数据库中的所有表名关键是用到ado.connection的openschema方法 '该方法返回一个只读的数据集,包括系统表和用户表. '因此,需要一个集合来保存其中的用户表 public function getalltablename() as system.collections.arraylist dim t as new system.collections.arraylist() dim rs as new adodb.recordset() rs = mcnndb.openschema(adodb.schemaenum.adschematables) do while not rs.eof if rs("table_type").value = "table" then t.add(rs("table_name").value) end if rs.movenext() if rs.eof then exit do loop rs.close() rs = nothing return t end function，欢迎访问网页设计爱好者web开发。
