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
Ïà¹ØÎĵµ£º
Private Function NMoneyToSMoney ( NMoney As Variant ) As String
If IsNumeric ( NMoney ) = False Then
NMoneyToSMoney = "²»ÊÇÊý×ÖÀ ......
ÉÏÎç:
VB×ܽ᣺
ÏÂͼÊÇÓÃmindmanagerÖÆ×÷µÄVB×ܽámdb£º
³£ÓÿؼþµÄ·ÖÀࣺ
ÊôÐԺ͹ý³Ì£º
·½·¨ºÍ¹ý³Ì
ʼþ¹ý³Ì¡¢Function¹ý³ÌºÍ¹ý³Ì£º
VB×ܽá´óͼ£º
·ÖÆçÈçÏ£º
Êý¾Ý°üÀ¨£ºÊý¾ÝÀàÐÍ¡¢±äÁ¿¡¢³£Á¿¡¢ÔËËã·û¡¢±í´ïʽµÈ¼¸²¿·Ö£¬¶øÁ÷³Ì¿ØÖÆÓï¾äÓ¦²»Ó¦¸Ã¼ÓÈëÆäÖС£
ÎҸоõ²»Ó¦¸Ã£¬ÓÓ±ù¿éÄ£×Ó&rdquo ......
½Ó×ÅÍâ¹Ò½Ì³Ì VB ´ÓÁ㿪ʼ±àÍâ¹Ò
ÐèÒªVBAPIº¯Êý£º
FindWindow←ѰÕÒ´°¿ÚÁбíÖеÚÒ»¸ö·ûºÏÖ¸¶¨Ìõ¼þµÄ¶¥¼¶´°¿Ú
GetWindowThreadProcessId←»ñÈ¡ÓëÖ¸¶¨´°¿Ú¹ØÁªÔÚÒ»ÆðµÄÒ»¸ö½ø³ÌºÍÏ̱߳êʶ·û
--------------------------------------------------------------------------------------------------------------- ......
ÎÄÕÂÀ´Ô´: http://www.zoesan.com By Error 302777528×ªÔØÇë×¢Ã÷³ö´¦
ÒÔÉÏvbÓõ½Ö¸Õë¼¼Êõ²éÕÒ×Ö·û´®Óëc#Ò»°ãµÄ.indexof()²éÕÒÏà±È½Ï£¬Ã÷ÏÔ¿´³öË¿ìËÂý¡£
VB:
Option Explicit
'Ö¸Õë·½·¨²Ù×÷×Ö·û´®
'CopyÒ»¸ö×Ö·û´®µ½»º´æÖÐ
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public ......
¡ù==================================================================
¡ù±¾Á¬ÔØÎÄÕÂ˵Ã÷£º
¡ù1¡¢Á¬ÔØÊ×·¢ÓÚ¡¶Èí¼þ±¨¡·£¨http://www.sweek.com£©2006Äê21ÆÚ£¨2006Äê5ÔÂ22ÈÕ£©£»
¡ù2¡¢´Ë´ÎÍøÉÏÁ¬ÔزÉÓõÄÊÇÔ¸å¼þ½á¹¹£¬ÄÚÈÝÓë¡¶Èí¼þ±¨¡··¢±íÂÔÓв»Í¬£»
¡ù3¡¢Ð»¾ø³ý¡¶Èí¼þ±¨¡·¼°ÆäÏà¹Ø¿¯ÎïÖ®ÍâµÄ´«Í³Ã½Ì岿·Ö»òÈ«²¿×ªÔØ ......