Question

大神求救；vb 中我怎么把根据条件查询的结果显示在MSHFlexGrid里；不是所有；

End Sub
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\鞠发志\新气象\气象.mdb;Persist Security Info=False"
conn.Open
'rs.Open "sb_001", conn, , adCmdTable
End Sub

Private Sub Command3_Click()
Dim num As Integer
Dim sql As String
Dim arr2() As String
num = Val(Text2.Text)
sql = "select * from sb_001 where 年份=" & num
conn.Execute (sql)
之后的结果怎么展现出来，再导出到excel

Answer 1

将执行的结果赋值给RecordSet，再将RecordSet绑到MSHFlexGrid，你可以把RecordSet保存成XML，XML数据Excel可以直接读取

追问

谢谢，我试试；