Question

VB读写Access并依据条件导出到Excel打印出来

如，用text1往access的“表1”，[字段1]中输入数据，text2往[字段2]中输入数据：
字段1 字段2
1001 1
1002 1
1003 2
1004 2
1005 3
1006 3
然后依据字段2中的某个数字，比如2 ，找出对应的1003和1004（当然也可能是多个数据，不一定），导出到Excel中并打印，我用VB加Excel可以实现这个功能，但是它有个缺陷，就是在运行程序后，如果打开某个Excel文件的时候隐藏了的Excel文件就会显示出来，非常容易出错，所以想到了用Access，请大神们给个代码出来，因为我不会操作Access代码

Answer 1

引用 

microsoft activex data objects 2.8 library

path 文件路径

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path & ";Persist Security Info=False

插入数据

 con.Execute "insert into TEST (字段1,字段2)values('" & text1.text & "','" & text2.text & "')"

查询数据

sql = "select * from test where 字段2='" & 1 & "'"
    rs.Open sql, con, 3, 3
    rs.Fields(0)  rs.Fields(1) rs.RecordCount rs.MoveNext  4个参数来操作记录集合

追问

有点看不懂，哪个是查询出的数值，比如说把text3.text对应的值查询出值赋给text4.text

追答

sql = "select * from test where 字段2='" & text3.text & "'"
    rs.Open sql, con, 3, 3
text4.text=rs.Fileds(0)

Answer 2

vba 读取access文件提供