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
Ïà¹ØÎÊ´ð£º
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
if (Trim(ComboBox2.Text) <>'')and(Trim(Edit3.Text) <>'')then
begin
with ADOQuery1 do ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......