Á¬½ÓACCESS³öÏÖδָ¶¨µÄ´íÎó£¬Á¬½ÓSQLûÓÐÎÊÌâ
procedure TForm4.FormShow(Sender: TObject);
begin
with dataa.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select ²Ù×÷Ô±±àºÅ,²Ù×÷Ô±ÐÕÃû,²Ù×÷Ô±ÃÜÂë,²Ù×÷Ô±¼¶±ð = Case ²Ù×÷Ô±¼¶±ð when 1 then ''ϵͳ¹ÜÀíÔ±'' when 2 then ''²Ù×÷Ô±'' end from ²Ù×÷Ô±ÐÅÏ¢±í');
Open;
end;
if Dataa.ADOQuery2.RecordCount>0 then
DataSource1.DataSet := Dataa.ADOQuery2
else
DataSource1.DataSet := Nil;
Combobox1.ItemIndex := 0 ;
Button1.SetFocus;
end;
ÒÔÉÏ´úÂëÁ¬½ÓACCESS³öÏÖδָ¶¨´íÎ󣬵«ÊÇÁ¬½ÓSQLûÓÐÎÊÌ⣬Äܵõ½Êý¾Ý£¿ÇëÎÊÎÊÌâ³ö´íÔÚÄĶù£¿
Èç¹ûÎÒû¼Ç´í£¬accessûÓÐCase then £¬ºÃÏñÓÐiif£¬markÒ»ÏÂÏÈ
ÊÔÊÔ£º
'select ²Ù×÷Ô±±àºÅ,²Ù×÷Ô±ÐÕÃû,²Ù×÷Ô±ÃÜÂë,²Ù×÷Ô±¼¶±ð =iif(²Ù×÷Ô±¼¶±ð=1,''ϵͳ¹ÜÀíÔ±'',''²Ù×÷Ô±'' ) from ²Ù×÷Ô±ÐÅÏ¢±í'
×¢Ò⣺ÕâÀï²Ù×÷Ô±¼¶±ð·Ç1¾ÍÊDzÙ×÷Ô±£¬·ñÔò:
'select ²Ù×÷Ô±±àºÅ,²Ù×÷Ô±ÐÕÃû,²Ù×÷Ô±ÃÜÂë,²Ù×÷Ô±¼¶±ð =iif(²Ù×÷Ô±¼¶±ð=1,''ϵͳ¹ÜÀíÔ±'',iif (²Ù×÷Ô±¼¶±ð=2,''²Ù×÷Ô±'','ÆäËüÈËÔ±) ) from ²Ù×÷Ô±ÐÅÏ¢±í'
'select ²Ù×÷Ô±±àºÅ,²Ù×÷Ô±ÐÕÃû,²Ù×÷Ô±ÃÜÂë,²Ù×÷Ô±¼¶±ð =iif(²Ù×÷Ô±¼¶±ð=1,''ϵͳ¹ÜÀíÔ±'',''²Ù×÷Ô±'' ) from ²Ù×÷Ô±ÐÅÏ¢±í'
³öÏÖдíÎó´íÎó
Ïà¹ØÎÊ´ð£º
ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......
ÎÒÃÇC#×öÒ»¸ö´°Ìå ÍùÊý¾Ý¿âÀï²åÈëÊý¾Ý
SqlConnection cn = new SqlConnection("Data Source=20090713-1752\\SQLEXPRESS;Initial Catalog=goods;Integrated Security=True");
......
ÏÖÔÚÓÐÁ½ÕÅ±í£ºÎÄÕÂÖ÷±íA(articleId,articleTitle)£¬ÎÄÕÂÆÀÂÛ±íB(commentId,articleId,commentTitle)
ÏÖÔÚÎÒÏëʵÏÖÕâÑùµÄ¹¦ÄÜ£ºÁгöÎÄÕÂÁÐ±í£¬ÆäÖÐÿƪÎÄÕ±êÌâÏÂÃæÁгö´ËÎÄÕµÄǰ2¸öÎÄÕÂÆÀÂÛ£¬ÇëÎÊsqlÓï¾äÔõôд°¡ ......
ÎÒÊÇÔÚtoadÖÐÊäÈë϶Îsql
declare
TYPE test_rec IS record(
code varchar(10),
name varchar(30)
);
v_book test_rec;
......
ÏëÓÃSQL CLR×öÈçϵĴ洢¹ý³Ì,µ«ÊÇ·¢ÏÖ±¨´í:
{ÓÉÓÚ´úÂëÒѾ¹ýÓÅ»¯»òÕß±¾»ú¿ò¼ÜλÓÚµ÷ÓöÑÕ»Ö®ÉÏ£¬ÎÞ·¨¼ÆËã±í´ïʽµÄÖµ¡£}
¶øÇÒÈç¹ûÊý¾Ý´Ócase 1ͨ¹ýʱ¾ÍÊÇÕýÈ·µÄ,´Ócase 2ͨ¹ýʱ´íÎó
²¢ÇÒÔÚc ......