<b> ^; j( x" Y2 y( R; A' g) ? * Q7 S9 _8 h+ ^3 N% G$ G</b>Dim rs_csxx As New ADODB.Recordset) }0 C4 c& s. L
Dim sql As String! Q) q4 M c3 q" g6 [8 f
Dim tj As Integer : e- d" I4 y4 y; pDim lq As Boolean 2 E/ N. N& ~% p/ v I
5 U7 o% S7 J. B* k* u+ v
# D8 p5 p, M" i) y# t< >sql = "select * from xxxz" 4 Z f; t6 P7 Q) ]9 D0 t9 `& c4 Drs_csxx.CursorLocation = adUseClient 7 ]* r6 e! h: r! j$ Ars_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>! o" ~7 K2 y. `
< >Do While lq = True. g0 K* r. D1 O5 O1 o3 L2 \6 {2 \
tj = tj + rs_csxx.Fields(4)% I3 [7 y1 X5 o W
rs_csxx.MoveNext$ J( p5 i- G$ n
If rs_csxx.EOF = True Then lq = False7 G3 T- b& \" y" K% M
Loop</FONT></P> [! r6 N+ ^ J< >Text1.Text = tj</FONT></P>, D/ K7 l" z, R* h1 h. I
< >2 `7 T7 K. w3 z) ]8 e
哥哥姐姐们帮帮忙~ " D1 ?1 {5 ~! l我用的office的acce数据库~想让csxx表中的N条记录相加~ 7 P# A# x* ^ W L* 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
