delphi ²åÈëÊý¾Ý¿âÅжÏÊÇ·ñ´æÔڼǼ£¬´æÔÚ¸üеÄÎÊÌâ
insertsql2:='insert into A (a,b,c) values () where a='''+s+'''';
con1.Open;
qry2.SQL.Clear;
qry2.SQL.Add(insertsql2);
qry2.ExecSQL;
Application.MessageBox('²åÈë³É¹¦£¡','Ìáʾ',0+64);
ÔÚ½øÈë²åÈë¼Ç¼²Ù×÷ʱ£¬ÈçºÎÅжϱíÖÐÊÇ·ñ´æÔÚÏàͬ¼Ç¼£¬Èç¹ûÏàͬÔò¸üУ»Èç¹û²»´æÔÚ£¬¾Í²åÈë¡£
1,²åÈëǰѡͨ¹ýÖ÷¼ü²éѯһÏÂ
2£¬Ö±½Ó½«ÄãµÄ²åÈë¹ý³Ì·Åµ½
try
// insert
except
// Òì³£µÄ»°£¬Í˳ö
end;
ÏÈselect³öÄǸöidµÄ¼Ç¼£¬È»ºóÅжÏÊý¾Ý¼¯ÊÇ·ñΪ¿Õ£¬Èç¹û²»Îª¿Õ£¬¾ÍÖ¤Ã÷´æÔÚ
sql:
'if not exists(select a from A where a='+quotedstr(s)
+' insert into A (a,b,c) values ('+...+')'
ͬÒâ2Â¥µÄ¿´·¨
if select then
update
else
insert into
»¹Êǰ´ÀÏÃÏ·½·¨Ã»Óдí
ÏàͬҲ¸üоÍÏԵöàÓàÁË,²»´æÔÚ¾ÍÖ±½Ó²åÈë
if not exists(select 1 from A where a='k' and b='k' and c='k') insert into A(a,b,c) values ('k','k','k')
ÏȲéѯ£¬¿´ÄãËùÒª²åÈëµÄÄǸö×÷ΪÖ÷¼üµÄ¼Ç¼ÊÇ·ñ´æÔÚ¡£
´æÔÚ£¬²»²åÈë¡£
ÓÃadoqueryDelphi(Pascal) code:
adoquery.recordcount
Ïà¹ØÎÊ´ð£º
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview
treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));
raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ
²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà
TTreeView ......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
Çë½ÌÒ»¸öÎÊÌ⣬ÏÖÔÚÓÐÒ»ÏîÄ¿ÐèÒª»æÖÆÇúÏßͼ£¬
ÒªÇ󣺣¨¿ÉÒÔÈÎÒâÑ¡Ôñºá×ø±ê£¨Ê±¼ä£©·¶Î§»³ö¶ÔÓ¦µÄÊý¾ÝÇúÏߣ¬×Ý×ø±ê×Ô¶¯ÓÅ»¯ÉèÖÃ(Ò²¿ÉÊÖ¹¤Ñ¡Ôñ)£¬¿ÉÒÔÔÚÈÎÒâʱ¼ä¶ÎÄÚ·Å´ó¡¢ËõСͼÐΣ¬Ä³¾ßÌåÊý¾ÝµãµÄ¶¨Î»¼°´ËÊý¾ÝµãµÄ ......