´ò¿ªaccess³öÏÖÎÞ·¨Ê¶±ð¸ÃÊý¾Ý¿â
ÎÒ´ÓÍøÉÏÏÂÁËÒ»¸öÍøÕ¾µÄÔ´Â룬µ«ÊÇÖ±½Ó´ò¿ªÀïÃæµÄaccessÊý¾Ý¿â³öÏÖÎÞ·¨Ê¶±ð¸ÃÊý¾Ý¿â£¬¿ÉÄÜÊý¾Ý¿âÎļþÒѾË𻵣¬ÎÒ×°µÄÊÇaccess 2007 ÍøÕ¾ÉϵÄaccessÊÇmdb¸ñʽµÄ¡£ÎÒÓÃÁ˺ܶàÃÜÂëÆÆ½âÈí¼þ¶¼ÎÞ·¨ÆÆ½âÌáʾÎÞ·¨´ò¿ªÊý¾Ý¿â¡£µ«ÊÇÔÚä¯ÀÀÍøÒ³ÄÚÈݵÄʱºòÊý¾Ý¿â¿ÉÒÔ·ÃÎÊ¡£
µ«ÊÇÔÚä¯ÀÀÍøÒ³ÄÚÈݵÄʱºòÊý¾Ý¿â¿ÉÒÔ·ÃÎÊ¡£
˵Ã÷Êý¾Ý²¢Ã»Óб»Ë𻵡£
1¡£Ìù³öÄãÍøÕ¾ÉϵÄÔ´´úÂ룬¹ØÓÚ´ò¿ªÊý¾Ý¿âµÄ²¿·Ö¡£ ÒÔÈ·¶¨ÊÇACCESSµÄÊý¾Ý¿â¡£MDB½áβµÄÎļþδ±Ø¾ÍÊÇACCESSÊý¾Ý¿âÎļþ¡£
2¡£»òÕßÄã¿ÉÒÔÉÏ´«ÄãµÄÕâ¸öMDBÎļþ¡£
Á¬½ÓÊý¾Ý¿âµÄÎļþµÄ´úÂë
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Dim startime,Conn,db
Response.Buffer = True
startime = Timer()
Dim NowString
Dim ConnStr
Sub ConnectionDatabase()
'On Error Resume Next
'-----------------------ACCESSÊý¾Ý¿âÁ¬½Ó----------------------------------------
NowString = "Now()"
'ACCESSÊý¾Ý¿âÁ¬½Ó,ÇëʹÓøù·¾¶»òÕß¾ø¶Ô·¾¶
db = "\database\#newasp- -9in$-mdb"
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ChkMapPath(db)
'-------------------------------------------------------------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "Êý¾Ý¿âÁ¬½Ó³ö´í£¬Çë´ò¿ªconn.aspÎļþ¼ì²éÁ¬½Ó×Ö´®¡£"
Ïà¹ØÎÊ´ð£º
DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿
ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿
Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£
ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......
jsp¿ª·¢µÄʱºòÄܹ»µ¼³öwordºÍexcel£¬µ«ÊÇÊÇ·ñÄܹ»Ö±½Óµ¼³öΪacess¸ñʽ¡¢dbf¸ñʽµÄÎļþ£¿
¸ßÊÖÖ¸µãÏ£¬×îºÃÄܹ»¸ø¸öÀý×Ó£¬Ð»Ð»£¡£¡£¡
javadbfÕâ¸öjarÒ»ÇÐÎÊÌâ½â¾öÁË¡£
ÏÂÔØµØÖ·Îª£ºhttp://sarovar.org/projects/ ......
ÎÒÔÚÇ°Ì¨Ò³ÃæÊäÈë¿òÊäÈë 20091208 µã»÷Ìá½»Ö®ºó±¨´í,˵ÀàÐͲ»Æ¥Åä.
Êý¾Ý¿âÀï Õâ¸ö×ֶεĸñʽӦ¸ÃÊÇ 2009-12-8 14:27:40
ÊDz»ÊÇÒª°Ñ 20091208 ת»»³É¸ñʽ 2009-12-8 14:27:40
ÇëÎÊÎ ......
ÎÊÌ⣱
ÎÒÓÃADOÁ¬½ÓÉèÁËÓû§ÃûÃÜÂëµÄÊý¾Ý¿â
µ«ÊÇÎÒ·¢ÏÖÎÒ²»ÊäÈë Óû§ÃûºÍÃÜÂë ¶¼¿ÉÒÔÁ¬½Ó³É¹¦ ¶øÇÒ»¹ÄܰÑÊý¾Ý¶Á³öÀ´
¼ôÁËÒ»¸öÃûΪtestÊý¾Ý¿â ½¨ÁËÒ»¸öÃûΪpeopleµÄ±í
¼ûÁËÒ»¸ö Óû§Ãû1234 ÃÜÂë1234 µÄ ......
ACCESSÊý¾Ý¿âÖÐÓÐ×Ô¶¯Ôö¼ÓµÄ×Ö¶Î ID£¬Êý¾Ý¿âµÄ×Ö¶ÎÃû¼°¸ñʽÈçÏ£º
ID dValue0 dValue1 dValue2 dValue3 dValue4 dValue5
&nbs ......