Delphi之透过ADOX操作access数据库的方法
日期：2014-05-16 浏览次数：20491 次
Delphi7支持ADO（Microsoft ActiveX Data Objects）的支持，使得Delphi程序员可以彻底摆脱BDE，缩小软件分发的体积。但是Delphi的ADO组件不支持ActiveX Data Objects Extensions for Data Definition Language and Security（ADOX、ADO的扩展，用于创建、修改和删除模式对象，如表格和过程；操作安全对象，可用于维护用户和组，以及授予和撤消对象的权限） 和Jet and Replication Objects（JRO，用于对Jet数据库引擎添加压缩、同步复制等特征），这些功能在开发Access数据库往往比较重要。不过由于ADOX、JRO乃至ADO都是基于COM（Component Object Model，组件对象模型）的，可以调用COM来来实现这些功能。
delphi7中的使用方法：
方法一：
要求：开发平台或客户端需要安装MDAC 2.1数据库引擎，你可以从微软公司http://www.microsoft.com/data下载，也可以在安装IE5.0中选择定制安装“动态数据绑定”选项。
在Delphi IDE中选择菜单ProjectImport Type Library，出现Import Type Library对话框，选择“Microsoft ADO Ext. 2.x for DDL and Security”，将Class Name中TTable改为TADOXTable(因为TTable组件在Delphi中已经存在并注册）；选择“Microsof Jet and Replication Object 2.x Library”。然后单击“Install”安装，便在Delphi的Imports目录下生成ADOX_TLB.pas和JRO_TLB.pas两个文件。在Unit文件的Uses中加入ComObj、ADOX_TLB、JRO_TLB，就可以通过COM操作ADOX和JRO对象了。
这样在组件面板的activex中找到这些组件，放一个Catalog1到表单上，然后加个按钮，加入单击动作
procedure TForm1.Button1Click(Sender: TObject);
begin
Catalog1.Create1(’Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb’);
end;
这样，我们简单的就实现了在c:\下建立一个新的access数据库new.mdb，你可以编译一下看看效果如何
方法二：:通过OLE方式创建
在引用部分加入：
uses ComObj;
实现部分：
procedure TFormOffice.BitBtn1Click(Sender: TObject);
var
CreateAccess:OleVariant;
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Aceco.mdb');
end;
===============================================================================================================
创建表的方法（ole方法）：
procedure TForm1.Button3Click(Sender: TObject);
var
ConnectAccess:OleVariant;
CreateMyTable:OleVariant;
begin
ConnectAccess:=CreateOleObject('ADOX.Catalog');
ConnectAccess.ActiveConnection:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFileDir(Application.Exename)+'\data\'+Edit2.Text;
CreateMyTable:=CreateOleObject('ADOX.Table');
CreateMyTable.Name:=Edit3.Text;
CreateMyTable.Columns.Append(Edit4.Text,adInteger);
CreateMyTable.Columns.Append(Edit5.Text,adVarWChar,50);
ConnectAccess.Tables.Append(CreateMyTable);
end;
以下是字段常量参数表
|
常量 |
说明 |
|
adTinyInt |
精确的数字值，精度为小数点后 3 位。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。 |
|
AdSmallInt |
精确数字值，精度为小数点后 5 位。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。 |
|
AdInteger |
精确数字值，精度为小数点后 10 位。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。 |
|
AdBigInt |
精确数字值，精度为小数点后 19 位。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。 |
|
AdUnsignedTinyInt |
无符号的 adTinyInt。 |
|
AdUnsignedSmallInt |
无符号的 adSmallInt。 |
|
AdUnsignedInt |
无符号的 adInteger。 |
|
AdUnsignedBigInt |
无符号的 adBigInt。 |
|
AdSingle |
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
|
