Ò»¸ö¹ØÓÚaccessÊý¾Ý¿â¸üеÄÎÊÌâ
ÎÒÔÚ³ÌÐòÖÐдÁËÒ»¸ö¸üÐÂÓï¾ä
Delphi(Pascal) code:
a1.Close;
a1.SQL.Clear;
a1.SQL.Add('update JLB set bs=1 where bs=0');
a1.ExecSQL;
showmessage('µ¼ÈëÍê³É~');
ΪʲôÔÚaccessÖоÍÖ´Ðв»ÁËÄØ£¿Ò²²»ËÀ»ú£¬³ÌÐòÒ²ÔËÐе½½áβÁË¡£µ«¾ÍÊDz»Ö´ÐиüÐÂ
ÏëÎÊÏÂÊDz»ÊÇaccessÖеĸüвÙ×÷Òª¼Óµã±ðµÄʲô¶«Î÷°¡£¿
Ã²ËÆ¾ÍÊÇÕâÑùµÄ£¬Äã¿´Á¬¶Ô¿âÁËû¡£
Õâ¸öÎÒµ±È»ÊÇ×¢Òâµ½Á˰¡£¬Òª²»È»£¬formshowʼþÖÐÓкܶàʼþÖ´Ðв»ÁË
¿â¿Ï¶¨ÊǶԵÄ
showmessage('µ¼ÈëÍê³É~');Ö´ÐÐÁËÂð£¿
update JLB set bs=1 where bs=0ÄÜÔÚAccessÖÐÖ´ÐÐÂð£¿
¾ÍÊDz»ÖªµÀÄØ£¿µ¼ÈëÍê³É»¹ÊÇÄÜÖ´Ðе½µÄ¡£ºÇºÇ~ÎÊÌâÒѾ½â¾öÁË¡£Ç°ÃæÉÙÌîÒ»¸ö²ÎÊý£¬¶øÇÒ»¹¸ã´íÒ»¸ö£¬Ð»Ð»´ó¼ÒµÄ¹Ø×¢£¬À´ÕßÓз֡£´ý»á½áÌù~
ÏëÒª·ÖµÄ½øÀ´·¢±íµã¹ØÓÚaccessÊý¾Ý¿â¿ª·¢¹ý³ÌÖÐÓöµ½µÄÎÊÌâºÍÏë·¨°É
Ïà¹ØÎÊ´ð£º
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......
ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
ÄÄλ´ó¸çÓÐACCESSÊý¾Ý¿â °¡£¿
¸øÐ¡µÜÒ»¸ö£¡
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°°ì¹«Èí¼þ£¬Ñ¡Ôñ×Ô¶¨Òå°²×°£¬È»ºóÑ¡ÉÏACCESS¾Í¿ÉÒÔÁË
officeÍêÕ ......
ÇëÎʸ÷λ´óʦ£¬ÎÒÏÖÔÚÐèÒª½«XMLµÄÊý¾ÝʵʱµÄ´æÈëµ½Êý¾Ý¿âÖУ¬ÎÒÊÇÓÃasp±àµÄ³ÌÐò£¬´óÁ¿Ãǰïæ·ÖÎö һϣ¡£¡£¡
ÏÂÃæÊÇÎÒµÄXMLÎļþ´úÂë
XML code:
<?xml version="1.0" encoding="utf-8"? ......