ÎÒÓÃ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Êý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
ÈçºÎÐÞ¸Ämsysobjects±íÖеÄÊý¾ÝÄØ£¿Ð»Ð»
ɶ¶¼Ã»ÓÐ,Òâ˼²»Ã÷È·,ÔÙÏêϸµã°É
²»Òª¸ÄsysobjectsÀïµÄ¶«Î÷¡£
ÓÃÆäËü·½·¨¸Ä£¬±íÃû»òÆäËû¡£
ÒªÔÚACCESS»·¾³ÏÂÅäÖÃȨÏÞ£¬²ÅÄÜ·ÃÎÊϵͳ±í...
лл´ó¼Ò¡£
ÊÇÕâÑù£¬¿´ ......
ÎÊÌ⣱
ÎÒÓÃADOÁ¬½ÓÉèÁËÓû§ÃûÃÜÂëµÄÊý¾Ý¿â
µ«ÊÇÎÒ·¢ÏÖÎÒ²»ÊäÈë Óû§ÃûºÍÃÜÂë ¶¼¿ÉÒÔÁ¬½Ó³É¹¦ ¶øÇÒ»¹ÄܰÑÊý¾Ý¶Á³öÀ´
¼ôÁËÒ»¸öÃûΪtestÊý¾Ý¿â ½¨ÁËÒ»¸öÃûΪpeopleµÄ±í
¼ûÁËÒ»¸ö Óû§Ãû1234 ÃÜÂë1234 µÄ ......
¸÷λ¸ßÊֺã¬Âé·³°ïÎÒ¿´ÏÂÕâ¸öÊý¾Ý¿âÁ¬½ÓÎÊÌ⣺
×öÁËÒ»¸öBBSµ«ÊÇÊý¾Ý¿â¾ÍÊÇÁ¬½Ó²»ÉÏ¡£´íÎó´úÂëÈçÏÂ
HTTP Status 500 -
------------------------------------------------------------------------------- ......