急！如何取处数据库中所有的表名和所有表的字段名（oracle+vb）!

Question

急！一、如何取处数据库中所有的表名
    二、求出所有表的字段名和类型
    （oracle+vb）!

Answer 1

'// 創建OraDynaset對象
    Dim OraDynaset As Object
    
    '// 定義査詢語句
    Dim strSql As String
    strSql = "select * from JIDOU_SOUSIN_FL"    '// 使用CreateDynaset或DbCreateDynaset創建記録集
    Set OraDynaset = gOraDatabase.DbCreateDynaset(strSql, &H4&)
    
    '// 得到記録集中字段数目
    Dim intFieldsCnt As Integer
    intFieldsCnt = OraDynaset.fields.Count
    
    '// 設置GRID的列数
    Grid.Cols = intFieldsCnt
    
    '// 設置GRID固定列的標題
    Dim i As Integer
    With Grid
       For i = 0 To intFieldsCnt - 1
            '// 得到毎一字段的名称
            .TextMatrix(0, i) = OraDynaset.fields(i).Name
            
            '// 設置列寬度
            .ColWidth(i) = 200 * Len(.TextMatrix(0, i))
       Next i
    End With

Answer 2

1.取得所有表名：
select * from tabs;2.取得表的结构：
Desc *** <---***是指表名以上是在Oracle SQL Plus（或WorkSheet)中的选择命令.