Rs.open "select pkid,username from dd",objconn set mshflexgrid.datasource=rs 就可以在固定行中看到字段名了
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号) 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 where 1<>1", CN, adOpenDynamic, adLockOptimistic Set MSHFlexGrid1.DataSource = Rs
显示employees 表中所有数据Rs.Open "select * from employees ", CN, adOpenDynamic, adLockOptimistic Set MSHFlexGrid1.DataSource = Rs
set mshflexgrid.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 where 1<>1", CN, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = Rs
Set MSHFlexGrid1.DataSource = Rs
http://www.csdn.net/develop/read_article.asp?id=15422
http://www.csdn.net/develop/read_article.asp?id=18624