必赢电子游戏娱乐-必赢贵宾3003-首页


 

用户登录



  回列表
您是本信息第 5717 个阅读者
上一条
下一条

* 主题: asp在线压缩access库后排序方式变化
双击滚屏
发布时间: 2016/1/31 8:25:27

关于压缩access库,基本都是这个代码,但是压缩后,无论是用代码还是打开access操作,字符的排序并不是按照中文拼音排序,也不知道它是按照什么排序的,愁死人了,找了很多资料,提出这个问题的很少,而且没有找到解决办法。尝试换一种压缩方法,也没有找到。



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=微软.Jet.OLEDB.4.0;Data Source=" & dbpath, "Provider=微软.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tempx.mdb;" & "Jet OLEDB:Engine Type=" & JET_3X 
Else
Engine.CompactDatabase "Provider=微软.Jet.OLEDB.4.0;Data Source=" & dbpath, "Provider=微软.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

 

必赢电子游戏娱乐|必赢贵宾3003

XML 地图 | Sitemap 地图