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Êý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
$conn = @new COM("ADODB.Connection") or die ("ADOÁ¬½Óʧ°Ü!");
$connstr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" . realpath("database.mdb");
$conn-&g ......
¾ÍÊÇÊÇ·ñÖ§³Ö¶à¸öÁ¬½ÓµÄ²Ù×÷£¿ÔÚÒ»¸ö³ÌÐòÁ¬½ÓÕâ¸öÊý¾Ý¿âʱ£¬ÁíÒ»¸ö³ÌÐò»¹ÄÜÔÙÁ¬½ÓÕâ¸öÊý¾Ý¿âÂð£¿
×î¶àÖ§³Ö¶àÉÙ²¢·¢Á¬½Ó£¿
Ö§³Ö¡£
http://msdn.microsoft.com/en-us/library/ms810829.aspx
×î¶àÖ§³Ö¶àÉÙ²¢· ......
±í½á¹¹ÊÇÕâÑùµÄ£º
µ«ÎÒÓÃDTSµ¼³öµÄʱºò³ö´íÁË£º
²Ù×÷ÒÑÍ£Ö¹...
- ÕýÔÚ³õʼ»¯Êý¾ÝÁ÷ÈÎÎñ (³É¹¦)
- ÕýÔÚ³õʼ»¯Á¬½Ó (³É¹¦)
- ÕýÔÚÉèÖà SQL ÃüÁî (³É¹¦)
- ÕýÔÚÉèÖÃÔ´Á¬½Ó (³É¹¦)
- ÕýÔÚÉèÖÃÄ¿±êÁ¬½Ó (³É¹¦)
- ......