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ºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,
ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......
¸÷λ¸ßÊֺã¬Âé·³°ïÎÒ¿´ÏÂÕâ¸öÊý¾Ý¿âÁ¬½ÓÎÊÌ⣺
×öÁËÒ»¸öBBSµ«ÊÇÊý¾Ý¿â¾ÍÊÇÁ¬½Ó²»ÉÏ¡£´íÎó´úÂëÈçÏÂ
HTTP Status 500 -
------------------------------------------------------------------------------- ......
rt£¬ÎÒÊÔÁËÍøÉÏÖ±Á¬AccesÊý¾Ý¿âµÄ·½·¨,windowsÏÂûÓÐÎÊÌâ,µ«ÊÇÔÚlinuxϲ»ÐУ¬ËÄܸøµãÌáʾ£¿Ð»Ð»
ÄãÔõôÁ¬µÄ£¿
AccesÊý¾Ý¿â..
ÄãÔõôÁ·µÄÄØ£¿
Java code:
static String DBDRIVER = "sun.jd ......