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 ......
1¡¢ÎÊÌâÃèÊö£ºÓÃVBA°ÑÊý¾Ý´ÓExcelµ¼Èëµ½Access£¨ÏµÍ³°æ±¾ºÅ£ºMicrosoft Windows XP Professional °æ±¾ 2002 Service Pack 3£»Office Access°æ±¾ºÅ£º2002/XP£©¡£
´úÂëÃèÊö£ºInsert Into [±íÃû]([×Ö¶Î1],[×Ö¶Î2]) " & _
&n ......
ÊìϤSQL SERVER 2000µÄÊý¾Ý¿â¹ÜÀíÔ±¶¼ÖªµÀ£¬ÆäDTS¿ÉÒÔ½øÐÐÊý¾ÝµÄµ¼Èëµ¼³ö£¬Æäʵ£¬ÎÒÃÇÒ²¿ÉÒÔʹÓÃTransact-SQLÓï¾ä½øÐе¼Èëµ¼³ö²Ù×÷¡£ÔÚTransact-SQLÓï¾äÖУ¬ÎÒÃÇÖ÷ҪʹÓÃOpenDataSourceº¯Êý¡¢OPENROWSET º¯Êý£¬¹ØÓÚº¯ÊýµÄÏêϸ˵Ã÷£¬Çë²Î¿¼SQLÁª»ú°ïÖú¡£ÀûÓÃÏÂÊö·½·¨£¬¿ÉÒÔÊ®·ÖÈÝÒ×µØʵÏÖSQL SERVER¡¢ACCESS¡¢EXCELÊý¾ ......
×ò
ÌìºÍanimatorÊÔÑéÁËһϣ¬°Ñdata.mdbÎļþ¸ÄÃûΪdata.aspÎļþºó·ÅÔÚwwwrootĿ¼ÀȻºóÔÚIEÖÐÊäÈëdata.asp·¾¶
ºó£¬·¢ÏÖIEÏÔʾһƬ¿Õ°×£¬ÓÒ¼ü->²ì¿´Ô´Îļþ£¬Ìø³ö¼Çʱ¾£¬½«ÄÚÈÝÁí´æΪ.mdbÎļþ£¬ÓÃACCESS´ò¿ª£¬·¢ÏÖÐèÒªÃÜÂ룬Ҳ¾ÍÊÇ˵ÖÁÉÙÎļþÍ·±»
ÆÆ»µ¡£
È»ºóÓÃFlashgetÊÔÑéÏÂÔØdata.aspÎļþ£¬²¢Áí´æΪda ......