请问,如何用通过VB程序得到指定的SQL数据库中所有表的表名,急!!
********************************************************************
Dim i As Integer
Dim rs As New ADODB.Recordset
Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
While Not rs.EOF
Debug.Print rs!TABLE_NAME
rs.MoveNext
Wend
rs.Close
如果省略 Array(Empty, Empty, Empty, "TABLE"),则将获得数据库中所有类型的表名