关于VB访问oracle数据库表结构得问题，高手请进！在线等候！！！！！

[winiceasp]

代码如下：
Dim cnnORA As New ADODB.Connection
Dim rsOra As New ADODB.Recordset
Dim FdID As String
Dim i As Integer

cnnORA.ConnectionString = "Provider=OraOLEDB.Oracle;Server=oral:1521;Data Source=o816;" & _
"User ID=sa;Password=sasasa;"
cnnORA.Open

Set rsOra = cnnORA.OpenSchema(adSchemaColumns)

For i = 0 To rsOra.Fields.Count - 1
FdID = FdID & rsOra.Fields(i).Name & Space(2)
Next
Debug.Print FdID
FdID = ""

While Not rsOra.EOF
For i = 0 To rsOra.Fields.Count - 1
FdID = FdID & rsOra.Fields(i) & Space(2)
Next
Debug.Print FdID
FdID = ""
rsOra.MoveNext
Wend

rsOra.Close
Set rsOra = Nothing

运行结果是仅仅显示了Column的名称。并没有显示表中的字段内容。如何查询表的字段名称，数据类型等信息？如何解决？？？？？

[duckcn]

试了你的代码，字段名称和数据类型都取出来了，你自己改称下面的程序试试？！

[] [CTXSYS] [CTX_INDEXES] [IDX_NAME] [] [] [3] [0] [] [8] [0] [129] [] [30] [30] [] [] [] [] [] [] [] [] [] [] [] [] []


While Not rsOra.EOF
For i = 0 To rsOra.Fields.Count - 1
FdID = FdID & "[" & rsOra.Fields(i) & "]" & Space(2)
Next
Debug.Print FdID
FdID = ""
rsOra.MoveNext
Wend