请问谁有建立英文Access 数据库的工具?(95分)

  • 主题发起人 主题发起人 mycwcgr
  • 开始时间 开始时间
M

mycwcgr

Unregistered / Unconfirmed
GUEST, unregistred user!
因为我不能安装英文office 2000
请问谁有建立英文Access 2000数据库的工具?
 
难道你看不懂中文,建英文字段不是吗?
这以中文Access、英文Access有什么关系呢?你关键是要数据库而以。
中文Access也行,不过呢?用Access建数据库有局限性,不如用SQL SERVER。
 
中文accesss的数据库和英文access的数据库是一个东东
 
可以安装E-Office组件。
 
用中文ACCESS就可以!
 
白送分,我喜欢[:D]
 
用adox可以,看看李维的书
 
希望能够对你有点启发
unit FirstFrm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, StdCtrls;

type
TOfficeForm = class(TForm)
Label1: TLabel;
edtOLECreate: TEdit;
spOLECreate: TSpeedButton;
Label2: TLabel;
edtOLECompact: TEdit;
spOLECompact: TSpeedButton;
Label3: TLabel;
edtDAOCreate: TEdit;
spDAOCreate: TSpeedButton;
Label4: TLabel;
edtDAOCompact: TEdit;
spDAOCompact: TSpeedButton;
procedure spOLECreateClick(Sender: TObject);
procedure spOLECompactClick(Sender: TObject);
procedure spDAOCreateClick(Sender: TObject);
procedure spDAOCompactClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
OfficeForm: TOfficeForm;

implementation

uses ComObj, DAO97;

{$R *.DFM}

procedure TOfficeForm.spOLECreateClick(Sender: TObject);
var
CreateAccess: OleVariant;
begin
//通过建立ADOX(Microsoft ActiveX(R) Data Objects Extensions)对象进行访问
CreateAccess:=CreateOleObject('ADOX.Catalog');
//通过OLE方式创建Access97格式的数据库
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:/Aceco97.mdb');
//通过OLE方式创建Access2000格式的数据库
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/Aceco2000.mdb');
end;

procedure TOfficeForm.spOLECompactClick(Sender: TObject);
var
CompactAccess: OleVariant;
begin
//通过建立JRO(Microsoft Jet and Replication Objects)对象进行访问
CompactAccess:=CreateOleObject('JRO.JetEngine');
//通过OLE方式压缩Access97格式的数据库
CompactAccess.CompactDatabase('Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:/Aceco97.mdb',
'Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:/Aceco97Back.mdb;Jet OLEDB:Encrypt Database=True');
//删除旧的数据库文件
DeleteFile('c:/Aceco97.mdb');
//将压缩后的数据库文件改回原名
RenameFile('c:/Aceco97Back.mdb','c:/Aceco97.mdb');
//通过OLE方式压缩Access2000格式的数据库
CompactAccess.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/Aceco2000.mdb',
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/Aceco2000Back.mdb;Jet OLEDB:Encrypt Database=True');
DeleteFile('c:/Aceco2000.mdb');
RenameFile('c:/Aceco2000Back.mdb','c:/Aceco2000.mdb');
end;

procedure TOfficeForm.spDAOCreateClick(Sender: TObject);
var
AccessEngine: DBEngine;
begin
AccessEngine:=CoDBEngine.Create;
//通过DAO方式创建Access97格式的数据库
AccessEngine.CreateDatabase('c:/Aceco97.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);
end;

procedure TOfficeForm.spDAOCompactClick(Sender: TObject);
var
AccessEngine: DBEngine;
begin
AccessEngine:=CoDBEngine.Create;
//通过DAO方式压缩Access97格式的数据库
AccessEngine.CompactDatabase('c:/Aceco97.mdb','c:/Aceco97Back.mdb','',0,'');
DeleteFile('c:/Aceco97.mdb');
RenameFile('c:/Aceco97Back.mdb','c:/Aceco97.mdb');
end;

end.
 
中文Access数据库,在英文WINDOW 98,2000中有问题
而英文Access数据库通用性好一些
 
用中文access也可以啊
 
在ODBC建数据源时指定Access,就可以建立数据库了,应该不用安装那么多东东吧。[:)]
 
自己编一个也不难就是有些类型的字段困难点
 
建议用中文版,否则用户看到数据库出错信息多有可能无法告诉你,也许是一大堆字母,
也可能是拼音读音!
 
接受答案了.
 
后退
顶部