数学建模社区-数学中国

标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!! [打印本页]

---

作者: myhunterli    时间: 2004-12-18 16:28
标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!!
<b>
- G, J: N: ?9 p  `# W/ a
! j: M" c, Y+ w) H* z) z- G4 G/ P</b>Dim rs_csxx As New ADODB.Recordset
# g) G$ E' ]2 eDim sql As String
  U, A  B2 L) f! u- h% pDim tj As Integer
0 q, j# F9 G) B2 k9 O7 u, y/ UDim lq As Boolean
! k$ m) o. \  T$ E5 M5 L+ j8 N2 J" S

. R% e; K9 ?: Y% q* [8 Y7 W' B< >sql = "select * from xxxz"
rs_csxx.CursorLocation = adUseClient
3 F+ j$ p& T4 V2 C2 `* ^rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
, |  p  ~. O3 C2 Y5 W! z< >Do While lq = True
tj = tj + rs_csxx.Fields(4)
" |! f1 t; h! U' Prs_csxx.MoveNext
/ l& d* n3 }' e& H: uIf rs_csxx.EOF = True Then lq = False
Loop</FONT></P>
" C0 O: r' F+ R< >Text1.Text = tj</FONT></P>
< >
哥哥姐姐们帮帮忙~
我用的office的acce数据库~想让csxx表中的N条记录相加~
9 c7 y% B# T' z/ J但随便怎么试也不行~~~请各位好心人帮我改改~</FONT></P>

---

作者: ilikenba    时间: 2004-12-19 23:35
为什么不直接用while呢？

---

作者: blueriver    时间: 2004-12-23 01:34
<>为什么那条SQL语句不设为：sql="Select sum(要计算的字段) from xxxz"呢？</P><>还有变量lp开始时是不是设为TRUE，如果不是那就不会执行循环啦</P><>你这样写还不如直接写成：</P><>Do while rs_csxx.EOF&lt;&gt;True</P><>...</P><>Loop</P>

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5