Question

VB怎么把数据库读入到MSHFlexGrid

怎么写？？

Answer 1

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cn_1 As String, sql_1 As String
cn_1 = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"橡桥让
Set cn = New ADODB.Connection
cn.Open cn_1
sql_1 = "梁局select * from 表1"消枝
Set rs = New ADODB.Recordset
rs.Open sql_1, cn, adOpenStatic, adLockBatchOptimistic
Set MSHFlexGrid1.DataSource = rs