Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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ÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

VC++ ÖеÄ&·ûºÅ ¶ÔÓ¦µÄÊÇDelphiÖеÄÄĸö·ûºÅ£¿£¿

VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿

´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......

DelphiÔõôȡ·µ»ØÄÚÈÝÖеÄÖ¸¶¨²¿·Ö.

·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

2009ѧϰdelphiµÄǰ¾°

ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½ 
¿´µ½delphiµ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ