ÎÒÓÃ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 ......
DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿
ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿
Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£
ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,
ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......