VB  5·1µÚ¶þÌì
	
    
    
	ÉÏÎçÏȰÑÖ÷°åÊõÓï°¤¸ö²éÁËÒ»±é£¬Á˽âËüµÄËõдÓÉÀ´¡¢Î»Öú͹¦ÄÜ¡£
Ö÷°åÓ¢ÎÄËõдÏê½â£º
 http://user.qzone.qq.com/904515106/infocenter?ptlang=2052&ADUIN=904515106&ADSESSION=1272977059&ADTAG=CLIENT.QQ.2653_Mysrv.0
ÏÂÎç·µ¹¤£¬Õâ´Î¸øµÄ½ÌѵÊDzÒÍ´µÄ£¬ÎÒÃÇ×éÊÔÁ˰ëÌì¶¼²»ÄܵãÁÁ£¬»»Ó²ÅÌ··»»µçÔ´··ÕÒÈ˰ïæ··»»ÏÔ¿¨··»»ÄÚ´æÌõ··×îºó·¢ÏÖÊÔµÄÖ÷»ú²»ÊÇ×òÌìÄÇ̨£¬²»½öÀË·ÑÎÒÃÇ×éµÄʱ¼ä£¬»¹ÓÐСÓ¡¢ÇïÇïÁ½¸ö×鳤µÄ±¦¹óʱ¼ä¡£Ö®ºó×Ô¼º¶¯ÊÖ²ð×°»úÆ÷£¬×îºóÊÔ»ú£¬µãÁÁ×ÀÃæ£¬³É¹¦¡£ÐÅÐĽ¨Á¢µÄÂúÂúµÄÁË£¬ºÇºÇ
·´Ê¡£ºÒÔºó²»¹ÜÔÚÉú»îÖеĸ÷¸ö·½Ãæ×Ô¼º¶¼ÒªÏñ×öÔôÒ»Ñù£¬ÄÇÕâ´Î×°»úÆ÷À´Ëµ£¬Õâ´ÎµÄÈÎÎñÊDzð×°»úºó»úÆ÷ºÍÒÔǰһÑùÔËÐÐÕý³££º
×Ô¼º´ò¿ªÖ÷»úºó¸Çºó²»Ó¦¼±ÓÚ½«¸÷¸ö²¿¼þ²ðжÏÂÀ´£¬Ó¦¸ÃÏëÏëÎÒÒ»»á¶ùÔõôÈÃËüÃǻָ´Ôò¶ø²»±»ÈË·¢ÏÖ£¬·½·¨Ö»ÓÐÒ»¸ö£º×Ô¼º²ðµÄʱºò¿´×¼¼ÇÀΣ¬Ôõô²ðµÄÔõôװÉÏ¡£ÓÚÊÇÿ°ÎÒ»¸öÁã¼þ¾ÍÒª¹Û²ìºÃËüµÄ·½ÏòÒÔ¼°ºÍ±ðµÄ²¿¼þµÄ¹ØÏµ¡£²¢°Ñ°ÎÏÂÀ´µÄ²¿¼þ¹éºÃÀ࣬ÓÈÆäÊDz»Í¬ÖÖÀàµÄÂÝË¿¶¤¡£¸´Ôʱ£¬¿ÉÒÔÇáËɸ㶨¡£
ÒÔºó×öÈκÎÊÂÇé¶¼ÏȰÑ˳ÐòÀíºÃ£¬²»¿É¼±ÓÚ¿ª¹¤¡£Ä¥µ¶²»Îó¿³²ñ¹¤¡£
    
     
	
	
    
    
	Ïà¹ØÎĵµ£º
        
    
     
'ÕâÀïÊÇÆô¶¯¹ý³Ì[ʼþ»¥³â¾Í²»Ð´ÁË]
Dim f as frmMain
Sub Main
       Set f=New frmMain
       f.Show
End Sub
 
'ÕâÀïÊÇÒ»¸öÏß³ÌÀà¡£¡£¡£Ëæ±ãдɶ¡£¡£¡£
ˈ̞:BT
 
'ÕâÀïÊÇÖ÷´°¿Ú
Dim cBT as BT
Sub form_Load
       'Ææ¹ÖµÄÎÊÌâ¾ÍÔÚÕâÀï...
      Set cBT=CreateObject("¹¤³ÌÃû.BT")   
      'ÔÚL ......
	
    
        
    
    VBʵÏÖSQL ServerÊý¾Ý¿â±¸·Ý/»Ö¸´
http://blog.csdn.net/cncco/archive/2006/05/15/729356.aspx
’**Ä£ ¿é Ãû£ºfBackupDatabase_a
’**Ãè    Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
’**µ÷    ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿âÃû"
’**²ÎÊý˵Ã÷£ ......
	
    
        
    
    VBÎÞËù²»ÄÜÖ®Æß£ºVBµÄ¶àỊ̈߳¨1£©
×÷ÕߣºÖÓÉù
 
ÌâÍâ»°£º
 
×î½ü£¬Ð´Á˼¸Æª¡¶VBÎÞËù²»ÄÜ¡·ÏµÁУ¬±¾ÏµÁÐÎÄÕµĴ´×÷³õÖÔ¾ÍÊÇҪȥµß¸²ÖÚ¶à³ÌÐòÔ±¶ÔÓÚ“·ÇÃæÏò¶ÔÏó”ÓïÑÔ“VB”µÄ³É¼û£¡
 
µ±È»£¬ÎÒÒ²ÔçÓÐÔ¤ÆÚ£¬´ËÑÔÒ»³ö±ØÈ»ÕÐÖ²»Ã÷ÕæÏàµÄȺÖڵēΧ¹¥”£¬È»¶ø£¬ÎÒ»¹ÊÇÒª¼ ......
	
    
        
    
    
×ö¸ömp3²¥·ÅÆ÷£¬ÓÃrealplayºÍWMP×ö³öÀ´µÄ³ÌÐòÄÚ´æÕ¼ÓÃÌ«´ó¡£
Èç¹ûÄã½ö½öÊDz¥·ÅMP3£¬½¨ÒéʹÓÃAPIº¯ÊýmciSendString¡£
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal
lpstrReturnString As String, ByVal uReturnLength As Lo ......
	
    
        
    
      Dim strPath As String = Server.MapPath("~\Îļþ¼Ð")
        'Åжϱ£´æÎļþ·¾¶ÊÇ·ñ´æÔÚ ²»´æÔÚÔò´´½¨
        If Not Directory.Exists(strPath) Then
            Directory ......