说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

关于动态查询表为空时,怎样获取一个条件??最终调取一个提示框

编辑:说三道四文库 发布时间:2017-10-23 11:44
HTML文档下载 WORD文档下载 PDF文档下载
如果在此语句:
  procedure ...
  begin
    ...
    ADOQueryx.SQL.clear;
    ADOQueryx.SQL.Add(...);
    ADOQueryx.Prepared;
    ADOQueryx.Open;
   //关于动态查询表为空时,怎样获取一个条件??最终调取一个提示框
   ...
  end;
没看明白。获取什么条件?
你的意思是不是 if ADOQueryx.Eof then ......   ?
up 或者
if ADOQueryx.recordcount=0 then 
   Showmessage('no record')

譬如说:所查询的表为空时我要弹出一个对话框,及加入
     Application.messagebox('...','...');
songyan 提到的方法之前我已用过,一运行就会报错。
plfire的方法我可以一试
ADOQueryx.SQL.close;
    ADOQueryx.SQL.clear;
if AdoQuery1.isempty then Showmessage('Empty');
涓€銆佽〃缁撴瀯

1銆佽〃TK缁撴瀯锛?
N1:string; ->鍚嶇О
N2:string;->鍐呭
t11:string:->绫诲瀷
tk琛ㄥ瓨鏈夎褰?0000鏉°€?

2銆佽〃f-leixin缁撴瀯锛?
F1:string;->鏍囪瘑鍚?
leixin:string:->绫诲瀷锛堟湁200涓笉鍚岀被鍨嬶級
YTI:integer;->璁板綍鏁?
LX琛ㄥ瓨鏈変笉鍚屸€滅被鍨嬧€濈殑璁板綍200鏉°€?

3銆佹垜鐢ˋDO杩炴帴ACCESS鏁版嵁搴撱€?


浜岋細瑕佸疄鐜扮殑鐩殑銆?
鎴戞兂鎶奣K琛ㄩ噷绗﹀悎f_leixin琛ㄧ被鍨嬬殑璁板綍鍏ㄩ儴鏌ヨ鍑烘潵锛?骞跺皢鏌ヨ缁撴灉杩涜璁℃暟锛?鐒跺悗灏嗗€煎瓨鍏?
f_leixin琛ㄧ殑YT瀛楁銆?
涓夛細 鎴戣嚜宸辩殑缂栫▼
鎴戜富瑕佹槸鐢ㄥ姞寰幆閬嶅巻鐨勬柟寮忥紝鐢ㄤ竴鏉QL璇彞锛屽厛杩涜鏌ヨ缁熻銆佹浛鎹紝鐒跺悗寰幆f_leixin琛紝
杩欐牱鏌ヨ鐨勫瓧娈靛€煎氨浼氭牴鎹殢鐫€LX琛ㄧ殑鎸囬拡绉诲姩杩涜鍙樺姩锛屽氨瀹炵幇浜嗕笂杩拌姹傘€?
浠g爜濡備笅锛?
while not adotable2.eof do begin
       lx1:=adotable2.fieldbyname('leixin').AsString;
       lx1:=trim(lx1);
       adoquery2.Close;
       adoquery2.SQL.Clear;
       adoquery2.sql.add('select count(*) as lnfen2 from tk where t11 like  ''%'+lx1+'%''  group by t11');
       adoquery2.Open;
       lnfen2:=adoquery2.fieldbyname('lnfen2').asinteger;
       adotable2.Edit;
       adotable2.fieldbyname('yti').asinteger:=lnfen2;
       adotable2.Next;
       end;
       end;
鍥涳細闂锛燂紵锛焆
鐢ㄦ垜鑷繁鐨勪唬鐮佸緢鎱紝寰堟參銆傚湪缃戜笂鍒汉鍛婅瘔鎴戣繖鏍峰彲浠ワ細

begin
adotable2.Open;
adotable2.edit;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.sql.Add('update  f_leixin set yti=(select count(*) from tk where  f_leixin.leixin=tk.t11 )');
ADOQUery2.ExecSQL;
  adoquery2.sql.clear;
  adoquery2.sql.add('select * from f_leixin');
  adoquery2.open;
END锛?
浣嗘槸鎵ц涓嶄簡濂藉儚ACCESS鏁版嵁搴撲笉鏀寔姝QL璇彞銆?

璇烽珮鎵嬪府鎴戞兂涓姙娉曪紝鎴戞悶浜嗕竴澶滃晩銆傦紒锛侊紒锛侊紒

 
 
鏉ヨ嚜锛歺zh2000, 鏃堕棿锛?003-4-30 8:36:00, ID锛?816056 
缁堜簬鎼炴竻妤氫綘瑕佸仛浠€涔堝暒锛?
鍏跺疄闂鏃跺皢琛ㄧ粨鏋勭殑鍒涘缓璇硶鍙婂皯璁告祴璇曟暟鎹创鍑烘潵澶у浼氭洿涔愭剰甯綘娴嬭瘯

鎸夊父瑙勭寽锛屼綘鐨凾K.tt1涓巉_leixin.leixin鍐呭鏄竴鏍风殑銆?

update f_leixin 
 set yti = (select count(*) from tk group by tt1
where f_leixin.leixin=tk.tt1)

update  f_leixin 
  set yti=(select count(*) from tk where  tk.t11 = f_leixin.leixin )

鍥犱负鏄疉CCESS锛屾祴璇曟€ц兘鐨勬柟娉曞緢楹荤儲銆?

 
 
鏉ヨ嚜锛?0082008, 鏃堕棿锛?003-4-30 8:47:00, ID锛?816097 | 缂栬緫 
鐢ㄥ摢涓€鍙ラ兘涓嶈鍛€锛燂紵

鎴戝湪ACCESS閲岃皟璇曪細
鎻愮ず涓嶈兘鍦ㄦ煡璇㈡暟鎹噷杩涜鏇存柊銆?

鍘熷洜鎴栬€呮槸涓诲缓鍐茬獊锛?
鎴栬€呮槸閿佸畾鍐茬獊锛?
鎴栬€呮槸鏈夋晥鎬у啿绐侊紱
浣嗘槸鎴戠殑TK琛ㄩ噷鏈塈D锛孎-LIXIN琛ㄩ噷鎴戞妸ID鍒犻櫎浜嗕篃涓嶈鍟娿€傦紵锛燂紵

浣犲府鎴戝惂銆?
 
 
鏉ヨ嚜锛歺zh2000, 鏃堕棿锛?003-4-30 8:51:00, ID锛?816113 
閭e彲鑳紸CCESS灏变笉鏀寔杩欑鎿嶄綔锛?
鐢⊿QL鍚с€?
 
 
鏉ヨ嚜锛?0082008, 鏃堕棿锛?003-4-30 8:54:00, ID锛?816129 | 缂栬緫 
鍙槸鎴戠殑鍚庡彴鏁版嵁搴撶敤鐨勬槸ACCESS鏁版嵁搴撳晩銆傛垜涓嶆兂杞憖

浣犲府甯甎P浠ヤ笅瀵逛簡鎬庝箞缁欎綘鍒嗗憖銆?

濂藉儚ACCESS鏁版嵁缁撴灉缁熻鍑烘潵浜嗗氨鏄笉鐭ユ浛鎹㈢殑闂锛燂紵锛?
浣犲府甯垜鍚?

鎴戝緢鎬ョ殑锛燂紵锛?
 
 
鏉ヨ嚜锛氬崪娉扮敺, 鏃堕棿锛?003-4-30 9:02:00, ID锛?816172 
UP!
 
 
鏉ヨ嚜锛?0082008, 鏃堕棿锛?003-4-30 9:07:00, ID锛?816213 | 缂栬緫 
鏈変竴涓綉鍙嬪憡璇夋垜杩欐牱濂藉儚鍙互锛?
select a.*,(select count(*) from tk where a.leixin=tk.t11) as c from f_leixin a

浣嗘槸鍦ㄥ湪鏌愪簺鏂归潰F鈥擫IXIN琛ㄦ柊澧炰簡涓€涓瓧娈礐锛屽畠鎶婃墍鏈夌殑缁熻缁撴灉鏀惧湪C閲岄潰涓嶈兘鏀惧湪鎸囧畾瀛楁YTI閲岄潰鍛€锛燂紵锛燂紵
 
 
鏉ヨ嚜锛歵rf, 鏃堕棿锛?003-4-30 11:00:00, ID锛?816834 
Update 璇彞搴旇杩欐牱鍐欙細
'update  f_leixin,tk set yti=(select count(tk.*) from tk where  f_leixin.leixin=tk.t11) 
 
 
鏉ヨ嚜锛?0082008, 鏃堕棿锛?003-4-30 11:06:00, ID锛?816857 | 缂栬緫 
鎴戠敤鐨勬槸ACCESS鏁版嵁搴?

update  f_leixin,tk set yti='select count(tk.*) from tk where  f_leixin.leixin=tk.t11'

杩愯涓嶄簡鍛€銆?
 
 
鏉ヨ嚜锛歵rf, 鏃堕棿锛?003-4-30 11:48:00, ID锛?817133 
瀵逛笉璧凤紝鍐欓敊浜嗭紝搴旇锛?
'update  f_leixin,tk set f_leixin.yti=(select count(tk.*) from tk where  f_leixin.leixin=tk.t11)
 
 
鏉ヨ嚜锛?0082008, 鏃堕棿锛?003-4-30 11:58:00, ID锛?817168 | 缂栬緫 
浣犲啀甯垜璇曚竴涓嬪湪ACCSSE閲屼笉鑳借繍琛屾彁绀猴細
select count(tk.*) from tk  where  f_leixin.leixin=tk.t11鏈夐敊璇晩
 
 
鏉ヨ嚜锛歵rf, 鏃堕棿锛?003-4-30 12:03:00, ID锛?817195 
璇曚竴涓?
'update  f_leixin,tk set f_leixin.yti=(select count(tk.t11) from tk where  f_leixin.leixin=tk.t11)
 
 
鏉ヨ嚜锛?0082008, 鏃堕棿锛?003-4-30 12:08:00, ID锛?817220 | 缂栬緫 
杩樻槸涓嶈鍟婃槸涓嶆槸ACCEES涓嶆敮鎸佸晩銆?

杩愯鍚庢彁绀轰笉鑳芥洿鏂版煡璇㈢粨鏋滃憖锛燂紵锛?
澶у摜浣犲府鎴慤P浠ヤ笅鍚ф眰浣犱簡銆?
 
 
鏉ヨ嚜锛歵rf, 鏃堕棿锛?003-4-30 12:36:00, ID锛?817331 
瀵逛笉璧凤紝搴旇杩欐牱,鍏堝垱寤轰竴涓〃T1锛屽瓨鏀炬弧瓒充笅闈㈡潯浠惰褰曪細
    select tk.t11,count(*) as A from tk,f_leixin on tk.t11=f_leixin.leixin
        group by tk.t11
鐒跺悗Update璇彞锛?
  'update  f_leixin,T1 set f_leixin.yti=T1.A where f_leixin.leixin=T1.t11

 
 
鏉ヨ嚜锛?0082008, 鏃堕棿锛?003-4-30 13:05:00, ID锛?817424 | 缂栬緫 
绗竴鍙ユ湁闂鎵ц涓嶄簡
 
 
if ADOQueryx.recordcount=0 then
 MessageDlg(Format(Msg,[SearchValue]),mtInformation, [mbOK], 0);
AdoQuery1.isempty
我要感谢大家的帮助,特别是 songyan, plfire 和snake_eye
因为只有50分,所以请大家海涵。
一个开源工作者对开源与赚钱的一些想法 宏碁:Windows8仍不成功 Chrome表现令人意外 雅虎发布Q4财报 净利润同比下滑8% 游戏机禁售令起风波,索尼任天堂股价大涨 国外开发者吐槽Facebook Android设计一例 Rovio转向发行业务 将发布新作Tiny Thief 上山下海 “硬汉”服务器无所不能 访金山云CTO杨刚:开源改进PK自主研发,技术驱动前行 苹果涉及色情问题,且进一步恶化 开源产品系列:面向组件的Web框架tapestry 360指责百度窃取用户信息 公布美杜莎插件技术分析 苹果正式发布iOS 6.1 最快本周日即可越狱 苹果高管:运行iOS 6的设备达3亿 Chrome OS 黑客大赛总奖金为314.159万美元 微软雷德蒙研究院副总裁:从计算研究到惊人发明 还驾驭不了4核? 别人已模拟出百万核心上的并行 RIM将网络直播BlackBerry 10发布会 解读TDD的五大误区 Amazon 2012财年Q4财报:电子书业务增长70% 从暴风影音CTO到创业者:画中画相机话中话 为什么Android应用开发总要比iOS晚? 传奇VC马克.安德雷森:未来的企业什么样? 呼吁国会通过“创业签证”:奥巴马助力美国招揽海外人才 Surface Pro最低1019美元,价值究竟如何? 搜狗号码通产品经理谈微创新 数据和运营更关键 在线推荐系统是如何进行工作的? 欧朋浏览器上架App Store,iOS生态真要变天? 苹果iOS 6.1地图搜索API将替代谷歌Places Oracle向开发者承诺 称尽快修复Java安全问题 日本:开发者与投资人都不容忽视的移动市场 Unity 3D引擎:十大最火的插件推荐 求救高手?active dll的Ftp上传组件的问题?(100) TQuery返回的字段类型信息如何区分numeric还是float? 我感觉VC里最神秘的几块内容(至今也没搞懂) 在这里混了有段日子了 升星 散分!!(请版主别删) 欢迎大家加入我建的QQ群 请问一下各位是如何调用第三方的DLL。例如:华为DLL.清华深资DLL。等等。。。 QRBand能否自动换页的问题。 请问有哪位 有ACCP的的全套资料第一学期第一学年 资料 一个关treeview的问题 sql server有没有办法看一个image类型值是否有无? 嵌入到outlook控件的问题 一个奇怪的问题: 怎么老打不开数据库set db= new notesdatabase("","data.nsf")??? 如何调用DLL啊? JSP怎么样调用sessionbean? 如何在Cell单元格显示数据库中已image类型存放的图片?(急) php有什么好办法把mysql里面枚举型字段的各个项目读出来? easy problem 文件问题 在线等候 北京掌中仙境技术有限公司招聘程序开发人员 请问win2003中如何起用3d? 关于迭代开发模式 主菜单的字体怎么修改? C#中自动生成SQL语句(update,delete)是否并不怎么好呢? 关于在VC中开发数据库使用ORACLE的若干问题?(SQL SERVER 到 ORACLE转换的问题) 如果更新有外键约束的主键呢? 谁有播放*.dat的asp组件啊!~ 这是一个控件源码,为什么只有在运行时,才能显示控件的图形,请指教! 电脑一进系统就待机……sos 浅谈视图(Views) 本人急需自然景物的分形源程序(最好包括山水树),急!可加分 高分求免费电影下载网站,最好是一些提供最新电影的网站 请教axis的开始的安装配置问题,谢谢~ 如何用ASP实现往已经建好的表中添加新的字段? TQuery返回的字段类型信息如何区分numeric还是float? 为什么弹出来的菜单偏离我的点的位置很远? 高手请进!!! 用sqlDataAdapter自动产生的update,delete语句是否最优? 小问题,50分,我的CRichEditCtrl继承类为什么在输入汉字时不触发 WM_CHAR 消息!! 100分,如何将一个类实例存入数据库,并取回? JavaScript问题,请大家帮忙。 急,急,急!如何做一个循环让程序延迟3秒执行? 有意思的问题,请高手指教!(100*x) 如何根据条件来得到DataGrid需要显示的列!!! php运行环境配置 CSDN怎么总出错啊?ft... 有一事不解,进来看看吧,up有分 菜鸟提问:DOM中如何load一个.xml文件 mssql2000的jdbc驱动是否不支持PreparedStatement HELP!!! 无论打开任户文件夹,都提示WAS VIRUS!!!DESTORYED Rose 菜鸟的傻问题 谁用MSChart做过曲线图??急用!! 醉里吴音相媚好的醉里是什么意思? 怎么写《妈妈的味道》这篇作文?麻烦帮忙写个开头和结尾 还有帮我选几个典型事例 “国破山河在,城春草木深.”中,“破”和“深”字体现了诗人怎样的思想感情? 醉里吴音相媚好的 相媚好啥意思 作文《妈妈的味道》 用world造句,随便加上音标 醉里吴音相媚好中的相媚好是什么意思? 效应细胞能杀死靶细胞细胞毒性T细胞能杀死靶细胞吗 类似自相矛盾的成语越多越好 三角形ABC中角A.B.C所对的边分别为a.b.c,已知cosC=-1/4.1求sinC的值 2当a=2,2sinA=sinC时,求b及c的长 根据《鹿和狼的故事》给凯巴森林设计一块警示牌 要小学水平的 50字左右 see the world造句 生男生女决定于夫妇中的丈夫,因为男性能产生x、y两种,女性只产生具有x染色体的一种卵细胞.这句话是对是错额...到底是对的还是错的!我都蒙了! 醉里吴音相媚好的意思是什么? 现在有人想在凯巴伯森林入口处竖一块警示牌,你认为该在上面写些什么? 关于专利权的判断题,专利权人的权利不包括专利权人为发明人,设计人时表明自己发明人,设计人.是对是错?答案给的是该说法正确.但是不太明白.这句话该怎么理解?专利权人是发明人或设计 在△ABC中,角A,B,C成等差数列,求2sinA-sinC的取值范围 贝壳炒着吃怎么弄啊? 为什么生理盐水可以可减轻硝酸银腐蚀性 在△ABC中,三内角A、B、C成等差数列,且关于x的方程x^2sinA+2xsinB+sinC=0有两相等实根,则角A=?角C=?60°,60°. 贝壳怎么炒 在HCl气体溶于水后水的体积不变的情况下,如何计算30%盐酸的密度如果是那样的化任何浓度为30%的溶液密度都是一样的了? 吭的两个读音 怎么炒贝壳?我买了贝壳 怎么炒 30%盐酸密度是多少? 爷爷冷得吭吭地咳的吭的读音 油漆工的徒弟叫啥?(急转弯) 我用4017做了一个双稳态电路,它会受到220V交流电影响的?我做了这个双稳态电路,不知什么原因?家里的电灯开或关都经常到它的不稳定, “醉里吴音相媚好,白发谁家翁媪? 请教一道电路习题,第32题 用IC4017做的指示流水灯12脚要不要接电路. T,B细胞阴性阳性选择的概念及意义 电路图练习题 如何用CD4017做一个四分频电路? 我知道效应T(B)细胞是T(B)细胞的进一步.可我想问.T(B)细胞和T(B)淋巴细胞是同一个含义吗?还是在造血干细胞流入胸腺时是T细胞.然后再慢慢成熟为T淋巴细胞 动物的皮下脂肪影响动物体表的散热吗? 1、If you don't like what he said,just r______.2、Although they are twins,they behave d_______.3、Two days later,the meat went bad and it produced an unpleasant s__________. 细胞的定义是什么? 关于句子的理解(急需答案)原句:1、把自己当作别人2、把别人当作自己3、把别人当作别人4、把自己当作自己理解:1、待人处事不能总是以自我为中心,要多为他人着想:从他人的角度、 《了不起的盖茨比》(The great gatsby )英文精校版 TXT附件即可英文精校就行 什么格式都可以 谢 在三角形ABC中,a,b,c分别对应角A,B,C的对边,C=2A,sinC=3/2sinA(1)求sinA,sinC的值(2)若ac=24,求边b的长 加急! 理解:他把他的大提包扔在一边,怀里紧紧地抱着一只纸箱子. quickshe doesn't come to the party today ,she _____busyA,maybe B,may be C.must D.may -----What do you think of the Prime Minister's speech to the nation?1.---What do you think of the Prime Minister's speech to the nation?---I like ____of what he said.A more B many C few D muchWHY2.He asked several questions____the professor who g 什么动物不长毛 第30题快! BE QUICK! 醉里吴音的吴音指的是哪里的语言 动物和人为什么会长毛,为什么鱼类不能? quick!What does it feel like( ) hiking ( ) fine weather?A going; in soB to go; in such a C going; on so D to go ;in such(不是“feel like doing sth ”,)You haven't forgotten to pay him,have you?-____,but I'll remember _____ him tomorrow.A yes,payi 某企业在第1年初购买一台价值为120万元的设备M,M的价值在使用过程中逐年减少.从第2年到第6年,每年初M的(Ⅰ)求第n年初M的价值an的表达式;(Ⅱ)设 ,若An大于80万元,则M继续使用,否则须 为什么人不像动物一样浑身长毛人类和其他动物一样需要抵御寒冷,为什么人的毛退化了呢 一道初二英语题,关于反意疑问句的(quick~~)You are never too young to start doing things,( ) ( )? 湖南某高新区引进一高科技企业,投入资金720万元建设基本设施,第一年运营费用120万元,以后每年增加40...湖南某高新区引进一高科技企业,投入资金720万元建设基本设施,第一年运营费用120万元 动物冬天是怎样过冬的 请问碳化的木头和竹子,在干燥的状态下导电吗? X是2与8的等差中项,则X与5的等比中项是? 300mm长50mm宽的预留孔灌浆深度不能超过多少? 竹醋液真的是竹子炭化过程中得到的液体吗?它是不是有多少纯度的?怎样的竹醋液才是好的? 高二数学必修五等差等比数列 珍珠对于贝壳(蚌)的生理意义?这里不是问珍珠的形成原理哦, 巴沙尔强调政治方案能否成功取决于停止埃及临时总统访问阿联酋宁国领导慰问老人照片系合成 官员“悬宁国就PS照事件致歉 称官员慰问老人伦敦股市30日收盘基本持平纽交所黄金期货市场30日交投最活跃的中储粮回应转基因油入国储库:不具备检北京匿名社会监督员:提20多条意见从多名俄罗斯高官因瞒报收入被免职中国就欧盟对华紧固件反倾销措施案的执北京10单位仅1公开社会监督员信息 北京重污染天机动车单双号限行 电动汽美国联邦储备委员会宣布维持现有宽松货中国在联合国大会全票连任联合国经社理俄罗斯百年兵工厂爆炸致两人死亡中组部发布新规:党政干部企业兼职不得联合国人口基金会2013报告:面对青德媒称北京上海等城市被美列入监听 韩莫言出任网络文学大学名誉校长 曾决心北京最牛违建拆除停近1月 同楼居民纷李某某再换律师二审推迟 新律师称重新泥浆足球北京开赛永恒的庞贝红《雷锋》杂志在京创刊美国航天局宣布发现迄今最像地球的系外开展“四进四信”教育 提高立德树人水“四进四信”是教学“提升”的必要环节纪录片《军工记忆》即将在央视播出“心起点”先天性心脏病 儿童救助行动习近平致全国青联十二届全委会和全国学芬兰貂熊糖尿病患者控制饮食并非饥饿疗法北京清华长庚医院治疗腰椎间盘突出不再太行山与八路军华北抗战“共和国部长与全国青联委员面对面”活大病保险今年内将覆盖所有城乡居民为基层治理提供支撑主流媒体慎“卖萌”毛姆的理想与空想牢牢掌握意识形态工作领导权必须坚持四俞正声对泰国进行正式友好访问全国首个非遗主题文博会举办
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘