QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 4254|回复: 2
打印 上一主题 下一主题

VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!!

[复制链接]
字体大小: 正常 放大

2

主题

2

听众

81

积分

升级  80%

该用户从未签到

新人进步奖

跳转到指定楼层
1#
发表于 2004-12-18 16:28 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<b>& M, S/ N; {8 v' i' L2 S8 P

' g1 ~/ q3 L" Y0 R% ]0 t8 V9 L' ?</b>Dim rs_csxx As New ADODB.Recordset9 R9 D9 C. g( t: k* t
Dim sql As String
4 ]. s) z/ j4 m% @7 JDim tj As Integer* D2 A; r2 I/ W: s8 w( N) i
Dim lq As Boolean 0 w2 x6 a, U9 P$ K

2 h! G7 M. z$ f* |6 b1 c7 N8 W7 c' q- b2 V0 M# G$ N
< >sql = "select * from xxxz"
. m# I1 ]! C8 ]$ `rs_csxx.CursorLocation = adUseClient
; }# r! n3 p9 j  |rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
6 j9 s2 d7 w' W# F) w< >Do While lq = True
# f) O/ d/ i; s, Atj = tj + rs_csxx.Fields(4)0 x( w/ D* z; L8 Q9 b$ t9 N  g1 P# q9 Y
rs_csxx.MoveNext
) n* U4 z% o6 x; R- PIf rs_csxx.EOF = True Then lq = False
. T/ _6 j/ _3 [# a, b7 a9 a% o& WLoop</FONT></P>' p6 H5 y3 t/ D, w8 _; r) W# Q1 ~
< >Text1.Text = tj</FONT></P>
" k" `# r: c. e, g7 c< >
$ ^! s8 n6 V0 p: K哥哥姐姐们帮帮忙~
: d  d  }9 E7 O' M/ b- s我用的office的acce数据库~想让csxx表中的N条记录相加~) ]" ~$ V8 P3 n6 }2 |% Q% K
但随便怎么试也不行~~~请各位好心人帮我改改~</FONT></P>
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
ilikenba 实名认证       

1万

主题

49

听众

2万

积分

  • TA的每日心情
    奋斗
    2024-6-23 05:14
  • 签到天数: 1043 天

    [LV.10]以坛为家III

    社区QQ达人 新人进步奖 优秀斑竹奖 发帖功臣

    群组万里江山

    群组sas讨论小组

    群组长盛证券理财有限公司

    群组C 语言讨论组

    群组Matlab讨论组

    回复

    使用道具 举报

    blueriver        

    0

    主题

    0

    听众

    17

    积分

    升级  12.63%

    该用户从未签到

    新人进步奖

    <>为什么那条SQL语句不设为:sql="Select sum(要计算的字段) from xxxz"呢?</P><>还有变量lp开始时是不是设为TRUE,如果不是那就不会执行循环啦</P><>你这样写还不如直接写成:</P><>Do while rs_csxx.EOF&lt;&gt;True</P><>...</P><>Loop</P>
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2025-7-21 04:12 , Processed in 0.543816 second(s), 74 queries .

    回顶部