C#窗体应用软件-压缩Access数据库及Excel插件

lipton · 发表于 2012-11-19 23:51

本帖最后由 lipton 于 2012-11-20 11:48 编辑

题目来源与VBA版 http://club.excelhome.net/forum. ... 087&page=2#lastpost
原想用VBA解决，那个 msjro.dll在64位win7不让注册。正好在学习C# ,尝试实际应用。
代码如下：

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Data.OleDb;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using Microsoft.Office.Interop.Access.Dao;
namespace AccessFixDemo
{
public partial class Form1 : Form
{
public string strS;
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
OpenFileDialog openFileDialog1 = new OpenFileDialog();
openFileDialog1.InitialDirectory = "D://Patch";
openFileDialog1.Filter = "All files (*.*)|*.accdb";
openFileDialog1.FilterIndex = 2;
openFileDialog1.RestoreDirectory = true;
string strT = "d:\\tempAccess.accdb";
DBEngine db = new Microsoft.Office.Interop.Access.Dao.DBEngine();
if (openFileDialog1.ShowDialog() == DialogResult.OK)
{
strS = openFileDialog1.FileName.ToString();
if (this.textBox1.Text.Length > 0)
{
//有密码
try
{
db.CompactDatabase(strS, strT, null, null, ";pwd=" + this.textBox1.Text);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
}
else
{
//无密码
try
{
db.CompactDatabase(strS, strT);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
}
System.IO.File.Delete(strS);
System.IO.File.Move(strT, strS);
MessageBox.Show("压缩完成");
}
}
}
}

复制代码

lipton · 发表于 2012-11-20 00:00

源代码附件包括 bin\debug\有一个exe可执行文件accessFixDemo.exe
publish文件夹一个安装包

窗体做的很丑，呵呵。
在 win7 64 测试通过，不知道是否能在32位环境运行？

lipton · 发表于 2012-11-20 00:21

这段代码写的曲折，原来是用x86方式愿望是与32位兼容，结果总是提示控件没有注册，查了许多资料不得要领，大多提示是改成x86.后来改成any cpu测试才通过。

lipton · 发表于 2012-11-20 11:51

根据1楼的代码改成Excel2010插件

lipton · 发表于 2012-11-20 11:52

主要代码

using System;
using System.Collections.Generic;
using System.Data;
using System.Data.OleDb;
using System.Linq;
using System.Text;
using Microsoft.Office.Tools.Ribbon;
using Microsoft.Office.Interop.Access.Dao;
using System.Windows.Forms;
namespace ExcelAddInAccess
{
public partial class Ribbon1
{
private void Ribbon1_Load(object sender, RibbonUIEventArgs e)
{
}
private void button1_Click(object sender, RibbonControlEventArgs e)
{
OpenFileDialog openFileDialog1 = new OpenFileDialog();
openFileDialog1.InitialDirectory = "D://Patch";
openFileDialog1.Filter = "All files (*.*)|*.accdb";
openFileDialog1.FilterIndex = 2;
openFileDialog1.RestoreDirectory = true;
string strT = "d:\\tempAccess.accdb";
string strS = null;
string strpwd = this.editBox1.Text.ToString();
DBEngine db = new Microsoft.Office.Interop.Access.Dao.DBEngine();
if (openFileDialog1.ShowDialog() == DialogResult.OK)
{
strS = openFileDialog1.FileName.ToString();
if (strpwd.Length > 0)
{
//有密码
try
{
db.CompactDatabase(strS, strT, null, null, ";pwd=" + strpwd);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
}
else
{
//无密码
try
{
db.CompactDatabase(strS, strT);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
}
System.IO.File.Delete(strS);
System.IO.File.Move(strT, strS);
MessageBox.Show("压缩完成");
}
}
}
}

复制代码

lipton · 发表于 2012-11-20 12:04

附件源代码说明：
publish.rar安装包，运行环境需要 .NET 4.0

ExcelAddinAccess.RAR 插件源代码
插件功能：压缩Access2007-2010数据库
如果数据库有密码要先输入密码在点击打开文件

编译环境：win7 64 + office2010 64 + vs2010 类库 .NET 4.0
插件测试通过
另外：32位环境是否能运行，谁能帮忙测试一下。

lipton · 发表于 2012-11-20 19:52

win7 64 office2010 32 没有安装 VSTO 测试通过

yuk_yu · 发表于 2012-11-22 18:10

lipton 发表于 2012-11-20 19:52
win7 64 office2010 32 没有安装 VSTO 测试通过

安装出错!没法用！

lipton · 发表于 2012-11-22 18:29

yuk_yu 发表于 2012-11-22 18:10
安装出错!没法用！

出错提示什么？你的运行环境是什么？能不能截一个图发上来？

frederik · 发表于 2014-10-14 15:45

留名！压缩access用的很多！

		自动登录	找回密码
密码			免费注册

[讨论] C#窗体应用软件-压缩Access数据库及Excel插件

最新热点 /1