读书人

MSHFlexGrid怎么读入ACCESS数据库中的

发布时间: 2012-04-26 14:01:31 作者: rapoo

MSHFlexGrid如何读入ACCESS数据库中的数据
access数据库中有6列,分别是number,station1,station2,station3,station4,station5.想读取其中number为11的一整行到MSHFlexGrid控件中并显示。怎么做,MSHFlexGrid的行列数要不要自己改。我的数据库和数据库表为wuhanbus。
数据库和程序在同一目录下
很新手,帮忙说详细点,这个完全不知道。急用,非常谢谢

[解决办法]
rs.open "select * from 表名 where [number]=11",conn,adopenkeyset,adlockreadonly
set mshflexgrid1.datasource=rs
rs.close

[解决办法]
MSHFlexGrid的行列数不需要你自己设置,可参考如下代码:
Dim 数据库连接 As ADODB.Connection
Dim 记录集 As ADODB.Recordset

Set 数据库连接 = New ADODB.Connection
数据库连接.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" _
& app.path & “\wuhanbus.mdb” & ";Jet OLEDB:Database Password=" & 数据库密码
数据库连接.CursorLocation = adUseClient
数据库连接.Open
Set 记录集 = New ADODB.Recordset
记录集.Open "select * from wuhanbus where number = ‘11’", 数据库连接, adOpenDynamic, adLockOptimistic

set MSHFlexGrid.DataSource = 记录集

读书人网 >VB

热点推荐