ÎÒÓÃ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Êý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
accessÖеÄtextÐ͵ÄÊý×Ö£¬Ôõô±È½Ï´óС°¡£¿
´ó¼ÒÖªµÀÂð?
ÒòΪÎÒÏë¸ù¾ÝÕâÒ»ÁÐÊý¾ÝµÄ´óС²éѯһЩ¶«Î÷
¾Ù¸öÀý×Ó£º
¾ÍÊÇ£¬ÎÒÓÐÒ»ÁÐÊý¾ÝΪ±àÂ룺
ÊÇtextÐ͵ÄÊý×Ö£ºÈç
1101
1102
1103
µÈ£¬
ÎÒÏÖÔÚҪȡ³ö±àÂë±È ......
ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,
ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......
ÈçÌâ dOOdads Á¬½Ó ACCESS µÄÊý¾Ý·ÖÒ³ÎÊÌ⣡
ʹÓà dOOdads Á¬½Ó ACCESSÊý¾ÝµÄʱºò Êý¾Ý·ÖÒ³µÄÎÊÌ⣡
¸ù¾ÝÕâ¸ö¸Ä°É
C# code:
public static Product[] SearchProducts(string keyword, int categoryID, int pa ......
ÎÒÊÖ¶¯Ìí¼Ó»ùÓÚCRecordSetÀàµÄÅÉÉúÀàCODBCDemoSetÀà,ÊÇÀûÓÃclass wizardÌí¼ÓµÄ¡£²¢ÇÒ¶¨ÒåÁËÒ»¸öÈ«¾Ö±äÁ¿CODBSDemoSet*m_pCommon.µ«ÊÇÎÒ³ÌÐò²»ÄÜÔËÐС£ÎÒ¸ú×ÙÁËһϣ¬µ½ÁËm_pCommon->Isopen£¨£©´¦·¢Éú´íÎ󣬣 ......