通用vba
字典
创建字典
Set dict = CreateObject("Scripting.Dictionary")
dict.add "a", "你好"
Access Vba
连接数据库
连接当前数据库
Set conn = CurrentDb
执行sql
执行select查询
Set rst = conn.OpenRecordset(SQL)
执行insert、update等操作查询
conn.Execute(SQL)
操作查询结果
结果集操作
rst.MoveFirst #回到第一行
rst.MoveNext #移动到下一行
遍历结果集
rst.MoveFirst
Do While not rst.eof #循环遍历至最后一行
Loop
遍历打印表头
For i = 0 to rst.Field