vb±ê×¼£¨Î壩£º±äÁ¿
·¶¨ÒåÍêÉÆµÄ±äÁ¿¾ßÓÐÃ÷È·¹æ¶¨µÄÊý¾ÝÀàÐͺÍ×÷ÓÃÓò
·ÒªÕýȷʹÓñäÁ¿£¬±ØÐëʹÓñíÒåÐÔÇ¿µÄ±äÁ¿ÃûÀ´ËµÃ÷ÕâЩ±äÁ¿£¬²¢ÇÒ±ØÐëΪËüÃǸ³Óè½¹µã
·±à³ÌÔÔò
·¶¨ÒåÓн¹µãµÄ±äÁ¿£¨·þÎñÓÚÒ»¸ö¶¨ÒåÃ÷È·µÄÄ¿µÄ£©
·Îª±äÁ¿¸³Óè±íÒåÐÔÇ¿µÄÃû×Ö
·ÌÔ̹ÊÒâËõ¶ÌµÄ±äÁ¿Ãû
·±ÜÃâ¸ø±äÁ¿ÃüÃûΪtemp
·ÔÚ±äÁ¿ÃûÖлìºÏʹÓôóСд
·Ö»¶Ô³£ÓñäÁ¿ÃûºÍ³¤±äÁ¿Ãû½øÐÐËõд
·Ê¹ÓÃͳһµÄÁ¿´Ê
·Óþ«ÐÄÑ¡ÔñµÄÊý¾ÝÀàÐÍ˵Ã÷±äÁ¿
·Ö»ÓÐÔÚ¾ø¶Ô±ØÒªÊ±²ÅʹÓÃvariantÊý¾ÝÀàÐÍ
·Èç¹û¿ÉÄÜ£¬Ã¿ÐÐֻ˵Ã÷Ò»¸ö±äÁ¿
·¾¡Á¿ËõС±äÁ¿µÄ×÷ÓÃÓò
Ïà¹ØÎĵµ£º
StrConvº¯Êý
·µ»Ø°´Ö¸¶¨ÀàÐÍת»»µÄ Variant (String)¡£
Óï·¨
StrConv(string, conversion, LCID)
StrConv º¯ÊýµÄÓï·¨ÓÐÏÂÃæµÄÃüÃû²ÎÊý£º
²¿·Ö
˵Ã÷
string
±ØÒª²ÎÊý¡£Òª×ª»»µÄ×Ö·û´®±í´ïʽ¡£
conversion
±ØÒª²ÎÊý¡£Integer¡£ÆäÖµµÄºÍ¾ö¶¨×ª»»µÄÀàÐÍ¡£
LCID
¿ÉÑ¡µÄ¡£Èç¹ûÓëϵͳLocaleID²»Í¬£¬ÔòΪLocaleID£¨ÏµÍ³ ......
×î½ü¸Õѧ»áÔÚVB2008 ÖÐʹÓòÎÊý»¯SQLÓï¾ä£¬ÓÚÊÇÂíÉÏÓõ½´úÂëÖУ¬È´Åöµ½²é²»µ½ÈκÎÊý¾ÝµÄÇé¿ö£¬¾À½áÁ˺ü¸Ì죬»¹ÊÇûÓиãÃ÷°×£¬²îµãÍÂѪ¡£²»µÃÒÑ»¹ÊÇÏÈÔÚ´úÂëÖÐʹÓÃ×Ö·û´®Æ´½ÓµÄSQLÓï¾ä¡£
°üº¬²ÎÊý»¯SQLÓï¾äµÄ´úÂëÈçÏ£º
Dim cmSl As N ......
½üÀ´ORM±äµÃÔ½À´Ô½ÆÕ±é£¬Õâ¶¼¹éÓÚÒ»Öֺܾß˵·þÁ¦µÄÔÒò£»Ëü¿ÉÒÔʹ¿ª·¢Êý¾Ý¿âÇý¶¯µÄÓ¦ÓóÌÐò±äµÃ¸ü¿ì¡¢¸üÊ¡Á¦¡£µ«ÊÇORM¿ò¼Ü¶¼Óе㓹ÌÖ´¼º¼û”£¬ËûÃÇÆÚÍû¿ª·¢Õß×ñ´ÓÌØ¶¨µÄ¹æÔò£¬µ±¹æÔò±»´òÆÆµÄʱºò¾Í·Ç³£ÄÑÒÔʹÓá£×îͨ³£µÄ¹æÔòÖ®Ò»¾ÍÊÇ£¬´æ´¢¹ý³Ì±ØÐë×ÜÊÇ·µ»Øµ¥¶ÀµÄ½á¹û¼¯£¬ÆäÖд ......
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EX ......