VBÖйØÓÚÃÜÂëÈÏÖ¤
ÔÚÎҵijÌÐòÀ½øÈ롰ɾ³ýÓû§¡±£¬"Ìí¼ÓÓû§"´°Ìå֮ǰ¾ùÏȵ¯³öÒ»¸ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó²ÅÄܽøÈëÏàÓ¦½çÃæ£¬ÈçºÎÉè¼Æ´úÂ룿
¶ÁÊý¾Ý¿âÀïÃæ¹ÜÀíÔ±µÄÃÜÂë È»ºó¸úÊäÈëµÄÄÚÈÝ±È½Ï ºÜ¼òµ¥µÄ¶«Î÷ÔõôҲҪ´úÂë ²»ÊÇ£¬ÎÒÊÇÒªÊäÈëÕýÈ·Ö®ºóµ¯³ö²»Í¬µÄ´°Ì壬±ÈÈ磬ÎÒµãµÄÊÇ¡°É¾³ýÓû§¡±Õâ¸öʱºòµ¯³ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó¾Í½øÈëɾ³ýÓû§µÄ½çÃæ£¬µ«ÊÇÈç¹ûÎÒµãµÄÊÇ¡°Ìí¼ÓÓû§¡±£¬Õâ¸öʱºòµ¯³öÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºóÊǽøÈëÌí¼ÓÓû§½çÃæ£¬ÈçºÎÔÚÊäÈë¹ÜÀíÔ±ÃÜÂëÕýÈ·Ö®ºó¸ù¾Ý²»Í¬µÄ²Ù×÷½øÈ벻ͬµÄ½çÃæ£¿ ÔÚͨÓÃÀﶨÒåÒ»¸ö±äÁ¿,µã¡°É¾³ýÓû§¡±µÄʱºò ÓÃÕâ¸ö±äÁ¿¼Ç¼һÏÂÄã²Ù×÷µÄÊÇɾ³ýÓû§»¹ÊÇÌí¼ÓÓû§ È»ºóÔÚÅжÏÕýÈ·Óë·ñºóÔÙÇø·Ö ʹÓÃAccessÊý¾Ý¿â¼´¿É£¬Êý¾Ý¿âÖÐÉè¼ÆÒ»¸ö±í£¬±íÖк¬ÓУºÓû§ÃûºÍÓû§ÃÜÂëÁ½¸ö×ֶΣ¬´ò¿ªÊ±½øÐÐÌõ¼þ²éѯ¼´¿É£¬Èç¹ûÂ¥Ö÷ÊdzõѧÕߵϰ£¬½¨ÒéÄãÏÈ¿´Ò»Ð©¹ØÓÚÊý¾Ý¿â±à³Ì·½ÃæµÄ»ù´¡Êé¼®¡£ 1.Êý¾Ý¿âÖмǼÕ˺ÅÃÜÂë; 2.Èç¹û½öÐèÑéÖ¤¹ÜÀíÔ±ÃÜÂë,¶ø²»ÓÃÊäÈëÕ˺Å,Ö±½ÓÓøöinputbox¾Í¿ÉÒÔÁË;·ñÔò,ÐèŪһ¸öСµÄµ¯³ö´°¿ÚÑéÖ¤; 3.¸ù¾Ý²»Í¬µÄÐèÒª(ɾ³ýÓû§orÌí¼ÓÓû§)½øÈ벻ͬµÄ²Ù×÷½çÃæ;ÒýÓà ²»ÊÇ£¬ÎÒÊÇÒªÊäÈëÕýÈ·Ö®ºóµ¯³ö²»Í¬µÄ´°Ì壬±ÈÈ磬ÎÒµãµÄÊÇ¡°É¾³ýÓû§¡±Õâ¸öʱºòµ¯³ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó¾Í½øÈëɾ³ýÓû§µÄ½çÃæ£¬µ«ÊÇÈç¹ûÎÒµãµÄÊÇ¡°Ìí¼ÓÓû§¡±£¬Õâ¸öʱºòµ¯³öÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºóÊǽøÈëÌí¼ÓÓû§½çÃæ£¬ÈçºÎÔÚÊäÈë¹ÜÀíÔ±ÃÜÂëÕýÈ·Ö®ºó¸ù¾Ý²»Í¬µÄ²Ù×÷½øÈ벻ͬµÄ½çÃæ£¿ Äã¿ÉÒÔÔÚµãµÄÊÇ¡°É¾³ýÓû§¡±°´Å¥µÄʼþÀïÉèÖÃתµ½ÄǸö´°Ì壬µ«ÔÚÕâ֮ǰҪ¼ÓÉÏÑéÖ¤Óû
Ïà¹ØÎÊ´ð£º
ÔÚ×öÊ÷ÐÍĿ¼ʱ³öÏֵģ¬ÒÔÏÂÊDz¿·Ö´úÂë VB code: Function TreeMenu(id) sql = "select * from Class where CateID=1" rs.Open sql, cover, 1, 1 While Not rs.EOF Response.Write rs(&quo ......
¸÷λ´óÏÀ£¬ÏÖÓÐÒ»ÄÑÌâÇó½Ì£º¼ÙÉèÊý¾Ý¿â£¨mysql»òoracle¡¡µÈÊý¾Ý¿â£©°²×°ÔÚLINUXϵͳµÄ·þÎñÆ÷ÉÏ£¬ÎÒÔÚ¿Í»§¶Ë£¨windowsϵͳ£©Óà VBÈçºÎ½¨Á¢ÓëÊý¾Ý¿âµÄÁ¬½Ó£¬ÊÇ·ñ¿ÉÒÔʹÓÃÀàËÆADO»òDAOµ±ÖеÄÁ¬½ÓÓï¾ä£¿ÇëÄÄλ´óÏÀÖ¸µ¼ ......
ÎÒÏëдһ¸öasp¶ÁÈ¡±¾µØ»ú×ÓµÄÍøÍ«µÄ¹¦ÄÜ£¬ÐèÒªÓÃvbдһ¸ödll ÔÚÍøÉÏÕÒÁËһϣ¬°ÑÏÂÃæµÄ¶Î¿½Èëvb¹¤³ÌÀ Option Explicit Private Const NCBASTAT = &H33 Private Const NCBNAMSZ = 16 Private ......
Õâ¸ö³ÌÐòÊǹ̶¨µÄ£¬±ÈÈçcmd.exe ´ò¿ªCMDºó£¬Êó±êÔÚCMDµÄ±êÌâÀ¸¿ÉÒÔµã»÷ÓÒ¼üºÍ×ó¼ü£¬µ¯³öÏàÓ¦µÄ²Ëµ¥¡£ ÎÒÒª´ïµ½µÄÄ¿µÄÊÇ£ºÎÞÂÛÊÇ×ó»÷»¹ÊÇÓÒ»÷CMDµÄ±êÌâÀ¸¶¼²»Äܵ¯³ö²Ëµ¥¡£ »òÕßÄܳöÏֲ˵¥Ò²ÐУ¬µ«Ö»Äܳö ......
¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺 Public hhook Private Sub Command1_Click() hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID) End Sub ÒÔϵ ......