ÎÒÒѾÓÃtimer¿Ø¼þ×öºÃÁËÒ»¸öÃë±í¹¦ÄÜ£¬ÓÃÀ´ÏÔʾ»úÆ÷Õâ´ÎµÄ¹¤×÷ʱ¼ä£¬ÔõôÄÜÔÙÓÃÒ»¸ö±êÇ©ÏÔʾ»úÆ÷×ܹ²¹¤×÷µÄʱ¼äÄØ£¿
±ÈÈ磬µÚÒ»´Î¹¤×÷1Сʱ10·Ö20Ã룬µÚ¶þ´Î¹¤×÷2Сʱ10·Ö20Ã룬ÄÇôÀÛ»ý¹¤×÷ʱ¼ä¾ÍÊÇ3Сʱ20·Ö40Ã룬²¢ÇÒÕâ¸öÀÛ»ýµÄÖµ²»»á¶ªÊ§µÄ¡£
ллÁË£¬Çë´óÏÀÃÇ°ï棡
1 ÓñíÖÐн¨¸öÀ¸Î»total_runtime¼Ç¼
ÿµ±¹Ø± ......
VBÔõô½ûÖ¹·ÃÎÊ´ÅÅ̺ÍÒþ²Ø´ÅÅÌ£¬²»ÒªÓÃÐÞ¸Ä×¢²á±íÌí¼Ónoviewdrive·½·¨¡£
ûÈËÖªµÀÂð
¿ÉÒÔͨ¹ýÐÞ¸Ä×¢²á±íÒþ²ØÇý¶¯Æ÷£¬½ûÖ¹·ÃÎÊÓеãÀ§ÄÑ£¬²»Ê¹ÓÃ×¢²á±í¸ü¼ÓÀ§ÄÑ¡£
Òþ²Ø¿ÉÒÔ²»¸øÇý¶¯Æ÷·ÖÅäÅÌ·û¾ÍÐÐÁË,½ûÖ¹·ÃÎʵĻ°,¿ÉÒÔhook»òÕßFilter
http://blog.sina.com.cn/s/blog_6752a77a0100iaer.html
×îÖÕ×ÜÊÇҪдÈë×¢²á±í² ......
ÎÒÖ»ÖªµÀ×Ö·û´®³¤¶È£¨Ó¢ÎÄΪ£±£¬ÖÐÎÄΪ£²£©ºÍλÖã¨ÔÚÁíÒ»¸ö×Ö·û´®×ó±ß£©¡£ÔõÑùÈ¡ËüÃÇ׼ȷȡ³öÀ´£¿
mid(text1,λÖÃ,³¤¶È)
Èç¹ûÊÇ×Ö·û´®µÄ×î×ó±ß,¿ÉÒÔÓà left(×Ö·û´®,³¤¶È),·ñÔòÓÃ1Â¥µÄ
ÕâÁ½¸ö³¤¶ÈÊDz»ÏàµÈµÄ
mid(×Ö·û´®,λÖÃ,³¤¶È)
ÒýÓÃ
ÕâÁ½¸ö³¤¶ÈÊDz»ÏàµÈµÄ
Ôõô»¹Á©¸ö£¿Ã»ÓÐÃ÷°×
±ÈÈç×Ö·ûÊÇabcd1234ÎÒ ......
ͼÏñ·Å´ó¾µ£ºÔÚÒ»¸öͼÏñ½çÃæÖУ¬Í¨¹ýÒ»¸öСͼÏñ¿ò£¬Í¼Ïñ¿ò¿É°´Óû§Ñ¡ÔñµÄ·Å´óÂÊÀ´ÏÔʾÏà¹ØÇøÓòµÄÄÚÈÝ£¬Ð¡Í¼Ïñ¿ò¿ÉÒÔÒƶ¯£¬ÏÔʾ²»Í¬µÄÇøÓò¡£Óû§¾ßÓÐÑ¡Ôñ²»Í¬µÄ·Å´óÂÊÓëÉèÖÃСͼÏñ¿ò´óСµÄ¹¦ÄÜ¡£
ËÄÜ°ï°ïæ¹þ
²»ÓøøÎÒ´úÂ룬ֻҪ¸øÏÂÖ÷ÒªµÄÉè¼Æ˼·ºÍÓõÄË㷨ʲôµÄ¡£
Èç¹ûÓÃAPIº¯Êý~ÇëÏêϸ˵ÏÂÕâ¸öAPIº¯Êý~API»¹²»Ì«¶®¹ ......
ͼʾЧ¹û¼ûhttp://club.excelhome.net/viewthread.php?tid=574462&pid=3836982&page=1&extra=page%3D1Õâ¸öVBµ÷ÓÃExcel³ÌÐò,²»ÊǺܺÃÓÃ
Çë¸÷λ´óÏÀÓÅ»¯Ò»ÏÂ.
Function connectXls(FileName, ShtName)
FileName = App.Path & "\" & FileName
' Set the object variable to ......
ÎÒÏë´ÓAccess µ¼³öÊý¾Ýµ½DB2£¬ ±ÈÈç˵Access±íÖÐÓÐ3ÌõÊý¾Ý£¬ÎÒÒªµ¼ÈëDB2£¬²¢ÇÒҪɾ³ý¡£ µ«ÊDzåÈë3ÐпÉÒԳɹ¦£¬É¾³ýÖ»ÄÜɾ³ý1ÐУ¬²¢ÇÒµÚÒ»ÐÐɾ³ý3±é£¨ÒòΪÓÐ3ÌõÊý¾Ý£©¡£ ´úÂëÈçÏ£º¿ÒÇë¸÷λ¸ßÊÖÖ¸µãÒ»¶þ£¬Ð¡µÜ¸Ð¼¤²»¾¡£¬Ð»Ð»£¡
VB code:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
......