VB6.0里显示并选择数据库信息（如图）

Question

图中的功能在VB6.0里要怎么实现啊？

Answer 1

方法一：用 ADO
建立一个工程，默认是Form1窗体，
在 //工程// 里面选择 //部件//
在 //部件// 里选种勾上 Microsoft Ado DataControl 6.0(OLEDB) 和 Microsoft DataGrid Control 6.0 (OLEDB) 应用它们，在工具栏上就有了 Adodc控件 和 DataGrid控件
把DataGrid控件拖到窗体上，Adodc也拖到窗体上，默认名称是DataGrid1和Adodc1
运用方法一：
直接把DataGrid的DataResouce属性设置为Adodc1,就表明他的数据来源是Adodc1
打开Adodc1,右击选择他属性页，在通用选项卡里最下面有一个//生成//按钮，单击它， Microsoft Jet 4.0 OLEDB provider 是ACCESS数据库的驱动器，...SQL Server是SQL驱动器选择一个驱动器，接着填写连接服务器名称，用户名和密码，连接数据表名称，确定。再到属性页第二项身份验证输入用户名和密码，不输就是不需要身份验证，最后在属性页//记录源//里选择adcmdText那意思是在它下面输入SQL语句来设置查询。adcmdTable是直接在下面选择一个表，这样设置好了后，直接运行窗体，GRID1里面就是查询记录集了。
运用方法二：
直接在窗体上拖放Adodc1, DataGrid1 控件，TEXT1， 和一个按钮,把DataGrid1的DataSource属性设置为Adodc1
给按钮事件定义：要他按照Text1文本 刷新Adodc1的数据，GRID1显示它
最简单的代码如下：
Private Sub Command1_Click()
Adodc1.connectionString="Driver={SQL Server};Server=服务器名称;Uid=数据库用名;Psw=登陆密码;DataBase=数据库名称"
'--------------------------------这是连接服务器数据库属性项
Adodc1.RecordSource="Select * From 数据库里的表名称 Where 列名='"+Text1+"'"
'---------------------------------这是建立数据库查询作为记录集,注意标点符号
Adodc1.Refresh
'---------------------------------刷新记录集
End Sub

这样,你在窗体文本里输入一个你要查询字段里匹配的某一个值,单击按钮,DataGrid1就会显示出你想要的查询结果.

运用同样的方法我们运用Combo 6.0组合框,把组合框查询数据掾指定为Adodc2,给Adodc2一个特定的连接,就是下拉列表,把一个或者多和下拉列表作为Adodc1查询的条件,那就得到你想要的结果.不过建议楼主先定义一个公共变量来存储字符串,再把变量赋值给属性,运行软件会更有效率,这里我不多介绍.

另一中方法是Data控件,直接调用数据源,相对简单一点,但效果没ADO好

Answer 2

microsoft hierarchical flexgrid control 6.0

这是我给别人指导的一张图，你看看效果。

参考资料：http://zhidao.baidu.com/question/383125543.html?oldq=1