数学建模社区-数学中国

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

作者: myhunterli    时间: 2004-12-18 16:28
标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!!
<b>
) p' \# E# u- s' g
8 s7 i0 }2 G  Q  ~</b>Dim rs_csxx As New ADODB.Recordset' e+ |" p2 |. ?5 }$ N9 X
Dim sql As String
- Q9 l/ Z3 R; E, K: T3 H% B. _Dim tj As Integer8 w( q0 G0 {7 P6 T  X# U$ ?
Dim lq As Boolean
  d" J3 e! R' [. X" x+ |
6 K* ]1 ]! K. m0 f4 W
; O: V. ?4 |! j< >sql = "select * from xxxz"
/ N& D+ j6 V$ J6 ]3 `3 prs_csxx.CursorLocation = adUseClient8 ^* s. G+ p  B5 o
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>! B5 Q  J  Z7 U7 v6 M+ F% d* t
< >Do While lq = True2 U+ H* P, i. l) N( U/ w, r' y$ x' ?
tj = tj + rs_csxx.Fields(4)
; M2 \* e' K- r/ D, ^7 u2 n3 O0 `rs_csxx.MoveNext
9 _# x$ |0 h  S; K% N. |If rs_csxx.EOF = True Then lq = False
+ z  {6 e6 @" p! J; F9 wLoop</FONT></P>- B# N! N9 V; M7 f7 Z# Z' ?- {
< >Text1.Text = tj</FONT></P>
& i  U1 b9 l* r6 @< >
  G& Y0 h9 N  s1 t; b' r& P哥哥姐姐们帮帮忙~- R( `4 G; K7 Z" m  y, e
我用的office的acce数据库~想让csxx表中的N条记录相加~
8 j1 ^/ K8 _& c5 {$ E$ f但随便怎么试也不行~~~请各位好心人帮我改改~</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