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 +
Ïà¹ØÎĵµ£º
ÔÎÄ£ºhttp://www.cnblogs.com/whitetiger/archive/2007/03/27/689620.html
ÔÚBETA2ÖУ¬¡£NETÌṩÁËÒÔϵÄNAMESPACE£º
System.Data Namespace
System.Data.OleDb £¨ºÍBETA1ÖÐÒѾ²»Í¬ÁË£¬ËùÒÔÈç¹ûÄÃBETA1ÖеijÌÐòµ½BETA2ÖÐÀ´ÔËÐп϶¨²»¿ÉÒԵģ©
Èç¹ûÏë½²Çå³þÕâЩ¶«Î÷£¬ÎÒ²»ÈÏΪÊÇÎÒ¿ÉÒÔ×÷µ½µÄ£¬ËùÒÔÎÒÏëͨ¹ýһЩ¾ ......
ÄÚÈÝÌáÒªÕªÒª£º The software of visual basic developed by Microsoft corporation is becoming one of the main develop tools at today¡£ As it's remarkable peculiarity, the Grid control has very great practical and active use¡£ This topic discusses how to use the grid control of VB to develop prati ......
Visual BasicÓÐ×ÅÇ¿´óµÄÊý¾Ý¿â´æÈ¡ÄÜÁ¦£¬²»½öÄܹ»Ö±½ÓÖ§³ÖMs AccessÊý¾Ý¿â£¬¶øÇÒͨ¹ýÆäÄÚ²¿°²×°µÄISAMÇý¶¯³ÌÐòʹËüÄܼä½ÓÖ§³ÖFoxPro¡¢dBASEµÈÍâÀ´Êý¾Ý¿â¡£±¾ÎIJ»½ö´ÓVBÊý¾Ý¿âÌåϵ½á¹¹µÄ½Ç¶È̽Ë÷ÁËVB¶ÔÕâЩÍâÀ´Êý¾Ý¿âµÄÖ§³Ö£¬»¹½áºÏÁËһЩʵÀý¾ßÌå²ûÊöÁËʹÓÃÊý¾Ý¿â´æÈ¡¶ÔÏó±äÁ¿µÄ·½·¨ÊµÏÖÕâЩÍâÀ´Êý¾Ý¿âµÄн¨¡¢¿â½á¹¹Ð޸ġ¢ ......
×î½üÔÚ×öAccessµÄÒ»¸öÏîÄ¿£¬×ÜÊÇĪÃûÆäÃîµÄÌáʾ£º“Insert Into Óï·¨´íÎ󔣬ÕâÑùµÄÐÅÏ¢×ܸøÈË´øÀ´ºÜ¶àÂé·³£¬ÓÐʱºòΪÁËÕâÑùÒ»¸ö´íÎóÒªÕҺþòÅÄܽâ¾öÎÊÌ⣬"Insert Into Óï·¨´íÎó"Õâ¸öÌáʾ±¾Éí°üº¬µÄÐÅÏ¢Á¿ºÜÉÙ£¬ÔÚ¸ú×Ù¶ÑÕ»ÖÐÓÐÕÒ²»µ½¸üÏêϸµÄÐÅÏ¢£¬ÎªÁ˱ÜÃâ´ó¼ÒÔÚ¿ª·¢µÄ¹ý³ÌÖÐÓöµ½Í¬ÑùµÄ´íÎóºÍÀ§ÈÅ¡£Í¨¹ý²éÕÒºÍ ......
½ñÌìÔÚ×öVBÏîÄ¿µÄʱºò£¬Ê¹ÓÃÁËListBox¿Ø¼þÀ´»ñȡһЩÁбíÏÓÃÁ˲ŷ¢ÏÖûÓÐListViewºÃÓã¬ListViewÓÐItems£¨SelectItem£©¿ÉÒÔ¶¨Î»µ½µ±Ç°µÄÑ¡ÖÐÏ¶øListBoxûÓУ»ListViewÓÐTag¿ÉÒÔÉ趨ѡÖÐÏîµÄ±êʾ£¬ListBoxûÓС£ÉÏÍøÒ²ÕÒ²»µ½ÔÒò£¬ÖªµÀÈ¥ÔĶÁMSDNºÍ×Ô¼º²âÊÔ¡£
Ö®ºóÖÕÓÚÕÒµ½ÁËÎÊÌâµÄ¹Ø¼ü¡£
ʼþ1£ºÌí¼ÓListBoxÏ ......