数学建模社区-数学中国

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

---

作者: myhunterli    时间: 2004-12-18 16:28
标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!!
<b>
1 R% f) J" ~* F
</b>Dim rs_csxx As New ADODB.Recordset
, E! P" z0 E+ P1 U% I( fDim sql As String
& [9 P0 G; \6 Z; B/ wDim tj As Integer
: h0 }+ `* d- m9 P2 O% c+ NDim lq As Boolean
: L5 `; t" a9 V. j

< >sql = "select * from xxxz"
2 B& _+ k& M, T" t* `$ Zrs_csxx.CursorLocation = adUseClient
* p1 T1 m9 C5 N& T& q7 n) ^) \1 Prs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
" S/ R9 j& d* P6 r7 h0 M  C< >Do While lq = True
. r& a6 h: l% e2 g( X- {, C! J  stj = tj + rs_csxx.Fields(4)
$ @: p* y% T/ ?0 w- D2 i* I8 srs_csxx.MoveNext
If rs_csxx.EOF = True Then lq = False
/ N5 E) G: ~) t' r7 P- t/ {2 CLoop</FONT></P>
0 g( ]2 m3 @" d4 ~5 x< >Text1.Text = tj</FONT></P>
< >
& E6 p& q0 \1 ]哥哥姐姐们帮帮忙~
$ @: v3 ^+ u" o4 ], j1 f我用的office的acce数据库~想让csxx表中的N条记录相加~
4 l% R6 L: V; j# Z但随便怎么试也不行~~~请各位好心人帮我改改~</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