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

VBÖд¦Àí¼ÓÁËÃÜÂëµÄMDBÎļþ

µ±MDB Îļþ¼ÓÁËÃÜÂ룬ֱ½ÓÓÉ   Access   ´òÓ¡MDBÎļþʱ£¬»á³öÏÖÃÜÂë¶Ô»°¿ò£¬Ñ¯ÎÊÃÜÂë¡£µ«ÊÇÈôÒªÓÉ   VB   ³ÌÐòÖдòÓ¡£¬±Ø須¸ü¸Ä   VB³ÌÐòÖдò¿ªMDBÎļþµÄÖ¸Á·ñÔò»á³öÏÖ´íÎóÐÅÏ¢£¡ÒÔÏÂÕë¶Ô¸÷ÖÖÇé¿ö£¬·Ö別¼ÓÒÔ˵Ã÷£º  
   
  1¡¢   ʹÓà   DAO   ÃüÁî´ò¿ªMDBÎļþ£ºOpenDatabase    
  ÈôÒªÓɳÌÐòÖдò¿ª£¬ÃüÁîÈçÏ£º  
  Set   DB   =   OpenDatabase(DatabaseName,   False,   False,   ";Pwd=ÃÜÂë")  
  ʵÀý£º  
  Dim   db   As   Database  
  Set   db   =   OpenDatabase("C:\db1.mdb",   False,   False,   ";Pwd=1")  
  ÈôҪʹÓà   Data   ¿Ø¼þ£¬É趨·½·¨ÈçÏ£º  
  1¡¢É趨   DatabaseName   ÊôÐÔ   (MDBÎļþÃû³Æ   /   º¬Â·¾¶)  
  2¡¢É趨   Connect   ÊôÐÔ£¬將Ô¤ÉèµÄ×Ö´®   "Access"   ¸Ä³É   ";Pwd=ÃÜÂë"   (²»º¬Ë«ÒýºÅ)  
  3¡¢É趨   RecordSource   ÊôÐÔ    
   
  ¡¡  
  2¡¢  
  ¡¡  
  ʹÓà   ADO   ÃüÁî´ò¿ªMDBÎļþ£º  
   
  ÔÚʹÓà   ADODC   »ò   DataEnvironment   É趨ºÃÖ®ºó£¬Ö±½ÓÀûÓÃÊôÐÔ´°¿ÚÐÞ¸Ä   ConnectionString   ÊôÐÔ(¸½ÊôÓÚ   ADODC)   »ò   ConnectionSource   ÊôÐÔ(¸½ÊôÓÚ   DataEnvironment   µÄ   Connection   ¿Ø¼þ)£¬Ð޸ĵķ½·¨ÊÇÔÚÊôÐÔÖ®ºóÔö¼ÓÒÔϲÎÊý£º  
  ;Jet   OLEDB:Database   Password=ÃÜÂë  
   
  ³ýÁË   ADODC   ¼°   DataEnvironment   Ö®Í⣬   Ö±½ÓʹÓà   ADO   ¿Ø¼þ來´ò¿ªº¬ÓÐÃÜÂëµÄ   mdb   MDBÎļþ£¬É趨²ÎÊýµÄ·½·¨Ò²ÊÇÏàͬµÄ¡£  
   
  ¡¡  
  3¡¢  
  ¡¡  
  ѹËõ¼ÓÁËÃÜÂëµÄMDBÎļþ£ºCompactDatabase  
   
  DBEngine.CompactDat


Ïà¹ØÎĵµ£º

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

Private Function NMoneyToSMoney ( NMoney As Variant )   As String
      If IsNumeric ( NMoney )     =   False Then
            NMoneyToSMoney   =   "²»ÊÇÊý×ÖÀ ......

VB 5·1µÚÒ»Ìì

ÉÏÎç:
VB×ܽ᣺
ÏÂͼÊÇÓÃmindmanagerÖÆ×÷µÄVB×ܽámdb£º
³£ÓÿؼþµÄ·ÖÀࣺ
 
ÊôÐԺ͹ý³Ì£º
·½·¨ºÍ¹ý³Ì
ʼþ¹ý³Ì¡¢Function¹ý³ÌºÍ¹ý³Ì£º
VB×ܽá´óͼ£º
 
·ÖÆçÈçÏ£º
Êý¾Ý°üÀ¨£ºÊý¾ÝÀàÐÍ¡¢±äÁ¿¡¢³£Á¿¡¢ÔËËã·û¡¢±í´ïʽµÈ¼¸²¿·Ö£¬¶øÁ÷³Ì¿ØÖÆÓï¾äÓ¦²»Ó¦¸Ã¼ÓÈëÆäÖС£
ÎҸоõ²»Ó¦¸Ã£¬ÓÓ±ù¿éÄ£×Ó&rdquo ......

½Ó×ÅÍâ¹Ò½Ì³Ì VB ´ÓÁ㿪ʼ±àÍâ¹Ò


½Ó×ÅÍâ¹Ò½Ì³Ì VB ´ÓÁ㿪ʼ±àÍâ¹Ò
ÐèÒªVBAPIº¯Êý£º
FindWindow←ѰÕÒ´°¿ÚÁбíÖеÚÒ»¸ö·ûºÏÖ¸¶¨Ìõ¼þµÄ¶¥¼¶´°¿Ú
GetWindowThreadProcessId←»ñÈ¡ÓëÖ¸¶¨´°¿Ú¹ØÁªÔÚÒ»ÆðµÄÒ»¸ö½ø³ÌºÍÏ̱߳êʶ·û
--------------------------------------------------------------------------------------------------------------- ......

c#Óë×îÅ£vbËã·¨±ÈÆ´ by Error


 
ÎÄÕÂÀ´Ô´: http://www.zoesan.com By Error 302777528×ªÔØÇë×¢Ã÷³ö´¦
ÒÔÉÏvbÓõ½Ö¸Õë¼¼Êõ²éÕÒ×Ö·û´®Óëc#Ò»°ãµÄ.indexof()²éÕÒÏà±È½Ï£¬Ã÷ÏÔ¿´³öË­¿ìË­Âý¡£
VB:
Option Explicit
'Ö¸Õë·½·¨²Ù×÷×Ö·û´®
'CopyÒ»¸ö×Ö·û´®µ½»º´æÖÐ
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public ......

ÔÚvbÖÐʹÓÃIphlpapi.dll»ñÈ¡ÍøÂçÐÅÏ¢ µÚÒ»Õ ǰÑÔ

¡ù==================================================================
¡ù±¾Á¬ÔØÎÄÕÂ˵Ã÷£º
¡ù1¡¢Á¬ÔØÊ×·¢ÓÚ¡¶Èí¼þ±¨¡·£¨http://www.sweek.com£©2006Äê21ÆÚ£¨2006Äê5ÔÂ22ÈÕ£©£»
¡ù2¡¢´Ë´ÎÍøÉÏÁ¬ÔزÉÓõÄÊÇÔ­¸å¼þ½á¹¹£¬ÄÚÈÝÓë¡¶Èí¼þ±¨¡··¢±íÂÔÓв»Í¬£»
¡ù3¡¢Ð»¾ø³ý¡¶Èí¼þ±¨¡·¼°ÆäÏà¹Ø¿¯ÎïÖ®ÍâµÄ´«Í³Ã½Ì岿·Ö»òÈ«²¿×ªÔØ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ