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

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»Í¬ÖÖÀàµÄÂÝË¿¶¤¡£¸´Ô­Ê±£¬¿ÉÒÔÇáËɸ㶨¡£
ÒÔºó×öÈκÎÊÂÇé¶¼ÏȰÑ˳ÐòÀíºÃ£¬²»¿É¼±ÓÚ¿ª¹¤¡£Ä¥µ¶²»Îó¿³²ñ¹¤¡£


Ïà¹ØÎĵµ£º

VBʵÏÖSQL ServerÊý¾Ý¿â±¸·Ý/»Ö¸´

VBʵÏÖSQL ServerÊý¾Ý¿â±¸·Ý/»Ö¸´
http://blog.csdn.net/cncco/archive/2006/05/15/729356.aspx
’**Ä£ ¿é Ãû£ºfBackupDatabase_a
’**Ãè    Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
’**µ÷    ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿âÃû"
’**²ÎÊý˵Ã÷£ ......

VB+SQL 2000 ʵÏÖÊý¾Ý¿âµÄ±¸·ÝºÍ»Ö¸´

 
'*************************************************************************
'**Ä£ ¿é Ãû£ºfBackupDatabase_a
'**Ãè    Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
'**µ÷    ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿ ......

SQLDMOÔÚVBÖеÄÓ¦ÓÃ

SQLDMOÔÚVBÖеÄÓ¦ÓÃ
http://blog.csdn.net/cncco/archive/2010/03/09/5362111.aspx
SQLDMO£¨SQL Distributed Management Objects£¬SQL·Ö²¼Ê½¹ÜÀí¶ÔÏ󣩷â×° Microsoft SQL Server 2000 Êý¾Ý¿âÖеĶÔÏó¡£SQL-DMO ÔÊÐíÓÃÖ§³Ö×Ô¶¯»¯»ò COM µÄÓïÑÔ±àдӦÓóÌÐò£¬ÒÔ¹ÜÀí SQL Server °²×°µÄËùÓв¿·Ö¡£ SQL-DMO ÊÇ SQL Server 20 ......

VB mcisendstring ·½·¨


×ö¸ö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 ......

VBʵÏÖÊý×Öµ½ÖÐÎĽð¶îµÄת»»º¯Êý

Private Function NMoneyToSMoney ( NMoney As Variant )   As String
      If IsNumeric ( NMoney )     =   False Then
            NMoneyToSMoney   =   "²»ÊÇÊý×ÖÀ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ