VB查询access数据库 - VB / 基础类

数据库结构是这样的 查询出来是一个统计效果

---

查询出来就是 当日期为什么的时候 这一天所有数据的统计
sql = "select FScrq from TJlb "
Call OpenConn2
rs2.Open sql, cn2, 1, 1
  Do While Not rs2.EOF
  sql = "select sum(FScrq) as FScrq from TJlb where FScrq = '" & rs2!FScrq & "'"
  rs1.Open sql, cn2, 1, 1
   
  rs2.MoveNext
  Loop
  Call CloseConn2
下面不知道要怎么写了

---

http://download.csdn.net/source/1498324
http://download.csdn.net/source/1644211

---

不知所云

---

Ｇｏｏｇｌｅ一下“Ａｃｃｅｓｓ，ＶＢ６＂，找几个例子吧。

---

引用

不知所云

顶

---

没看到picture

---

怎么会有这样的帖子......
{{