数学建模社区-数学中国

标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!! [打印本页]
作者: myhunterli    时间: 2004-12-18 16:28
标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!!
<b>, o( t! [: @* F; a% V8 d3 `
- S8 O% y5 A6 }& Y8 L# \, L2 ~
</b>Dim rs_csxx As New ADODB.Recordset
- {. `* P( I; {8 L4 X7 I# [Dim sql As String
9 R( O, A, @! ^Dim tj As Integer6 n1 e. o" R$ ^/ f
Dim lq As Boolean ) N" w! A2 I. q3 h3 M. T6 @
! k4 |/ n. v% i+ Y
& a  w. o( a" R; c
< >sql = "select * from xxxz"
) I3 ~6 h5 M4 H/ j7 Vrs_csxx.CursorLocation = adUseClient
" q# i. @* o* ~/ y, f6 urs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>: N$ }/ r5 a. Z$ ~2 r! E5 O% j  s
< >Do While lq = True+ K1 o! G4 A6 |" k* w, p
tj = tj + rs_csxx.Fields(4)* L$ u7 h. F$ [0 ~
rs_csxx.MoveNext; M8 E# t, o( A5 m
If rs_csxx.EOF = True Then lq = False
0 |$ r5 H; O5 E& \Loop</FONT></P>
8 s- @9 i6 I( R9 I2 q: U$ G; p< >Text1.Text = tj</FONT></P>
, W9 N4 Q7 s8 L< >
5 K4 J; N( K  X* x! D哥哥姐姐们帮帮忙~
# a8 {, s& V# O% P* P4 O# |( _我用的office的acce数据库~想让csxx表中的N条记录相加~
  i% i  p& o0 M但随便怎么试也不行~~~请各位好心人帮我改改~</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