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

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

编辑:说三道四文库 发布时间:2018-08-19 03:53
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分,所以请大家海涵。
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘