表的记录太多 我只想取表字段结构 怎么写代码?

Question

StrCurrentSql = "Select Top 1 * From MyTab"
'如果是Access数据库 可以用上面的写法
'如果是DBF数据库文件 就不支持这种写法 
'如用Select * From MyTab 打开表记录就慢了 
'请问怎么办rs.Open StrCurrentSql, Conn_Source, 1, , adCmdText
Debug.Print rs.fieldS(i).Name '字段名称
Debug.Print rs.fieldS(i).Type) '字段类型
Debug.Print rs.fieldS(i).DefinedSize '字段大小

Answer 1

看看DBF是否支持  select * into d from c where 1=2,
该命令可以把c表的表结构复制到d表。

Answer 2

StrCurrentSql = "Select * From MyTab where 1=0"
rs.Open StrCurrentSql, Conn_Source, 1, , adCmdText
Debug.Print rs.fieldS(i).Name '字段名称
Debug.Print rs.fieldS(i).Type) '字段类型
Debug.Print rs.fieldS(i).DefinedSize '字段大小