ÎÒÓÃ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öͬÑù´íÎó
ÎÒÊÔÁËÒ»ÏÂ
Ïà¹ØÎÊ´ð£º
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÈçºÎÐÞ¸Ämsysobjects±íÖеÄÊý¾ÝÄØ£¿Ð»Ð»
ɶ¶¼Ã»ÓÐ,Òâ˼²»Ã÷È·,ÔÙÏêϸµã°É
²»Òª¸ÄsysobjectsÀïµÄ¶«Î÷¡£
ÓÃÆäËü·½·¨¸Ä£¬±íÃû»òÆäËû¡£
ÒªÔÚACCESS»·¾³ÏÂÅäÖÃȨÏÞ£¬²ÅÄÜ·ÃÎÊϵͳ±í...
лл´ó¼Ò¡£
ÊÇÕâÑù£¬¿´ ......
accessÖеÄtextÐ͵ÄÊý×Ö£¬Ôõô±È½Ï´óС°¡£¿
´ó¼ÒÖªµÀÂð?
ÒòΪÎÒÏë¸ù¾ÝÕâÒ»ÁÐÊý¾ÝµÄ´óС²éѯһЩ¶«Î÷
¾Ù¸öÀý×Ó£º
¾ÍÊÇ£¬ÎÒÓÐÒ»ÁÐÊý¾ÝΪ±àÂ룺
ÊÇtextÐ͵ÄÊý×Ö£ºÈç
1101
1102
1103
µÈ£¬
ÎÒÏÖÔÚҪȡ³ö±àÂë±È ......
ÎÒ»ú×ÓÀïÃæÃ»ÓÐACCESS,ÇëÎÊÔÚ²»ÖØ×°ÏµÍ³µÄÇé¿öϸÃÈçºÎ°ÑËü×°ÉÏ,֮ǰÎÒÊÔ×°¹ýÆäËü°æ±¾µÄSP3 OFFICE,µ«»¹ÊÇ×°²»ÉÏ,
ÇëÎÊÓÐʲôºÃ°ì·¨Âð?
°²×°OFFICE £¬Ñ¡Ôñ°²×°ACCESS¾Í¿ÉÒÔѽ ¡£
ÒýÓÃ
°²×°OFFICE £¬Ñ¡Ôñ°²×° ......
ÎÒÊÖ¶¯Ìí¼Ó»ùÓÚCRecordSetÀàµÄÅÉÉúÀàCODBCDemoSetÀà,ÊÇÀûÓÃclass wizardÌí¼ÓµÄ¡£²¢ÇÒ¶¨ÒåÁËÒ»¸öÈ«¾Ö±äÁ¿CODBSDemoSet*m_pCommon.µ«ÊÇÎÒ³ÌÐò²»ÄÜÔËÐС£ÎÒ¸ú×ÙÁËһϣ¬µ½ÁËm_pCommon->Isopen£¨£©´¦·¢Éú´íÎ󣬣 ......