试了你的代码,字段名称和数据类型都取出来了,你自己改称下面的程序试试?![] [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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货