一个简单的问题，还望大家指点。（急！！！） 谢谢！！！！！

[hongsongboy]

如何动态指定 MSHFlexGrid 数据源？
数据库用的是access

[asussony]

用ADO指定了。

[hongsongboy]

还望上边这位大哥能否具体一下，最好是用源代码写。

[xiao_xiao_xiao]

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\material\XXX.mdb;Persist Security Info=False"
cn.ConnectionString = strConnect
cn.Open

[飞不动]

set MSHFlexGrid.datasource=RecordSet
RecordSet为你自己在程序中动态打开的记录集

[hongsongboy]

to xiao_xiao_xiao(双儿)
接下来怎么给控件绑定阿

[hongsongboy]

to echeng192(阿飞)
之前是如何操作的阿？

[xuqi92188]

Private Sub Command2_Click()
Dim Rs As New ADODB.Recordset
Dim Rac As New ADODB.Connection
Dim Sql As String

Sql="select * from Vendor"
Rac.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=WS_99_2002;Data Source=lyl"
Rs.Open Sql, Rac, adOpenStatic, adLockReadOnly
Set MSHFlexGrid1.DataSource = Rs
Set MSHFlexGrid1.DataSource = Nothing

Rs.Close
Rac.Close
Set Rs = Nothing
Set Rac = Nothing

End Sub

Private Sub Command3_Click()
Dim Rs2 As New ADODB.Recordset
Dim Rac As New ADODB.Connection
Dim Sql As String
Sql="select * from Customer"
Rac.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=WS_99_2002;Data Source=lyl"
Rs2.Open Sql, Rac, adOpenStatic, adLockReadOnly
Set MSHFlexGrid1.DataSource = Rs2
Set MSHFlexGrid1.DataSource = Nothing

Rs2.Close
Rac.Close
Set Rs2 = Nothing
Set Rac = Nothing
End Sub

[xuqi92188]

上面Command2的Click事件，Command3的Click事件中的代码使MSHFlexGrid1控件绑定到不同的记录集。MSHFlexGrid1只和ADO兼容.还有要长时间绑定的话要把Set MSHFlexGrid1.DataSource = Nothing去掉。

[hongsongboy]

注意：
数据库用的是access!

[hongsongboy]

为什么指定数据源后只显示一条记录？

[limengchen]

指定数据源后你得重新检测字段和刷新，在DataGrid控件中是
DataGrid.ReBind
DataGrid.Refresh
MSHFlexGrid我没用过，你看看有没有相似的方法。

[limengchen]

指定数据源后你得重新检测字段和刷新，在DataGrid控件中是
DataGrid.ReBind
DataGrid.Refresh
MSHFlexGrid我没用过，你看看有没有相似的方法。

[lastcsdn2166]

用循环！！

[hongsongboy]

to lastcsdn2166(终结者)
代码怎么写啊？

[smilejiangjun]

set MSHFlexGrid.datasource=RecordSet
set MSHFlexGrid.datasource=nothing