数学建模社区-数学中国

标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!! [打印本页]
作者: myhunterli    时间: 2004-12-18 16:28
标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!!
<b>: ?' e7 e8 R( N0 Z+ A
& @: B: `& E% N% C
</b>Dim rs_csxx As New ADODB.Recordset
% Z6 v0 m7 ]: r% W2 M) gDim sql As String
) |4 W( \- h; b( h: [# ]: BDim tj As Integer# w" ?( d% [, x- m* w9 ]
Dim lq As Boolean
& n5 E- G1 X8 H% {% N$ _2 L4 m& e9 D/ y

; }4 k' s3 Y# q( U, h; z% O+ Z< >sql = "select * from xxxz"
' \- h) O4 `' i$ N+ x" lrs_csxx.CursorLocation = adUseClient3 P1 {4 @2 R! q- {& t" h' r9 D5 y( t
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>+ R- v2 A9 P) P! D. h( ^
< >Do While lq = True" J3 o7 ]2 i, c7 C. t% a3 C' l
tj = tj + rs_csxx.Fields(4)' Y$ P0 ?2 b; y  I
rs_csxx.MoveNext
) K1 l7 k3 s3 K9 G6 B  xIf rs_csxx.EOF = True Then lq = False$ J5 X; S9 S0 g/ K4 h- j) M
Loop</FONT></P>" d& h/ v  n+ M* s) V/ s- r
< >Text1.Text = tj</FONT></P>
9 R5 E6 z' `6 _% k< >
) O: T6 M) p! g: \哥哥姐姐们帮帮忙~) p5 i4 U; K5 i
我用的office的acce数据库~想让csxx表中的N条记录相加~
: i$ O& X/ G# S3 \6 G8 {6 H* r1 k; G' V但随便怎么试也不行~~~请各位好心人帮我改改~</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