<b> . l4 Z' u. y! `2 Q0 J. B& ]- e4 t
</b>Dim rs_csxx As New ADODB.Recordset- b% f2 q1 h2 d% \- ~
Dim sql As String, y% i: c8 W i5 U; Z& G6 A
Dim tj As Integer 0 ?8 }" w& X' u* [: aDim lq As Boolean ) d' o: t. e/ ]
i/ b- e, o+ k2 h7 m& p
6 {" K0 ^4 R; n7 K< >sql = "select * from xxxz" $ `% Y5 u" y& S. Y$ j/ O7 P, F) [6 Krs_csxx.CursorLocation = adUseClient 4 N$ z; R- B% c& ors_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>8 P5 }8 y; A: b$ X) r
< >Do While lq = True1 ?. P5 [) o+ F. a
tj = tj + rs_csxx.Fields(4)/ r! k( [2 ^$ X' D
rs_csxx.MoveNext$ v+ y/ A1 l' e l1 e9 |- J* E+ a! s
If rs_csxx.EOF = True Then lq = False # N! S' d5 g1 F, @Loop</FONT></P> 4 @- ?+ u" ]4 [) Y- X< >Text1.Text = tj</FONT></P>7 D% R( N f; j( T1 M3 ~2 W
< > ) M3 }' h$ B5 ]1 x# K哥哥姐姐们帮帮忙~ 9 q: h$ O: g6 k$ Q7 ~. y4 Q我用的office的acce数据库~想让csxx表中的N条记录相加~; P9 N3 P5 w, \
但随便怎么试也不行~~~请各位好心人帮我改改~</FONT></P>
<>为什么那条SQL语句不设为：sql="Select sum(要计算的字段) from xxxz"呢？</P><>还有变量lp开始时是不是设为TRUE，如果不是那就不会执行循环啦</P><>你这样写还不如直接写成：</P><>Do while rs_csxx.EOF<>True</P><>...</P><>Loop</P>
IP卡
狗仔卡
发表于 2004-12-18 16:28
>sql = "select * from xxxz"
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
发表于 2004-12-19 23:35
