Dim CN As New adodb.Connection '定义数据库的连接存放数据和代码 Dim Rs As New adodb.Recordset CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;" CN.Open Rs.CursorLocation = adUseClient Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic Set MSHFlexGrid1.DataSource = Rs
或者
在论坛中搜索一下吧
Dim Rs As New adodb.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
Set MSHFlexGrid1.DataSource = Rs
www.dapha.net
www.21code.com
www.vbeden.com
www.myvc.net
msdn.microsoft.com和MSDN得到更多的帮助.............
For i = 1 To 3
.TextMatrix(0, i) = "555"
.TextMatrix(1, i) = "555"Next
MSHFlexGrid1.MergeCells = 1
MSHFlexGrid1.FormatString = "列标题1 | 列标题2 | 列标题3"-----------------------------------------------------
搜索一下MSHFLEXGRID
这里有本书