当前位置:首页 » 文件管理 » 解压mdb文件

解压mdb文件

发布时间: 2022-04-01 18:15:22

‘壹’ 怎么解压压缩文件MDB格式的急!!!

mdb是access数据库的文件,不是压缩文件吧,装个office,选里面的access组建 就可以打开

‘贰’ 关于MDB文件解包

用VBS脚本解开,我也找到了这个脚本了(http://www.jb51.net/html/200704/114/9608.htm)。

以packet.mdb为例,我拷贝出相应的代码到剪贴板,然后新建一个文本,将代码复制其中,然后更改文本名字为packet.vbs,将packet.mdb和packet.vbs放在同一个文件夹下,双击packet.vbs,..之后就等一下就会弹出一个成功的框框!!

‘叁’ 网站源码··MDB文件解压

开始--搜索--文件或文件夹,在里面输入你的文件名,选中高级选项,点立即搜索,就可以找到了。

‘肆’ 将MDB格式解压后,使用MDB viewer plus如何变更为EXCEL格式进行编辑不会用,求助!!

Excel 可以直接导入MDB格式的文件,你通过 “数据》导入外部数据》导入数据” 操作,然后选择MDB文件,就可以将MDB的内容导入到Excel里面了。

‘伍’ 请问mdb文件怎么样去解压呀我用VBS代码加载了也解不了呀

mdb是数据库文件,不是压缩文件,用微软OFFICE组件里的MICROSOFT ACCESS 就可以打开

‘陆’ 关于如何解压后缀名为mdb的包子

mdb是access数据库,不是解压文件。
MDB可以用OFFICE套件里的ACCESS打开

‘柒’ 如何打开MDB文件

打开MDB文件的具体操作步骤如下:

1、首先在电脑上点击打开ACCESS应用程序,接着在此页面内点击左侧的“打开其他文件”。

‘捌’ MDB文件解压问题

你把里面设置的解压路径更改就行了,如果不改 解压的文件是自动放到C盘的 默认解压路径里的

‘玖’ MDB格式网站文件如何解压

后来在网上找到一种更简单的方法,跟大家一起分享下。 将*.MDB的文件放在本地的某个文件夹,把下面代码写进记事本,保存为unpack.vbs文件,把待解压文件改名为HYTop.mdb后执行解压。把VB脚本文件和MDB文件放在一个目录里,执行VB脚本就行了(双击这个脚本)。稍等几分钟时间,完成之后会提示的。(没有完成强行退出解的是不完整的包) unpack.vbs Dim rs, ws, fso, conn, stream, connStr, theFolder Set rs = CreateObject("ADODB.RecordSet") Set stream = CreateObject("ADODB.Stream") Set conn = CreateObject("ADODB.Connection") Set fso = CreateObject("Scripting.FileSystemObject") connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=HYTop.mdb;" conn.Open connStr rs.Open "FileData", conn, 1, 1 stream.Open stream.Type = 1 On Error Resume Next Do Until rs.Eof theFolder = Left(rs("thePath"), InStrRev(rs("thePath"), "\")) If fso.FolderExists(theFolder) = False Then createFolder(theFolder) End If stream.SetEos() stream.Write rs("fileContent") stream.SaveToFile str & rs("thePath"), 2 rs.MoveNext Loop rs.Close conn.Close stream.Close Set ws = Nothing Set rs = Nothing Set stream = Nothing Set conn = Nothing Wscript.Echo "所有文件释放完毕!" Sub createFolder(thePath) Dim i i = Instr(thePath, "\") Do While i > 0 If fso.FolderExists(Left(thePath, i)) = False Then fso.CreateFolder(Left(thePath, i - 1)) End If If InStr(Mid(thePath, i + 1), "\") Then i = i + Instr(Mid(thePath, i + 1), "\") Else i = 0 End If Loop End Sub

热点内容
编译器如何接收输入 发布:2024-10-31 19:15:53 浏览:365
除法C编程 发布:2024-10-31 19:10:30 浏览:963
id管理员密码是什么 发布:2024-10-31 19:09:07 浏览:305
设置数据库 发布:2024-10-31 19:09:06 浏览:324
怎么查看海信u7的配置 发布:2024-10-31 18:59:53 浏览:708
国企算法工资 发布:2024-10-31 18:58:15 浏览:117
云视通密码怎么修改 发布:2024-10-31 18:58:12 浏览:128
怎么让软件访问通讯录 发布:2024-10-31 18:52:36 浏览:117
贴吧访问量 发布:2024-10-31 18:28:54 浏览:887
visio在什么配置中可以用 发布:2024-10-31 18:03:21 浏览:552