【国民娱乐每日礼金gm777.top,明发彩票|手机app下载中大奖】我们为您提供明发彩票|手机app下载注册,明发彩票|手机app下载投注,明发彩票|手机app下载app,明发彩票|手机app下载平台,巨华彩票开户,充提快速,操控简单,为明发彩票|手机app下载彩民服务!

明发彩票|手机app下载:asp在線壓縮access庫后排序方式變化

 

用戶登錄



  回列表
您是本信息第 3329 個閱讀者
上一條
下一條

* 主題: asp在線壓縮access庫后排序方式變化
雙擊滾屏
發布時間: 2016/1/31 8:25:27

關于壓縮access庫,基本都是這個代碼明发彩票|手机app下载,但是壓縮后,無論是用代碼還是打開access操作,字符的排序并不是按照中文拼音排序,也不知道它是按照什么排序的明发彩票|手机app下载,愁死人了,找了很多資料,提出這個問題的很少,而且沒有找到解決辦法。嘗試換一種壓縮方法,也沒有找到明发彩票|手机app下载。



Const JET_3X = 4

Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath
strDBPath = left(dbPath,instrrev(DBPath,""))
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(dbPath) Then
Set Engine = CreateObject("JRO.JetEngine")
"Set DBEngine = CreateObject("DAO.DBEngine.36")
If boolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tempx.mdb;" & "Jet OLEDB:Engine Type=" & JET_3X 
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tempx.mdb" 
End If
fso.CopyFile strDBPath & "tempx.mdb",dbpath
fso.DeleteFile(strDBPath & "tempx.mdb")
Set fso = nothing
Set Engine = nothing
CompactDB = "你的數據庫, " & dbpath & ", 已經被壓縮" & vbCrLf
Else
CompactDB = "你輸入的數據庫路徑或名稱未找到,請重試" & vbCrLf
End If
End Function
修改A 修改B

每天進步一小步,人生進步一大步
Copyright(C) 2004-2017 www.jlzgyd.com All Rights Reserved

 

明发彩票|手机app下载