Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÎÒÓÃExcel VBA ÔõôÎÞ·¨Á¬ÉÏAccessÊý¾Ý¿â£¿Çë¸ßÊÖÖ¸½Ì

ÎҵijÌÐòÈçÏ£º
  Dim Cnn As New ADODB.Connection
  Dim Rs As New ADODB.Recordset
  Dim myData As String, myTable As String
  Dim myFields As Variant, myValue As Variant

  myData = ThisWorkbook.Path & "\½Óµã¿â.mdb" 'Ö¸¶¨Êý¾Ý¿â
  myTable = "½ÓµãÊý¾Ý" 'Ö¸¶¨Êý¾Ý±íÃû³Æ

   
  With Cnn '½¨Á¢ÓëÊý¾Ý¿âµÄÁ¬½Ó
  .Provider = "microsoft.jet.oledb.4.0"
  .Open myData
  End With
   
  '´´½¨Ö¸¶¨Êý¾Ý±íµÄ¼Ç¼¼¯
  Rs.Open myTable, Cnn, adOpenKeyset, adLockOptimistic


µ«Ã¿´ÎÔËÐе½ .Open myData ʱ¾Í»á³ö´í£¬³ö´íÌáʾÊÇ£º
   
   
  ÔËÐÐʱ´íÎó¡®3706¡¯
  δÕÒµ½Ìṩ³ÌÐò¡£¸Ã³ÌÐò¿ÉÄÜδÕýÈ·°²×°¡£

²»ÖªÊÇʲô³ÌÐòδÕýÈ·°²×°£¿ÎÒÔÚÒýÓÃÀïÑ¡ÔñÁË¡°Microsoft ActiveX Data Objects 2.5¡±£¬
ÊDz»ÊÇ»¹Òª¼ÓÑ¡±ðµÄÒýÓã¿
   
Çë¸ßÊÖ¸øÓèÖ¸½Ì£¬±¾È˲»Ê¤¸Ð¼¤£¡
 

myTable Ó¦¸ÃÊÇÒ»¸öSQl Óï¾ä°É£¿

лл»Ø¸´£¬µ«³ÌÐò»¹Ã»Ö´Ðе½º¬myTableÓï¾äʱ¾Í³ö´íÁË

ÄǹÀ¼ÆÄãµÄÕâ¸ö
ThisWorkbook.Path & "\½Óµã¿â.mdb" 'Ö¸¶¨Êý¾Ý¿â 
µÃµ½µÄÊý¾Ý¿âȫ·¾¶ÓÐÎÊÌ⣬debugһϿ´¿´ÊDz»ÊÇÄãÏëÒªµÄÊý¾Ý¿â¡£

ThisWorkbook.Path & "\½Óµã¿â.mdb
µÃµ½µÄÊÇÎÒÒªÖ¸¶¨µÄÊý¾Ý¿â¡£ÎÒÓþø¶Ô·¾¶Ò²ÊdzöͬÑù´íÎó

ÎÒÊÔÁËÒ»ÏÂ


Ïà¹ØÎÊ´ð£º

Access²éÕÒÖØ¸´ÎÊÌâ - ÆäËûÊý¾Ý¿â¿ª·¢ / Access

ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......

ASP+ACCESSÊä³öÎÊÌâ - Web ¿ª·¢ / ASP

ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......

ÈçºÎÐÞ¸ÄACCESSϵͳ±í

ÈçºÎÐÞ¸Ämsysobjects±íÖеÄÊý¾ÝÄØ£¿Ð»Ð»
ɶ¶¼Ã»ÓÐ,Òâ˼²»Ã÷È·,ÔÙÏêϸµã°É

²»Òª¸ÄsysobjectsÀïµÄ¶«Î÷¡£
ÓÃÆäËü·½·¨¸Ä£¬±íÃû»òÆäËû¡£

ÒªÔÚACCESS»·¾³ÏÂÅäÖÃȨÏÞ£¬²ÅÄÜ·ÃÎÊϵͳ±í...

лл´ó¼Ò¡£
ÊÇÕâÑù£¬¿´ ......

VCÁ¬½ÓACCESSÊý¾Ý¿âÎÊÌâ - VC/MFC / Êý¾Ý¿â

ÎÊÌ⣱
ÎÒÓÃADOÁ¬½ÓÉèÁËÓû§ÃûÃÜÂëµÄÊý¾Ý¿â
µ«ÊÇÎÒ·¢ÏÖÎÒ²»ÊäÈë Óû§ÃûºÍÃÜÂë ¶¼¿ÉÒÔÁ¬½Ó³É¹¦ ¶øÇÒ»¹ÄܰÑÊý¾Ý¶Á³öÀ´
¼ôÁËÒ»¸öÃûΪtestÊý¾Ý¿â ½¨ÁËÒ»¸öÃûΪpeopleµÄ±í 
¼ûÁËÒ»¸ö Óû§Ãû1234 ÃÜÂë1234 µÄ ......

tomcatÁ¬½ÓAccessÊý¾Ý¿âÎÊÌâ¡£ - Java / Web ¿ª·¢

¸÷λ¸ßÊֺã¬Âé·³°ïÎÒ¿´ÏÂÕâ¸öÊý¾Ý¿âÁ¬½ÓÎÊÌ⣺
×öÁËÒ»¸öBBSµ«ÊÇÊý¾Ý¿â¾ÍÊÇÁ¬½Ó²»ÉÏ¡£´íÎó´úÂëÈçÏÂ
HTTP Status 500 - 
------------------------------------------------------------------------------- ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ