使用ruby与MS Access数据库交互
ruby常规访问access数据库的方法应该是使用DBI库
：
require 'dbi'
DBI.connect("DBI:ADO:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;")
可是
简单尝试之后没能成功，提示找不到驱动器ADO,懒得再试，遂找其他方法。
一番搜索之后，发现可以用WIN32OLE来访问access,写一个简单的类包装之:
require 'win32ole'
class AccessDb
attr_accessor :mdb, :connection, :data, :fields
def initialize(mdb=nil)
@mdb = mdb
@connection = nil
@data = nil
@fields = nil
end
def open
connection_string = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
connection_string << @mdb
@connection = WIN32OLE.new('ADODB.Connection')
@connection.Open(connection_string)
end
def query(sql)
recordset = WIN32OLE.new('ADODB.Recordset')
recordset.Open(sql, @connection)
@fields = []
recordset.Fields.each do |field|
@fields << field.Name
end
begin
@data = recordset.GetRows.transpose
rescue
@data = []
end
recordset.Close
end
def execute(sql)
@connection.Execute(sql)
end
def close
@connection.Close
end
end
使用方法如下:
db=AccessDb.new('f:\db.mdb')
db.open
db.query('select * from foods')
db.fields
db.data
db.execute("insert into foods values (3,'xxx',299,'xo','good!');"
db.close
下面再给出使用ruby压缩修复access数据库的例子:
require 'win32ole'
def fixaccess(path,newpath)
jet=WIN32OLE.new('JRO.JetEngine')
File.delete(newpath) if File.exist?(newpath)
sp="Provider=Microsoft.ACE.OLEDB.12.0"
ss=sp+";Data Source="+path
sd=sp+";Data Source="+newpath+";Jet OLEDB:Engine Type=5"
jet.CompactDatabase ss,sd
end
比如要求压缩db.mdb文件，压缩后的文件名为new_db.mdb操作如下:
fixaccess('f:\db.mdb','f:\new_db.mdb')
方法fixaccess中的sp在安装了office2007的系统上
相关文档：
前几天在自己的笔记本上安装了OFFICE2007。今天做了一个百度友情链接检查的工具， 在连接ACCESS2007数据库的时候，使用的驱动代码为："provider=microsoft.jet.oledb.4.0;data source="&server.mappath("queryrecord.mdb") 。确发现提示：
Microsoft JET Database Engine 错误 ''80004005''
不可识别的数据库格式
但 ......
连接access数据库代码，写在一个单独的类里
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Data;
using System.Data.OleDb;
namespace AppWebDLL
{
public class ConnApp
{
......
这是一个开源，免费，灵巧，简易的web自动化测试组合框架；通常情况，开源的东西总是给人以迷人，开放式的触感，但同时，也让人难以快速接近（像是东方男人看待西方美女）；要了解一个开源而且组合漂亮的框架，总是要费些周章......总而言之，它不会像收费的东西，你很讨厌它，但不可否认，你的付费其实换取了别人的琐碎劳� ......
a ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\数据库.mdb;Password=管理员密码;User ID=管理员帐号;Jet OLEDB:Database Password=数据库密码;Jet OLEDB:System database=d:\system.MDW;” ' 此处用户帐户必须具有管理员权限才行,此处是指连接需要压缩的数据库的连接代码.
b ＝ &ldq ......
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Data.OleDb;
using System.Windows.Forms;
using System.Data.SqlClient;
namespace Str
{
public partial class Form1 : F ......
