vb按条件读取access内容

Question

access表格路径D:\1.mdb名称chsyy
时间段date
我想按时间段里date里抽出时间为start到stop的数据到MSHFlexGrid.表格共有42列.

Answer 1

Dim cn As ADODB.Connection, rs As ADODB.RecordsetSet cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\1.mdb"
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM chsyy WHERE [date] BETWEEN #" & Format(start, "yyyy-mm-dd HH:nn:ss") & "# AND #" & Format(stop, "yyyy-mm-dd HH:nn:ss") & "#", cnSet MSHFlexGrid1.DataSource = rs