'假設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