ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBA ¥Îªí®æ¤º¬YÄæ¦ì¸ê®Æ¬d¸ßACCESS¸ê®Æ

¦^´_ 1# toxin

³o¦³¨â­Ó¤èªk¸Ñ¨M

1)    ¦bExcel ¢äBA ¨Ï¥Î¨ì¡@ADO¡@«e¥ý´O¤J¡@¢ÏDO Library
¨ä°µªk¬°¦bVBA½s¿è¾¹¤¤, ¨Ï¥Î ¤u¨ã¡Ö³]©w¤Þ¥Î¶µ¥Ø
³o¼Ë·|±a¥X¡@"³]©w¤Þ¥Î¶µ¥Ø"µøµ¡
©ó¨ä¤¤®Ö¨ú¡@"¢Ûicrosoft ActiveX Data Objects x.x Library"¿ï¶µ¡@¡]¿ï¾Ü³Ì·sª©¥»ªºADO)
¦p¦¹§Y¥i©óVBA¤¤¨ú¥ÎADOªº¨ç¦¡®w
   
2)    ¦pªG§A¨S¦³±N ¢ÏDO Library¡@´O¤J
¦b«Å§i®É§A´N¤£¯à«Å§iª«¥óÅܼƬ°ADODB .Connection  ( ex. Dim DB As ADODB.Connection)
¦Ó¥u¯à«Å§i¬°¤@¯ëª«¥óÅܼƠ (Dim DB As ¢Ýbject)
«Ø¥ß®É§A¤£¯à¨Ï¥Î¡@¡@Set DB = New   ADODB.Connection¡@³o¼Ëªº»yªk
¦Ó­n¥Î¡@¡@¡@DB = CreateObject("Adodb.Connection")
Alex

TOP

¦^´_ 4# toxin
°²¦p§A¥Îªº¬OAccess ªºdatabae
connection string À³¸Ó¬O¥H¤Uªº«¬¦¡
"Driver={Microsoft Access Driver (*.mdb)};Dbq=d:\databasename.mdb;Uid=yourid;Pwd=yourpassword"
©Î¬O
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\databasename.mdb;Jet OLEDB:Engine Type=5;Uid=yourid;Pwd=yourpassword"   ³o¼Ë¤]¦æ
Alex

TOP

1. Access ªº½T¤ä´©SQL»yªk
SELECT TOP 1 ¥ó¸¹, ³æ»ù, ¼t°Ó FROM ³æ»ù©ú²Ó WHERE ¥ó¸¹  = '00002E-A'  ORDER BY 1 DESC
¬Ý°_¨Ó¨S¦³¿ù À³¸Ó­nÅã¥Ü²Ä¤@µ§¸ê®Æ

2. ¬d¸ß±ø¥ó'00002E-A'¥i¥H¥Îrange¤ºªº­È¥N´À
Alex

TOP

¦^´_ 8# toxin
1. ¦b»POrder by¦X¥Î®É, TOP ­zµü¤£·|¦b¬Ûµ¥­È¤¤°µ¿ï¾Ü¡C
¦b±zªº¨Ò¤l¸Ì, ¦³¤Tµ§¸ê®Æªº¥ó¸¹¬°00002E-A
Top­zµü¨Ã«D®Ú¾Ú¸ê®Æ¦b¸ê®Æ®wªº¶¶§Ç¨Ó°Ï¤À½Ö¥ý½Ö«á,
¦Ó¬O¨Ì¾ÚOrder By Äæ¦ìªº­È¨Ó°Ï¤À
©Ò¥H¥¦µLªk°Ï¤À³o¤Tµ§ªº¥ý«á¶¶§Ç, ©Ò¥H¬d¸ß·|¶Ç¦^ 3 µ§°O¿ý

2. ¶Ç¦^ªºrecordset¤¤¦³¤Tµ§¬ö¿ý, ¦pªG­n°w¹ï­Ó§O¬ö¿ý°µ³B²z
¥i¥H§Q¥Î°j°é°t¦XrecordsetªºMovenext¤èªk»PEOFÄݩʨӳB²z

3.±z¤]¥i¥H§ïÅÜOrder byªºÄæ¦ì, ex .§ï¬° Order by ¼t°Ó
¦pªG¦P¤@¥ó¸¹¦P¤@¼t°Ó¥u¦³¤@µ§¬ö¿ý
¨º´N·|¥u¶Ç¦^¤@µ§¬ö¿ý
¦pªG¦P¤@¥ó¸¹¦P¤@¼t°ÓÁÙ¬O¦³¦hµ§¬ö¿ý
¦ý»ù®æ³£¤£¦P
´N¥i¥H¦A¼W¥[¤@­Óorder byÄæ¦ì
¦p Order by ¼t°Ó, ³æ»ù desc
Alex

TOP

¥»©«³Ì«á¥Ñ alexliou ©ó 2012-5-12 06:29 ½s¿è
¦^´_  toxin alexliou µoªí©ó 2012-5-11 15:44

* ¥Nªí©Ò¦³ªºÄæ¦ì
§A¤w¸g¼g¤F­n¿ï¨ú­þ¨ÇÄæ¦ì  
©Ò¥H * ´N¤£»Ý­n¤F
­n§ï¦¨
SELECT  ¥ó¸¹ , ³æ»ù, ¼t°Ó FROM ³æ»ù©ú²Ó WHERE ¥ó¸¹  = '00002E-A'  ORDER BY 1 DESC
©Î¬O
SELECT * FROM ³æ»ù©ú²Ó WHERE ¥ó¸¹  = '00002E-A'  ORDER BY 1 DESC

PS.  ORDER BY 1 DESC ¦ü¥G¤]¤£»Ý­n
¦]¬°Where ±ø¥ó¤w«ü©w¥ó¸¹'00002E-A'
¬d¸ßµ²ªG¥u¦³¤@ºØ¥ó¸¹
´N¨S¦³±Æ§Çªº¥²­n¤F
Alex

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD