关于得到数据库表的字段名问题

lanzhoulamian 2005-10-12 10:57:28
我想得到ACCESS数据库表的字段名,用了如下代码:
tmpSql = "select * from [" & tmpTableName & "]"
Set tmpRecordSet = QuerysValue(tmpSql, ReturnCode)
If ReturnCode = -1 Then

WriteErrLog "frmCostFeiSourceRelation", "Query Error", "SQL : " & tmpSql
Exit Sub
End If
For i = 0 To tmpRecordSet.Fields.count - 1
Combo3.AddItem tmpRecordSet.Fields(i).Name
Next i
在运行过程中发现,如果表里有数据,则tmpRecordSet.Fields.count能购得到数值,如果表里没有数据,则tmpRecordSet.Fields.count为0,而且为啥我的tmpRecordSet.Fields.count中count的c不是大写????请各位兄弟帮忙!谢谢
...全文
80 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lanzhoulamian 2005-10-12
  • 打赏
  • 举报
回复
我去试试!谢谢楼上的兄弟
winehero 2005-10-12
  • 打赏
  • 举报
回复
啥意思?不是大写,是不是你前面代码有问题,IDE编辑器才会出现该问题?

如果只取字段,除了你取记录集,使用Fields外还有两种方法:
1、使用Ado Connection对象的OpenSchema
Set 记录集 = 连接对象.OpenSchema(adSchemaColumns, _
Array(Empty, Empty, 表名, Empty))
2.使用ADOX对象
faysky2 2005-10-12
  • 打赏
  • 举报
回复
如果表里没有数据,则tmpRecordSet.Fields.count为0,而且为啥我的tmpRecordSet.Fields.count中count的c不是大写?
-------------------------------
可以这样写:
tmpRecordSet.Open strSql,连接对象,3,2

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧