VB.NETѹËõACCESSÊý¾Ý¿â
'´´½¨Êý¾Ý¿â
Private Sub Create(ByVal mdbPath As String)
If File.Exists(mdbPath) Then
Throw New Exception("Ä¿±êÊý¾Ý¿âÒѾ´æÔÚ£¬ÎÞ·¨´´½¨")
End If
mdbPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + mdbPath
Dim cat As ADOX.Catalog = New ADOX.Catalog()
cat.Create(mdbPath)
End Sub
'''' <summary>
'''ѹËõÐÞ¸´Êý¾Ý¿â
''' </summary>
''' <param name="mdbPath"> ±»Ñ¹ËõµÄÊý¾Ý¿â·¾¶+Êý¾Ý¿âÎļþÃû</param>
''' <remarks></remarks>
Public Sub Compact(ByVal mdbPath As String)
'If Not File.Exists(mdbPath) = False Then '¼ì²éÊý¾Ý¿âÊÇ·ñÒÑ´æÔÚ
' Throw New Exception("Ä¿±êÊý¾Ý¿â²»´æÔÚ£¬ÎÞ·¨Ñ¹Ëõ")
'End If
Dim temp = GetSysDatePartTime()
Dim FilePath As String = mdbPath.Substring(0, mdbPath.LastIndexOf("\") + 1)
Dim DbFileName As String = mdbPath.Substring(mdbPath.LastIndexOf("\") + 1, mdbPath.Length - mdbPath.LastIndexOf("\") - 1)
File.Copy(mdbPath, FilePath + "DbBak\Bak" + temp + ".mdb", True)
Dim StrProvid As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Dim jt As JRO.JetEngineClass = New JRO.JetEngineClass()
jt.CompactDatabase(StrProvid + mdbPath, StrProvid +
Ïà¹ØÎĵµ£º
¸ø³ö´úÂëÈçÏÂ:
Type WAPPushPDUStruct
SMSCLen As String
SMSCType As String
SMSC As String
PROTOCOL As String
TPMRBase As String
RePhoneNumLen As String
ReP ......
ÔÎÄ£ºhttp://www.cnblogs.com/whitetiger/archive/2007/03/27/689620.html
ÔÚBETA2ÖУ¬¡£NETÌṩÁËÒÔϵÄNAMESPACE£º
System.Data Namespace
System.Data.OleDb £¨ºÍBETA1ÖÐÒѾ²»Í¬ÁË£¬ËùÒÔÈç¹ûÄÃBETA1ÖеijÌÐòµ½BETA2ÖÐÀ´ÔËÐп϶¨²»¿ÉÒԵģ©
Èç¹ûÏë½²Çå³þÕâЩ¶«Î÷£¬ÎÒ²»ÈÏΪÊÇÎÒ¿ÉÒÔ×÷µ½µÄ£¬ËùÒÔÎÒÏëͨ¹ýһЩ¾ ......
Visual BasicÓÐ×ÅÇ¿´óµÄÊý¾Ý¿â´æÈ¡ÄÜÁ¦£¬²»½öÄܹ»Ö±½ÓÖ§³ÖMs AccessÊý¾Ý¿â£¬¶øÇÒͨ¹ýÆäÄÚ²¿°²×°µÄISAMÇý¶¯³ÌÐòʹËüÄܼä½ÓÖ§³ÖFoxPro¡¢dBASEµÈÍâÀ´Êý¾Ý¿â¡£±¾ÎIJ»½ö´ÓVBÊý¾Ý¿âÌåϵ½á¹¹µÄ½Ç¶È̽Ë÷ÁËVB¶ÔÕâЩÍâÀ´Êý¾Ý¿âµÄÖ§³Ö£¬»¹½áºÏÁËһЩʵÀý¾ßÌå²ûÊöÁËʹÓÃÊý¾Ý¿â´æÈ¡¶ÔÏó±äÁ¿µÄ·½·¨ÊµÏÖÕâЩÍâÀ´Êý¾Ý¿âµÄн¨¡¢¿â½á¹¹Ð޸ġ¢ ......
ÔÚACCESS(2007)Êý¾Ý¿âÖУ¬ÓÐÕâÑùÒ»¸öÄ£ºý²éѯ£¬
select postId,postName,postType,left(postTime,10) as postTimes from PostInfo where postUser like '*ÖÜ·¼*'
ÔÚÊý¾Ý¿â²éѯºó½á¹ûÏÔʾÕýÈ·£¬¿ÉÊÇ·ÅÔÚÏîÄ¿µÄ´úÂëÖУ¬¾ÓÈ»²»ÏÔʾ²éѯµÄ½á¹û¿©¡£¼ì²éÁ˰ëÌ춼ûÓз¢ÏÖ´íÎóÔÚÄÄÀ×îºó²ÅÖªµÀ£¬ÓеÄACCESS¾ÓÈ»²»ÈÏʶͨŠ......
ǰ¼¸ÈÕ£¬Óиö¸çÃÇ˵ÓкܶàµçÓ°£¬ÎÊÎÒÒª²»Òª£¿ÎÒ¾ÍÈÃËûÒ»¸öÒ»¸öµÄд¹ýÀ´£¬ÈøçÃÇÀÛ¸ö²»Çá¡£ËùÒÔ¾ÍÏë¼òµ¥Ð´¸ö³ÌÐò£¬»ñȡһÏÂÎļþ¼ÐÏÂÃæµÄËùÓÐÎļþÃû³Æ£¬ÕâÑù¾Í¿ÉÒÔ½ÚÊ¡ºÜ¶àʱ¼äÁË¡£
Èí¼þÄØ£¬ÎÒÒѾÉÏ´«µ½ÍøÕ¾ÁË£ºhttp://download.csdn.net/source/1802599
vb°æ±¾Ä¿Â¼»ñÈ¡Æ÷ 1.0£¨Áú¾í·ç³öÆ·£©
˵Ã÷£º
1.Ñ¡ºÃĿ¼ºó£ ......