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

vbÖÐDoEventsµÄʹÓÃÎÊÌ⣿

ÎÒÔÚvbÖжÔaccessÊý¾Ý¿â½øÐÐѹËõºÍ±¸·Ýʱ£¬Ê±¼ä±È½Ï³¤£¬ÓÚÊÇÎҾͼÓÁ˸öÀàËÆ½ø¶ÈÌõµÄ¶«Î÷£¨Ò»¸öͼƬÔÚ½ø¶ÈÌõÀï×óÓÒÑ­»·Òƶ¯£©£¬µ«ÊdzÌÐòÔËÐÐʱ£¬½ø¶ÈÌõÀïµÄͼƬ¾Í²»¶¯ÁË£¬¿ÉÄÜÊÇÒª¼Ó¸öDoevents£¬µ«²»ÖªµÀ¼Óµ½ÄÄ£¿¼ÓÁ˼¸¸öµØ·½¶¼²»ÐС£
½ø¶ÈÌõÀïµÄÍ¼Æ¬ÒÆ¶¯ÊÇÓÃtimer¿Ø¼þ¿ØÖƵ쬰´Àí˵Ӧ¸Ã²»Ó°ÏìµÄ£¬Õâ¸öÔõô½â¾ö£¬

ѹËõ±¸·ÝµÄ´úÂ룺
Public Sub CompactJetDatabase(Location As String, Optional BackupOriginal As Boolean = True)
'¹¤³ÌÖÐÒýÓÃMicrosoft DAO 3.6 Object Library

'On Error GoTo CompactErr


Dim strBackupFile As String

Dim strTempFile As String

'¼ì²éÊý¾Ý¿âÎļþÊÇ·ñ´æÔÚ

If Len(Dir(Location)) Then

'Èç¹ûÐèÒª±¸·Ý¾ÍÖ´Ðб¸·Ý

If BackupOriginal = True Then

strBackupFile = App.Path & "\backup.mdb"

If Len(Dir(strBackupFile)) Then Kill strBackupFile

FileCopy Location, strBackupFile


End If


'´´½¨ÁÙʱÎļþÃû

strTempFile = App.Path & "\temp.mdb"

If Len(Dir(strTempFile)) Then Kill strTempFile

'ͨ¹ýDBEngineѹËõÊý¾Ý¿âÎļþ

DBEngine.CompactDatabase Location, strTempFile

'ɾ³ýÔ­À´µÄÊý¾Ý¿âÎļþ


Kill Location

'¿½±´¸Õ¸ÕѹËõ¹ýÁÙʱÊý¾Ý¿âÎļþÖÁÔ­À´Î»ÖÃ

FileCopy strTempFile, Location


'


Ïà¹ØÎÊ´ð£º

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

ÔõôÓÃVB×öÔ¶³ÌÉÏ´«ÎļþʱµÄ½ø¶ÈÌõ£¿

ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......

VB ·ÃÎÊÍøÂç¹²Ïí

¸÷λ¸ßÊÖ£¬Ð¡µÜÏëдһ¸ö³ÌÐò£¬¶ÁÈ¡·þÎñÆ÷ÉϵÄÒ»¸ö¹²ÏíÎļþ£¬µ±Õâ¸öÎļþ±»Ð޸ĺ󣬽«´ËÎļþ¿½±´µ½±¾µØ¼ÆËã»ú¸²¸Ç±¾µØÔ­À´µÄÎļþ¡£Çë¸÷λ´óÏÀд¶Î´úÂ룬ºÍ½âÊÍ£¬Ð»Ð»£¡
ÅжÏÎļþ´óС»òÐÞ¸ÄÈÕÆÚ£¬²»Ò»Ñù¾Í¿½±´µ½±¾µØ
......

ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡

ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡£¿ÓÐÐÅÏ¢µÄÅóÓѸæËßÏ ллÁË
ÎÒҲûÕÒµ½

Èç¹ûÄãÓÐ FOR ÆäËü µÄÎĵµ£¬Ò²¿ÉÒԲο¼°É£¡
¡®µÀÀí¡¯ÊÇÒ»Öµģ¬Ö»ÊÇ¡°±í´ï·½Ê½¡±²»Í¬¶øÒÑ¡£


mark

pls learn from ba ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ