VB±¸·ÝACCESSÊý¾Ý¿âµÄ·½·¨£¬´úÂë
VB±¸·ÝACCESSÊý¾Ý¿âµÄ·½·¨£¬´úÂë
Õâ¸ö´úÂëÆäʵҲÊÊÓÃÓÚÆäËüÀàÐÍÎļþµÄ¸´ÖÆ£¬ÒªÐÞ¸ÄÒ»ÏÂÆäÖеÄÓï¾äŶ~Private Sub bak_Click()
Dim TargetFileName As String 'Ä¿±êÎļþÃû
On Error Resume Next
With cdlog1
.DialogTitle = "Êý¾Ý±¸·Ý"
.InitDir = App.Path
.FileName = "backup.mdb"
.Filter = "(Êý¾Ý¿â)*.mdb|*.mdb"
.CancelError = True
.ShowSave
TargetFileName = .FileName
End With
If Right$(App.Path, 1) <> "\" Then spath = App.Path & "\"
ssource = spath & "db2.mdb"
On Error GoTo sjbf_error
If Dir$(TargetFileName) <> "" Then
If MsgBox("ÎļþÒÑ´æÔÚ,È·ÈÏÌæ»»Ëü£¡", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Kill TargetFileName 'ɾ³ýÎļþ
FileCopy ssource, TargetFileName '¸´ÖÆÎļþ
'DBEngine.CompactDatabase ssource, TargetFileName 'ѹËõÎļþ
MsgBox "Êý¾Ý±¸·Ý³É¹¦£¡", vbInformation
Else
FileCopy ssource, TargetFileName '¸´ÖÆÎļþ
'DBEngine.CompactDatabase ssource, TargetFileName 'ѹËõÎļþ
MsgBox "Êý¾Ý±¸·Ý³É¹¦£¡", vbInformation
End If
sjbf_error:
If Err = 70 Then
MsgBox "Êý¾Ý¿âÕýÔÚʹÓã¬Çë¹Ø±ÕËùÓÐÊý¾Ý´°¿Ú£¬´ÓпªÊ¼±¸·Ý", vbExclamation
End If
End Sub
Ïà¹ØÎĵµ£º
¿ªÊ¼Ê¹ÓÃvbµÄʱºòϲ»¶ÓÃÊÖ»³öÄǸö¿Ø¼þµÄλÖÃ.È»ºóÒ»¸öÒ»¸öµÄÍ϶¯,Ò»µãÒ»µãµÄÒƶ¯.Ö±µ½¸Ð¾õÂúÒâÁËΪֹ.Èç¹ûÊǿؼþ¶àÁËÕâ¸ö¾ÍºÜÂé·³ÁË
Ò»²»Ð¡ÐÄ¿ÉÄܻὫı¸ö¿Ø¼þÍϵ½Ò»±ßÈ¥
ËùÒÔ,ÎÒÃÇÔÚÒÔºóµÄ×÷Æ·ÖÐ
¾¡Á¿Ê¹ÓôúÂëÀ´¶¨Òå¿Ø¼þλÖÃ,,ÒªÁé»îµÄÕÆÎÕ×ø±êλÖÃ.,¿ÉÒÔʹÓÃ×Ô¶¨Òå×ø±ê.ʹÓÃÏñËØÀ´¸üºÃµÄÀ´·ÖÇøÏÔʾ¿Ø¼þ.
& ......
ÎÄÕÂÀ´Ô´:vb´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾ÔÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......
Èç¹ûÔÀ´Ã»ÓÐʹÓùýÕýÔò±í´ïʽ£¬ÄÇô¿ÉÄܶÔÕâ¸öÊõÓïºÍ¸ÅÄî»á²»Ì«ÊìϤ¡£²»¹ý£¬ËüÃDz¢²»ÊÇÄúÏëÏóµÄÄÇôÐÂÆæ¡£
Çë»ØÏëÒ»ÏÂÔÚÓ²ÅÌÉÏÊÇÈçºÎ²éÕÒÎļþµÄ¡£Äú¿Ï¶¨»áʹÓà ? ºÍ * ×Ö·ûÀ´°ïÖú²éÕÒÄúÕýÑ°ÕÒµÄÎļþ¡£? ×Ö·ûÆ¥ÅäÎļþÃûÖеĵ¥¸ö×Ö·û£¬¶ø * ÔòÆ¥ÅäÒ»¸ö»ò¶à¸ö×Ö·û¡£Ò»¸öÈç 'data?.dat' µÄģʽ¿ÉÒÔÕÒµ½ÏÂÊöÎļþ£º
data1.dat
......
ʹÓÃc#ÓïÑÔÔÚ.netƽ̨Éú³ÉµÄdllÊÇ»ùÓÚMSILµÄ¶þ½øÖÆ´úÂ룬ͨ³£Çé¿öÏÂÊÇÎÞ·¨±»nativeµÄÓïÑԺͳÌÐòµ÷Óõģ¨ÀýÈçvb£¬vc£¬delphi£©¡£µ«ÊÇÒ»°ãÀ´ËµwindowsÉÏnativeµÄ³ÌÐò¶¼ÊÇ¿ÉÒÔÖ±½ÓʹÓÃcom¶ÔÏóµÄ¡£Í¨¹ý.netƽ̨ÌṩµÄһЩ¹¤¾ß£¬¿ÉÒÔΪÆäαÔìÒ»¸öcom½Ó¿Ú²¢×¢²áµ½ÏµÍ³ÖС£´Ëʱ£¬¿ÉÒÔÔÚnativeµÄ³ÌÐòÀͨ¹ýÕâ¸öαcom½Ó¿ÚÀ´ÊµÏÖ´Ë. ......
ÔÚ¿ª·¢Öб£³ÖÁ¼ºÃµÄ±àÂë¹æ·¶ÊÇÊ®·ÖÖØÒªµÄ¡£ÎÒËù²ÉÓõÄеÄVB.net/ASP.NET±àÂë¹æ·¶£¬ÊÇÒ»ÖÖ±»Ö¤Ã÷ÄÜÃ÷ÏÔ¸ÄÉÆ´úÂë¿É¶ÁÐÔ£¬²¢ÓÐÖúÓÚ´úÂë¹ÜÀí¡¢·ÖÀàµÄ±àÂë¹æ·¶¡£²ÉÓÃÕâÖÖ±àÂë¹æ·¶£¬ÄܱÜÃâÈçÐÙÑÀÀûÃüÃû·¨´øÀ´µÄ·±³¤Ç°×º£¬±ãÓÚ¼ÇÒä±äÁ¿µÄÓÃ;¡£ÏÂÃæµÄ½éÉÜÕâÖÖ±àÂë¹æ·¶¡£
Ò»¡¢ÀàÐͼ¶µ¥Î»µÄÃüÃû
1¡¢Àà
¡õÒÔClassÉùÃ÷µÄÀ࣬¶¼±ØÐë ......