Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vbÓëÊý¾Ý¿â

VBÊý¾Ý¿â²Ù×÷ʵÀý
2008-02-22 05:49
   VBÊý¾Ý¿â²Ù×÷¶ÔºÜ¶à³õѧÕßÅóÓѸе½±È½Ï³ÔÁ¦£¬Ä¿Ç°½Ì²ÄÖеÄʵÀý¶ÔÊý¾Ý¿â²Ù×÷¶¼±È½Ïµ¥Ò»£¬ºÜ¶àÅóÓÑÌáÒéÎÒ×öÒ»¸ö°üÀ¨ä¯ÀÀ¡¢Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄܵÄÊý¾Ý¿â²Ù×÷ʵÀý£¬ÏÂÃæÕâ¸öʵÀý¾ÍÊÇÒ»¸öÕâÑùµÄÊý¾Ý¿â²Ù×÷ʵÀý¡£
   ¡¶Êé¿â¹ÜÀíϵͳ¡·ÊÇÒ»¸ö×î¼òµ¥µÄÊý¾Ý¿â²Ù×÷ʵÀý£¬Ëü°üÀ¨ä¯ÀÀ¡¢Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄܵÄÊý¾Ý¿â²Ù×÷£¬Ê¹ÓÃÊý¾ÝÁ´½Ó¿Ø¼þAdodcÁ´½ÓÊý¾Ý¿â¡¢Êý¾ÝÏÔʾ¿Ø¼þMSHFlexGridÏÔʾÊý¾Ý¿âÖеļǼ¡£
   ÔÚн¨¹¤³Ìʱ¹¤¾ßÏäÖÐÊÇûÓÐAdodc¿Ø¼þºÍMSHFlexGrid¿Ø¼þµÄ£¬ÎÒÃDZØÐëµã»÷²Ëµ¥Öеġ¾¹¤³Ì¡¿-¡¾²¿¼þ¡¿£¬ÔÚ¶Ô»°¿òÖй´Ñ¡“Microsoft ADO Data Control 6.0 (SP6)”ºÍ“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”£¬×îºóµã»÷¡¾È·¶¨¡¿£¬ÕâÑùAdodc¿Ø¼þºÍMSHFlexGrid¿Ø¼þ¾ÍÒѾ­·ÅÖÃÔÚ¹¤¾ßÏäÖÐÁË¡£
   ÆäÖÐAdodc¿Ø¼þµÄConnectionStringÊôÐÔÖµÊÇ£º"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=¼ÒÍ¥Êé¼Ü.mdb;Persist Security Info=False"£¬ËüÉèÖÃÁ´½ÓÁË“¼ÒÍ¥Êé¼Ü.mdb”Õâ¸öAccessÊý¾Ý¿â£¬RecordSourcÊôÐÔÖµÊÇ£º"select ͼÊéµÇ¼Ç±í.ID,ͼÊéµÇ¼Ç±í.Ãû³Æ,ͼÊéµÇ¼Ç±í.ÊéºÅ,ͼÊéµÇ¼Ç±í.×÷Õß,ͼÊéµÇ¼Ç±í.³ö°æÉç,ͼÊéµÇ¼Ç±í.³ö½è״̬,³ö½è¼Ç¼.½èÊéÈË,³ö½è¼Ç¼.µç»°,³ö½è¼Ç¼.µØÖ·,ͼÊéµÇ¼Ç±í.±¸×¢,ͼÊéµÇ¼Ç±í.³ö½è¼Ç¼ from ͼÊéµÇ¼Ç±í,³ö½è¼Ç¼ where ͼÊéµÇ¼Ç±í.ID=³ö½è¼Ç¼.zhuID ORDER BY ͼÊéµÇ¼Ç±í.ID"£¬ÒòΪÔÚ“¼ÒÍ¥Êé¼Ü.mdb”Êý¾Ý¿âÖаüº¬"ͼÊéµÇ¼Ç±í"ºÍ"³ö½è¼Ç¼"¶þ¸öÊý¾Ý±í£¬ÕâÊǶà±íÁ´½ÓµÄµäÐ͵ÄSQLÓï¾ä¡£AdodcµÄÕâ¶þ¸öÊôÐÔÖµÔÚVBµÄÊôÐÔ´°¿Ú½øÐб༭£¬Äã¿ÉÒÔ½«ÉÏÊöÊôÐÔÖµÖ±½ÓÊäÈëµ½ÏàÓ¦µÄÊôÐÔÖУ¬ÉèÖÃVisibleµÄֵΪFalse£¬Ä¿µÄÊÇÔÚÔËÐÐÖв»ÏÔʾÕâ¸ö¿Ø¼þ£¬ÆäËûÊôÐÔĬÈÏÖµ¼´¿É¡£
   MSHFlexGrid¿Ø¼þµÄÃû³ÆÎÒÃÇÐÞ¸ÄΪMS1£¬ËüµÄÊôÐÔÉèÖÃÉÔÉԱȽÏÂé·³£º
   Ê×ÏȽ«ËüµÄDataSourceÊôÐÔÔÚÊôÐÔ´°¿ÚÉèÖÃΪ"Adodc1"£»
   È»ºóÔÚ¶ÔÏó´°¿ÚÓÒ»÷¿Ø¼þ£¬ÔÚÏÂÀ­²Ëµ¥Öеã»÷¡¾ÊôÐÔ¡¿£¬ÔړͨÓÔ±êÇ©ÖÐÐÞ¸ÄÐÐΪ3£¬ÐÞ¸ÄÁÐΪ11£¬Ð޸Ĺ̶¨ÐÐΪ0£¬Ð޸Ĺ̶¨ÁÐΪ0£¬Èç¹ûÊý¾ÝÁ´½ÓûÓÐÎÊÌ⣬ÔÚÊôÐԵē´øÇø”±êÇ©ÖпÉÒÔ¿´µ½ÁбêÌâºÍÁÐÃû³ÆÒѾ­ÉèÖÃÁË£¬ÆäËûÊôÐÔÒ³µÄÊôÐÔ¿ÉÒÔÈÝÐíĬÈÏÖµ£¬Öеã»÷¡¾È·¶¨¡¿¼´¿É¡£
   ÁíÍâÔÚÊôÐÔ´°¿ÚÉèÖÃMSHFlexGrid¿Ø¼þµÄBackColorBkgÊôÐÔΪ&H


Ïà¹ØÎĵµ£º

µ÷ÊÔJavaScript/VB Script½Å±¾³ÌÐò£¨Wscriptƪ£©

ÔÚÈÕ³£µÄ²Ù×÷ϵͳά»¤¹ý³ÌÖУ¬ÓÐʱÎÒÃÇÒ²»áдһЩСµÄ½Å±¾³ÌÐòÀ´¼ò»¯ÏµÍ³¹ÜÀí¹¤×÷£¬ÀýÈçµ÷ÓÃһЩWMIº¯ÊýÀ´×Ô¶¯°²×°Ð¶ÔسÌÐòÖ®ÀàµÄ¡£
ÔÚʵ¼Ê¹¤×÷ÖУ¬ÎÒ·¢ÏÖ³ÌÐòÔ±¶Ô½Å±¾±§Ô¹×î¶àµÄ¾ÍÊǽű¾³ÌÐòºÜÄѵ÷ÊÔÕâ¸öȱµã£¬ÌرðÊǵ÷ÊÔ.vbsµÈWSH³ÌÐòµÄʱºò£¬×ÜÊÇ£º
1.       ÔÚ×ÊÔ´¹ÜÀíÆ÷ÀïÃæË«»÷Ò»¸ö. ......

VB±éÀúµ±Ç°Ä¿Â¼

Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()

currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))

End Sub ......

һЩVBÏà¹ØµÄ¶«Î÷~~


Õä¹óvbº¯ÊýÁбí
Variant ±äÁ¿µÄÄÚ²¿±íʾ:
_______________________________________________________________
·ûºÅ³£Á¿ Öµ ÄÚ²¿±íʾ ×Ö½ÚÊý
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......

VBÖд°ÌåÄ£¿é¡¢±ê׼ģ¿é¡¢ÀàÄ£¿éµÄÇø±ð

VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖØ¸´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......

ÈÃVB²ËÄñ×î¿ìд³ö×Ô¼ºµÄÍâ¹Ò

ÕâÄêÍ·,ÔÚÕâ¸öÂÛ̳ÀïÃæÒѾ­Ã»ÓÐʲô¼¼ÊõÌùÁË...ºÇºÇ~·¢Ò»Æª¾ªÌìµØ,Æü¹íÉñµÄÌû×Ó.µ±È»Õâ¸öÖ»ÊÇÄ£Äâ¼üÅ̵ÄÖÕ¼«Ä£Äâ.ºÇºÇ~
     ¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇÓÐʱºò£¬Ò»Ð©Öظ´ÐԵģ¬ºÜ·±ËöµÄ¼üÅ̲Ù×÷×Ü»áÈÃÈËÆ£±¹£¬ÓÚÊÇ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ