如何随机选择MSHFLexGri
注意MSHFlexGrid 控件所显示的是只读数据，无法完成你所要求的操作。见MSDN的说明：
MSHFlexGrid 控件
Microsoft Hierarchical FlexGrid (MSHFlexGrid) 控件对表格数据进行显示和操作。 在对包含字符串和图片的表格进行分类、合并以及格式化时，具有完全的灵活性。当绑定到 Data 控件上时，MSHFlexGrid 所显示的是只读数据。
要完成你希望的操作，应使用ADO数据控件和DataGrid 控件
DataGrid 控件是一种类似于电子数据表的绑定控件，可以显示一系列行和列来表示 Recordset 对象的记录和字段。 可以...全部
注意MSHFlexGrid 控件所显示的是只读数据，无法完成你所要求的操作。见MSDN的说明：
MSHFlexGrid 控件
Microsoft Hierarchical FlexGrid (MSHFlexGrid) 控件对表格数据进行显示和操作。
在对包含字符串和图片的表格进行分类、合并以及格式化时，具有完全的灵活性。当绑定到 Data 控件上时，MSHFlexGrid 所显示的是只读数据。
要完成你希望的操作，应使用ADO数据控件和DataGrid 控件
DataGrid 控件是一种类似于电子数据表的绑定控件，可以显示一系列行和列来表示 Recordset 对象的记录和字段。
可以使用 DataGrid 来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid 控件可以在设计时快速进行配置，只需少量代码或无需代码。当在设计时设置了 DataGrid 控件的 DataSource 属性后，就会用数据源的记录集来自动填充该控件，以及自动设置该控件的列标头。
然后您就可以编辑该网格的列；删除、重新安排、添加列标头、或者调整任意一列的宽度。
在运行时，可以在程序中切换 DataSource 来察看不同的表，或者可以修改当前数据库的查询，以返回一个不同的记录集合
具体做法：
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4。
0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。
该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（英文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。
然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。
在DataGrid 控件显示的数据中删除一条数据，可将鼠标选中该行记录，使用SQL查询语句进行
删除操作代码供参考：
Private Sub Command2_Click()
Adodc1。
Recordset。Delete
Adodc1。ConnectionString = "Provider=Microsoft。Jet。OLEDB。4。0;Data Source=C:\ldgz\jly。
mdb;Persist Security Info=False"
Adodc1。RecordSource = "select * from jishijilu"
Adodc1。Refresh
DataGrid1。
Refresh
Adodc1。ConnectionString = "Provider=Microsoft。Jet。OLEDB。4。0;Data Source=C:\ldgz\jly。mdb;Persist Security Info=False"
Adodc1。
RecordSource = "select * from jishijilu"
Adodc1。Refresh
DataGrid1。Refresh
End Sub
Private Sub Form_Load()
Adodc1。
ConnectionString = "Provider=Microsoft。Jet。OLEDB。4。0;Data Source=C:\ldgz\jly。mdb;Persist Security Info=False"
Adodc1。
RecordSource = "select * from jishijilu"
Adodc1。Refresh
End Sub
。收起
