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

2025-04-24 23:24:30

推荐回答（2个）

回答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个参数来操作记录集合

回答2：

vba 读取access文件提供