如何引入datagrid

Question

本人需要用一个2维表来显示某些信息,听说datagrid可以,不知道怎么使用,不知道是否有其他的组件可以使用

Answer 1

'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)Private Sub Command1_Click()
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=;"    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表1", cn, 3, 2
    Set DataGrid1.DataSource = rs    '把记录集的记录显示到DataGrid1End Sub

Answer 2

可是我也是那样写的的,但是DATAGRID默认的列只有两列,说什么下标越界呀?
有时列都出来了,但是数据库里的数据就是读不到DATAGRID里面去呀?

Answer 3

有时候，对DataGrid进行编辑后，它就不能显示数据了，只显示空的行列(如果数据库连接或者记录集已经关闭（rs.Close /cn.Close），也不显示数据)建议：重新添加一个DataGrid,或者换成MSHFlexGrid(工程/部件/Microsoft Hierarchical FlexGrid Controls 6.0 (OLEDB))换成MSHFlexGrid，只要改一句代码就行了：
把Set DataGrid1.DataSource = rs    改为 Set MSHFlexGrid1.DataSource = rs

Answer 4

可是我也是那样写的的,但是DATAGRID默认的列只有两列,说什么下标越界呀?  
有时列都出来了,但是数据库里的数据就是读不到DATAGRID里面去呀? 
//那是因为你改变了datagrid属性如果你设置了属性的话,则需要指定对应的列建议你换一个新的datagrid控件(请记住不要做任何属性设置)另:你的题目问题问的不是很清楚,如果recordset不是一个表,你要对应操作的话,不建议你使用datagrid,换成listview,msflexgrid都会合适得多

Answer 5

添加DataGrid或MSHFlexGrid到窗体后，不用对他们进行编辑，直接改上面给出的代码，就能显示数据了rs.Close /cn.Close 对 MSHFlexGrid 不会有影响