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

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 +


Ïà¹ØÎĵµ£º

C# ²Ù×÷ACCESSÊý¾Ý¿â

Ô­ÎÄ£ºhttp://www.cnblogs.com/whitetiger/archive/2007/03/27/689620.html
 ÔÚBETA2ÖУ¬¡£NETÌṩÁËÒÔϵÄNAMESPACE£º
System.Data Namespace
System.Data.OleDb £¨ºÍBETA1ÖÐÒѾ­²»Í¬ÁË£¬ËùÒÔÈç¹ûÄÃBETA1ÖеijÌÐòµ½BETA2ÖÐÀ´ÔËÐп϶¨²»¿ÉÒԵģ©
Èç¹ûÏë½²Çå³þÕâЩ¶«Î÷£¬ÎÒ²»ÈÏΪÊÇÎÒ¿ÉÒÔ×÷µ½µÄ£¬ËùÒÔÎÒÏëͨ¹ýһЩ¾ ......

dz̸VB±à³ÌÖÐÍø¸ñ¿Ø¼þµÄÑ¡Óü°Ê¹Ó÷½·¨

 ÄÚÈÝÌáÒªÕªÒª£º 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 ......

dzÒé·ÇAccessÊý¾Ý¿âÔÚVBÖеıà³Ì¼°Ó¦ÓÃ

Visual BasicÓÐ×ÅÇ¿´óµÄÊý¾Ý¿â´æÈ¡ÄÜÁ¦£¬²»½öÄܹ»Ö±½ÓÖ§³ÖMs AccessÊý¾Ý¿â£¬¶øÇÒͨ¹ýÆäÄÚ²¿°²×°µÄISAMÇý¶¯³ÌÐòʹËüÄܼä½ÓÖ§³ÖFoxPro¡¢dBASEµÈÍâÀ´Êý¾Ý¿â¡£±¾ÎIJ»½ö´ÓVBÊý¾Ý¿âÌåϵ½á¹¹µÄ½Ç¶È̽Ë÷ÁËVB¶ÔÕâЩÍâÀ´Êý¾Ý¿âµÄÖ§³Ö£¬»¹½áºÏÁËһЩʵÀý¾ßÌå²ûÊöÁËʹÓÃÊý¾Ý¿â´æÈ¡¶ÔÏó±äÁ¿µÄ·½·¨ÊµÏÖÕâЩÍâÀ´Êý¾Ý¿âµÄн¨¡¢¿â½á¹¹Ð޸ġ¢ ......

Access Insert Into Óï·¨´íÎó ¼¯½õ£¨²»¶Ï¸üÐÂÖÐ...£©

×î½üÔÚ×öAccessµÄÒ»¸öÏîÄ¿£¬×ÜÊÇĪÃûÆäÃîµÄÌáʾ£º“Insert Into Óï·¨´íÎ󔣬ÕâÑùµÄÐÅÏ¢×ܸøÈË´øÀ´ºÜ¶àÂé·³£¬ÓÐʱºòΪÁËÕâÑùÒ»¸ö´íÎóÒªÕҺþòÅÄܽâ¾öÎÊÌ⣬"Insert Into Óï·¨´íÎó"Õâ¸öÌáʾ±¾Éí°üº¬µÄÐÅÏ¢Á¿ºÜÉÙ£¬ÔÚ¸ú×Ù¶ÑÕ»ÖÐÓÐÕÒ²»µ½¸üÏêϸµÄÐÅÏ¢£¬ÎªÁ˱ÜÃâ´ó¼ÒÔÚ¿ª·¢µÄ¹ý³ÌÖÐÓöµ½Í¬ÑùµÄ´íÎóºÍÀ§ÈÅ¡£Í¨¹ý²éÕÒºÍ ......

¹ØÓÚVBµÄListBox¿Ø¼þÑ¡¶¨ÏîµÄ»ñÈ¡

 ½ñÌìÔÚ×öVBÏîÄ¿µÄʱºò£¬Ê¹ÓÃÁËListBox¿Ø¼þÀ´»ñȡһЩÁбíÏÓÃÁ˲ŷ¢ÏÖûÓÐListViewºÃÓã¬ListViewÓÐItems£¨SelectItem£©¿ÉÒÔ¶¨Î»µ½µ±Ç°µÄÑ¡ÖÐÏ¶øListBoxûÓУ»ListViewÓÐTag¿ÉÒÔÉ趨ѡÖÐÏîµÄ±êʾ£¬ListBoxûÓС£ÉÏÍøÒ²ÕÒ²»µ½Ô­Òò£¬ÖªµÀÈ¥ÔĶÁMSDNºÍ×Ô¼º²âÊÔ¡£
Ö®ºóÖÕÓÚÕÒµ½ÁËÎÊÌâµÄ¹Ø¼ü¡£
ʼþ1£ºÌí¼ÓListBoxÏ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ