如何用代码实现：调用ACCESS97中的查询（数据库中设计好的），并将结果显示在DBGRID中？

Question

用SQL的查询！
dim sqlstr as string
dim rec as recordset
sqlstr="select *.... where...."  '你的查询条件
rec=data1.openrecordset(sqlstr)
set data1.recordset=rec
data1.refresh 

Answer 1

樓上的朋友好像說錯了
對于VB來說，ACCESS中的查詢和表是一樣的，比如：
tTable包含著fID、fNAME、fSEX、fBIRTHDAY四個字段，
qQry為 Select * from tTable where fSex=-1是保存在ACCESS中的查詢，那么
set data1.recordset=db.open("qQry")
和
set data1.recordset=db.open("Select * from tTable where fSex=-1")效果是相同的
=======

Answer 2

谢谢楼上4_Eye_Cat帮忙
不知ACCESS中的窗体能否调用？