accessÊý¾Ý¿âÁ¬½Ó - Web ¿ª·¢ / ASP
ÎÒÁ¬½ÓaccessÊý¾Ý¿â£¬ÒÔǰһֱºÜºÃ£¬×î½üÈ´×ÜÊdzö´í£¨Êý¾Ý¿âÁ¬½Ó³ö´í!£¡£©£¬´úÂëÈçÏ£º
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "Êý¾Ý¿âÁ¬½Ó³ö´í!£¡"
Response.End
end if
err ºÎʱÊÇtrueѽ
Äã°ÑÕâ¸öifÓï¾ä×¢Ê͵ô ¿´¿´´íÎóÐÅÏ¢
conn¶ÔÏó´´½¨ÁËô.
Ó¦¸ÃÔÚÇ°ÃæÐ´,On Error Resume Next,²»È»²»ÖªµÀ´ÓÄÄÀ↑ʼµÄ,ÔÚÕâ¸ö·¶Î§Ö®ÄÚÒ»°ãÀ´ÈκδíÎóerr¶¼»áÎªÕæ.
²»ÖªµÀÊý¾Ý¿âÁ¬½Ó´íÔÚÄÄÀï,ÏȰÑÕâ¶ÎÈ¥µô,¿´¿´±¨Ê²Ã´´í,ÔÙÌù³öÀ´¸øÄã¿´¿´
VB code:
if err<>0 then '0£ºÕý³£
err.clear
set conn=nothing
response.write "Êý¾Ý¿âÁ¬½Ó³ö´í!£¡"
Response.End
end if
if err<>0 then
¸ÄÕý£º
Err.number<>0
VB code:
<%
dim startime,Conn,rs,rs1,rs2
startime=timer()
on error resume next '³¢ÊÔÁ¬Êý¾Ý¿â£¬Ò»Ö±µ½³¬Ê±
set Conn=server.CreateObject("ADODB.Connection")
Conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("¡°&db&¡±")
Conn.open()
%>
Ïà¹ØÎÊ´ð£º
ÎÒ×öÁËÒ»¸öС³ÌÐò£¬ÏëʵÏֵŦÄܾÍÊÇÔÚÎı¾¿òÖÐÊäÈëÐÕÃû£¬µã»÷²éѯ°´Å¥£¬¾ÍÄܲ鵽ACCESSÊý¾Ý¿âÖдËѧÉúµÄÐÅÏ¢£¨±àºÅ£¬ÐÕÃû£¬ÐÔ±ð£¬ÄêÁ䣩¿ÉÎÒ²»ÖªµÀÓï·¨¸ñʽ£¬ÎÒ×Ô¼ºÐ´µÄÓï¾äµ÷ÊÔÄÜͨ¹ý£¬¿ÉÊÇÔËÐÐʱ³ö´í£¨µã»÷²éѯ°´ ......
ACCESSÖвéѯÈçÏ£º
PARAMETERS letter Text ( 255 );
SELECT ¡¡¡¡ from table1 WHERE letter = letter
ÎÒ¿´µ½¹ý´«µÝÁ½¸ö²ÎÊý£¨Ê±¼ä£©µÄÀý×Ó¡£ÒòΪСµÜÊǰ®ºÃ£¬²»ÊÇרҵ³ÌÐòÔ±£¬ËùÒÔ²»ÖªµÀÔõ ......
oracle ´úÂ룺
select * from (select * row_number() over ( partition by ÁªÏµºÅÂë order by ÒµÎñºÅÂë ) rn from ºÅÂë²éѯ) where rn<2
Ч¹ûÊÇ£º½« ijһָ¶¨×ֶΠɾ³ýÖØ¸´µÄºÅÂ룬²¢±£Áô¸ÃºÅÂëÏà¹ØµÄÆäËûÐ ......
accessº¯ÊýºÍopenº¯ÊýµÄÇø±ð
60 if(access(path,R_OK)==0)
61 printf("access read success \n");
62 else
63 printf("access read er ......