AccessÊý¾Ý¿â°²È«ÉèÖü¼ÇÉ
²¿·ÖÂÛ̳ÐÂÊÖÃÇû¾¯Ìè×Ô¼ºÂÛ̳Êý¾Ý¿â´æÔÚµÄΣÏÕ£¬ËùÒÔ»¹ÊÇ ¾ö¶¨ÒÔDvbbs7.0ΪÀý£¬½éÉÜÒ»ÏÂÈçºÎ±£»¤ºÃÄãµÄAccessÊý¾Ý¿â ¡£Ïл°ÐÝ˵£¬ÇëÍùÏ¿´£º
1¡¢¸øÄãµÄAccessÊý¾Ý¿â¼ÓÉÏÃÜÂë±£»¤£¨ÆäʵAccessÊý¾Ý¿â µÄÃÜÂë±£»¤·Ç³£´àÈõ£¬ÕâÀֻÊǸøËû¶à¼ÓÉÏÒ»°ÑËø¶øÒÑ£©¡£
a.´ò¿ªMicroSoft AccessÈí¼þ£¬ÊÇÓöÀÕ¼·½Ê½´ò¿ªÄãµÄDVÂÛ Ì³Êý¾Ý¿â£¨Êý¾Ý¿âĬÈÏλÖÃΪÂÛ̳¸ùĿ¼ÏµÄdata/dvbbs7.mdb £©¡£
b.ÉèÖÃÊý¾Ý¿âÃÜÂ룬AccessÈí¼þ²Ëµ¥Ï¹¤¾ß——¡µ°²È«— —¡µÉèÖÃÊý¾Ý¿âÃÜÂë¡£
2¡¢ÐÞ¸ÄÄãµÄÊý¾Ý¿âÃû³Æ¡£
¶¯ÍøÂÛ̳7.0Êý¾Ý¿âĬÈÏÃû³ÆΪDvbbs7.MDB£¬ÎªÁ˲»±»·Ç·¨ÏÂÔØ ÒÔ¼°¿ç¿âÁ¬½Ó£¬ËùÒÔÎÒÃÇÓ¦¸Ã°ÑÃû³Æ¸ÄΪÈçÏÂÀàËƵĸñʽ£º
#123data.asp
#&$%1*dv.asa
{ad}3¡¢ÐÞ¸ÄÄãÂÛ̳µÄconn.aspÎļþ¡£
1£©Ê¹ÓüÇʱ¾»òÆäËûÎı¾±à¼Èí¼þÀ´´ò¿ªconn.aspÎļþ£¬ ´ò¿ªºó£¬Ä㽫¿´µ½Èçϼ¸ÐдúÂ룺
’Ãâ·ÑÓû§µÚÒ»´ÎʹÓÃÇëÐ޸ı¾´¦Êý¾Ý¿âµØÖ·²¢ÏàÓ¦ÐÞ¸Ä dataĿ¼ÖÐÊý¾Ý¿âÃû³Æ£¬È罫dvbbs6.mdbÐÞ¸ÄΪ dvbbs6.asp
Db = "data/dvbbs7.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
2£©°ÑDb = "data/dvbbs7.mdb"ÕâÒ»ÐÐÀïÃæµÄdvbbs7.mdb¸Ä ΪµÚ¶þ²½ÖèµÚ2СµãÖÐËùÐ޸ĺóµÄÎļþÃû¡£
3£©°ÑConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)ÕâÒ»ÐУ¬¸ÄΪ£º
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db) & "; Jet OLEDB:Database Password = mydbpassword"
ÆäÖÐmydbpasswordÇëÌ滻ΪÄãÔÚͼ¢ÛÖÐËùÉèÖõÄÊý¾Ý¿âÃÜÂ룬 È»ºó±£´æ¡£
¾¹ýÒÔÉϲ½Ö裬ÄãµÄAccessÊý¾Ý¿âÒª×öµÄ±£»¤¹¤×÷»ù±¾ÒѾÍê ³É£¬µ«¾ø¶Ô²»ÊÇ˵ÕâÑù¾Í¿ÉÒÔ¶ÔÊý¾Ý¿â°²È«µôÒÔÇáÐÄ£¬Æ½³£ÂÛ Ì³Ê¹ÓÃÖУ¬Îñ±Øʱʱ×öºÃ·À»¤¹¤×÷£¬²»ÒªËæÒâ͸¶×Ô¼ºÊý¾Ý¿â µØÖ·£¬¶àµ½¹Ù·½ÂÛ̳Éϼì²éÊÇ·ñÓиüУ¬´òºÃ²¹¶¡¡£»¹Òª×Ô¼º ¶à²Î¿¼¹ØÓÚASP֪ʶµÄÎÄÕ£¬×Ô¼ºÕÆÎÕÁ˼¼Êõ²ÅÊDZ£»¤×Ô¼º°²È« µÄ¸ù±¾¡£
ÔÚOffice¼Ò×å³ÉÔ±ÖУ¬ÈËÃǶÔÓÚAccess 2000µÄÁ˽⣬ÍùÍùÖ»¾ÖÏÞÔÚËüµÄ²Ù×÷½çÃæÖУ¬¶ÔÓÚÊý¾Ý¿â¹ÜÀíµÄ¹¦ÄÜÈÔÖ»ÊÇÍ£ÁôÔÚ½¨Á¢±í¡¢Êý¾ÝÊäÈ롢ʹÓô°ÌåÏòµ¼¡¢±¨±íÏòµ¼¡¢Êý¾Ý·ÃÎÊÒ³Ïòµ¼µÈһЩ¼òµ¥µÄÓ¦ÓÃÉÏ¡£ÆäʵAccess 2000µÄ¹¦ÄÜÊ®·ÖÇ¿´ó£¬ÇÒ³¬ºõÄãµÄÏëÏñ¡£ËüÊÇ΢Èí×Ô¹«²¼AccessÒÔÀ´¹¦ÄÜ×îÈ«Ãæ¡¢ÓëWindowsºÍInternet½áºÏ×î½ôÃܵÄÊý¾Ý¿âÈí¼þ£¬ÊÇÒ»¸ö¹¦Äܷdz£Ç¿´ó£¬¶øÇÒ¼òµ¥Ò×ÓõÄÊý¾
Ïà¹ØÎĵµ£º
'excelµ¼Èëaccess ,ÒýÓÃADO
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
On Error Resume Next
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source ......
Access±£Áô×Ö&±äÁ¿ÃûÁÐ±í£¬½¨±íʱӦ±ÜÃâʹÓÃÕâЩ´Ê»ãºÍ·ûºÅ¡£
-A
ADD
ALL
Alphanumeric
ALTER
AND
ANY
Application
AS
ASC
Assistant
AUTOINCREMENT
Avg
-B
BETWEEN
BINARY
BIT
BOOLEAN
BY
BYTE
-C
CHAR, CHARACTER
COLUMN
CompactDatabase
CONSTRAINT
Container
Count
COUNTER
CREATE
C ......
ACCESSÊý¾Ý¿â½çÃ棺
EXCELµÄ´°Ìå½çÃ棺
´°ÌåÖеĴúÂ룺
Private Sub ComboBox1_Change()
Dim cn As Object, sql$, arr, i&
Set cn = CreateObject("adodb.connection")
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\ºǫ́.mdb"
Me.ListBox1.Clear
......
Ö±½Óͨ¹ýADO²Ù×÷AccessÊý¾Ý¿â
×÷Õß/Ðì¾°ÖÜ
ÏÂÔØÔ´´úÂë
ÎÒÔÚ¡¶VC֪ʶ¿âÔÚÏßÔÓÖ¾¡·µÚÊ®ËÄÆں͵ÚÊ®ÎåÆÚÉÏÔø·¢±íÁËÁ½ÆªÎÄÕ——“Ö±½Óͨ¹ýODBC¶Á¡¢Ð´Excel±í¸ñÎļþ”ºÍ“Ö±½Óͨ¹ýDAO¶Á¡¢Ð´AccessÎļþ”£¬ÏȺó¸ø´ó¼Ò½éÉÜÁËODBCºÍDAOÁ½ÖÖÊý¾Ý¿â·ÃÎʼ¼ÊõµÄ»ù±¾Ê¹Ó÷½·¨£¬Õâ´Î ......