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Êý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖظ´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖظ´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æʱ¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
ÓÐÒ»¸öÊý¾Ý¿âÀïÖ»ÓÐ2WÌõÊý¾Ý²»µ½£¬È´ÓÐ500MÄÇô´ó,Ôõô»ØÊ°¡£¿ÊÇACCESSµÄÊý¾Ý¿â¡£ºóÀ´ÎÒ°ÑACCESSµ¼Èëµ½MSSQLÖУ¬Ò²Õ¼ÓÃÁË500M×óÓҵĿռ䣬Èç¹ûѹËõÊý¾Ý¿âÄØ£¿Çë¸ßÊÖÖ¸µã
ѹËõÊý¾Ý¿â£¿ÄÜ×öµ½Ã´...
ÆÚ´ý¸ßÈËÖ¸µã ÎÒ ......
$conn = @new COM("ADODB.Connection") or die ("ADOÁ¬½Óʧ°Ü!");
$connstr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" . realpath("database.mdb");
$conn-&g ......