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
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½
¿´µ½delphiµ ......