数学建模社区-数学中国

标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!! [打印本页]
作者: myhunterli    时间: 2004-12-18 16:28
标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!!
<b># ]5 w* I7 H3 g6 o/ g% G+ v

! j2 u$ N! `/ t" `5 v# P</b>Dim rs_csxx As New ADODB.Recordset
; b) `: V9 B' i+ }" h1 iDim sql As String
4 _3 i; W. v7 g8 @2 |  rDim tj As Integer1 q' `8 C9 p4 l- [2 I
Dim lq As Boolean
! ~8 q, d. K4 b8 L$ ?3 b. E  I$ i# R  w- R  L( H5 \6 Z

) S. m; s: ?/ Q/ ^+ e" n7 A< >sql = "select * from xxxz"3 u4 b3 k: m3 T) [6 V( K/ q1 {
rs_csxx.CursorLocation = adUseClient
6 [, V! c4 m4 G7 {rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>, n# }  h" s% V2 ~! r
< >Do While lq = True
" {" V2 q$ y' z) K! L+ G+ ?tj = tj + rs_csxx.Fields(4)8 E. \+ n4 l1 }1 G  z4 K4 w
rs_csxx.MoveNext
8 {* v( t& w) |1 P6 LIf rs_csxx.EOF = True Then lq = False3 j7 m! I5 M0 f! s
Loop</FONT></P>3 [' R4 L0 k4 R" R5 e0 p* u
< >Text1.Text = tj</FONT></P>
% d4 \9 Y( [6 A/ V- [< >4 l6 ]/ H: Y; G1 @3 i) `
哥哥姐姐们帮帮忙~4 q, _/ N. `# d
我用的office的acce数据库~想让csxx表中的N条记录相加~& C7 v4 ^6 J+ K' T* 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