CheckListBox 显示 dbgrideh1 的 columns 中的信息

最新推荐文章于 2021-02-19 23:48:58 发布

云烟，不再年轻

最新推荐文章于 2021-02-19 23:48:58 发布

阅读量2.6k

点赞数

分类专栏： delphi 文章标签： integer 数据库 sql

本文链接：https://blog.youkuaiyun.com/lee576/article/details/1356042

版权

delphi 专栏收录该内容

152 篇文章

订阅专栏

用ListBox1或CheckListBox 获取用ADO 连接的表字段问题！！！请教了！

加入我的收藏

楼主：

各位高手：
我用ado连接sql 2000数据库中的表！连接成功以后，如何在ListBox1或CheckListBox 中获取表的字段名和字段类型！

还有，连接后在 dbgrideh1 中显示表的数据，我想在CheckListBox 显示 dbgrideh1 的 columns 中的信息，又如何做？
我知道用：ChecklistBox1.Items.Add(adoquery1.FieldValues['字段名']);可以添加表中的内容，不知道如何添加表头！！

请各位能多多指教，小第感激不尽！如果也存在疑惑的看了要顶啊！！！
----------------------------------------------
不是高手，但要努力成为高手！

作者：

chenliang_820 (亮仔)	▲▲△△△	-
	盒子活跃会员

2005-5-23 8:30:25

1楼：

没有人顶啊！！！
各位能指点一下吧！
----------------------------------------------
不是高手，但要努力成为高手！

作者：

chenliang_820 (亮仔)	▲▲△△△	-
	盒子活跃会员

2005-5-24 10:56:55

2楼：

不会吧！！都没人肯赐教！
----------------------------------------------
不是高手，但要努力成为高手！

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	盒子中级会员

2005-5-24 11:30:23

3楼：

DBGrid1.Columns.Items[序号].Field.FieldName -> 字段名
DBGrid1.Columns.Items[序号].Field.DataType -> 字段类型（数据集应该处于打开状态）
你可以遍历一下Columns.
如果仅取字段名，还可用GetFieldNames，查一下帮助吧。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河)

作者：

chenliang_820 (亮仔)	▲▲△△△	-
	盒子活跃会员

2005-5-27 11:01:41

4楼：

谢谢 iamdream
感谢你一直以来对我的帮助！！

----------------------------------------------
不是高手，但要努力成为高手！

作者：

chenliang_820 (亮仔)	▲▲△△△	-
	盒子活跃会员

2005-5-27 14:15:57

5楼：

iamdream
这样是可以把dbgrid1 的表头添加到 CheckListBox1中，这样只是一条一条的加进去，前提要知道‘DBGrid1.Columns.Items[序号].Field.FieldName ’中的序号是多少？
如何遍历‘DBGrid1.Columns.Items[序号].’
把DBGrid1中的所有都一次性加到CheckListBox1 中，
----------------------------------------------
不是高手，但要努力成为高手！

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	盒子中级会员

2005-5-27 14:28:39

6楼：

with DBGrid1.Columns do
for i:=0 to Count-1 do
CheckListBox1.Items.Add(Items[i].FieldName);
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河)

作者：

chenliang_820 (亮仔)	▲▲△△△	-
	盒子活跃会员

2005-5-27 14:40:19

7楼：

procedure TForm1.Button1Click(Sender: TObject);
var I: integer;
begin
CheckListBox1.Items.Clear;
for i := 0 to DBGrideh1.Columns.Count -1 do
ChecklistBox1.Items.Add(DBGrideh1.Columns.Items[i].Field.FieldName );
end;

end.
这样也可以！
你的方法值得学习！！！谢谢！！
----------------------------------------------
不是高手，但要努力成为高手！

作者：

chenliang_820 (亮仔)	▲▲△△△	-
	盒子活跃会员

2005-5-27 14:58:12

8楼：

iamdream
再将这个问题延伸一下，怎么样检测到 CheckListBox1 是否选中，
如果选中的话
‘DBGrid1.Columns[i].Visible;’ 在dbgrid 中可见，
如果没选中的话就不显示呢！
----------------------------------------------
不是高手，但要努力成为高手！

作者：