Á¬½Ó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 ²Ù×÷Ô±ÐÅÏ¢±í'
³öÏÖдíÎó´íÎó
Ïà¹ØÎÊ´ð£º
ÎÒÓжà¸ö±íA B C ½á¹¹ÊÇÒ»ÑùµÄ£¬¶¼ÓÐ2¸ö×Ö¶ÎnameºÍcontent,ÎÒÒªËÑË÷ËùÒÔ±íËùÓÐ×Ö¶ÎÖаüº¬¡°Öйú¡±µÄÄÚÈÝ Õâ¸öSQLÓï¾äÔõôд
ÈçºÎ½«¶à¸ö±íµÄ²éѯ½á¹ûÁ¬³ÉÒ»¸ö±í Õâ¸öSQLÓï¾äÔõôд ±íµÄ½á¹¹ÊÇÒ»ÑùµÄ
ÀýÈç£ ......
ÎÒÒ»¸öÏîÄ¿£¬Óиö²åÈë²Ù×÷£¬¾ßÌåÊÇÕâÑùµÄ£º
ÎÒÓнø»õÐÅÏ¢±í¡£ÔÚ³ö»õʱѡÔñÏàÓ¦µÄ½ø»õÐÅÏ¢£¬ÊäÈëÊýÁ¿£¬Ñ¡Ôñ²¿Ãź󣬵㱣´æ°´Å¥£¬ÓÉÓÚÍøÂçÑÓʱ£¬µãÒ»ÏÂûÓз´Ó³£¬ÓÚÊÇÓû§¾ÍÓÖµãһϣ¬µ¼ÖÂÒ»´Î²åÈëÁËÁ½Ìõ¼Ç¼:
Àý£º
......
СµÜ£¬×î½üҪתÐÐÈ¥×öoracle¿ª·¢ÁË£¬ÓÉÓÚ´óѧ±Ïҵʱ£¬×ßÁ˸öÍä·£¬ÏÖÔÚºÜСÐÄ£¬ÎÊÏ£¬×öPL/SQLÓÐûÓÐǰ;£¿£¿£¿
µ±È»ÎÒ˵µÄÕâ¸öǰ;ÊÇÖ¸ ÒÔºóÒªÌø²Û£¬Êг¡¶ÔÕâÑùµÄÈ˲ŵÄÐèÇóÁ¿´ó²»´ó£¿£¿
3q ÄÇ¿´À´»¹Ö»ÄÜÏȽӴ ......
ÎÒÃÇC#×öÒ»¸ö´°Ìå ÍùÊý¾Ý¿âÀï²åÈëÊý¾Ý
SqlConnection cn = new SqlConnection("Data Source=20090713-1752\\SQLEXPRESS;Initial Catalog=goods;Integrated Security=True");
......
ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,
ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......