用ado如果得到某数据库下有哪几个数据表？

Question

用ado如果得到某数据库下有哪几个数据表？

Answer 1

VB动态获取ORACLE、SQL2K、ACCESS表
代码如下引用ADOX编程
Private Sub Form_Load()
Dim cnn As New ADODB.Connection '定义ADO连接
Dim cat As New ADOX.Catalog'数据源集合
Dim tbl As ADOX.Table '引用ADOX获取表名    '打开连接
    cnn.Open "Provider=MSDAORA.1;User ID=hkds;Data Source=hkds;password=hkds;Persist Security Info=False" '此连接为ORACLE数据库
   'cnn.Open _
   ' "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  ' "Data Source=jicha.mdb;" 'ACESS数据库
'cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123456789;Initial Catalog=student;Data Source=192.168.1.62;"'此连接为sql2000数据库
   Set cat.ActiveConnection = cnn '创建数据源
For Each tbl In cat.Tables '循环读取当前数据库所有的表
'If Left(tbl.Name, 1) = "M" Then
'ElseList1.AddItem tbl.Name
'End IfNext
cnn.Close
End Sub