Delphi操作ACCESS技巧集

1.DELPHI中操作access数据库(建立.mdb文件,压缩数据库)
以下代码在WIN2K,D6,MDAC2.6下测试通过,
编译好的程序在WIN98第二版无ACCESS环境下运行成功.
//在之前uses ComObj,ActiveX
//声明连接字符串
Const
SConnectionString = 'PRovider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet OLEDB:Database PassWord=%s;';

//=============================================================================
// Procedure: GetTempPathFileName
// Author : ysai
// Date : 2003-01-27
// Arguments: (None)
// Result : string
//=============================================================================
function GetTempPathFileName():string;
//取得临时文件名
var
SPath,SFile:array [0..254] of char;
begin
GetTempPath(254,SPath);
GetTempFileName(SPath,'~SM',0,SFile);
result:=SFile;
DeleteFile(PChar(result));
end;

//=============================================================================
// Procedure: CreateAccessFile
// Author : ysai
// Date : 2003-01-27
// Arguments: FileName:String;PassWord:string=''
// Result : boolean
//=============================================================================
function CreateAccessFile(FileName:String;PassWord:string=''):boolean;
//建立Access文件，如果文件存在则失败
var
STempFileName:string;
vCatalog:OleVariant;
begin
STempFileName:=GetTempPathFileName;
try
vCatalog:=CreateOleObject('ADOX.Catalog');
vCatalog.Create(format(SConnectionString,[STempFileName,PassWord]));
result:=CopyFile(PChar(STempFileName),PChar(FileName),True);
DeleteFile(STempFileName);
except
result:=false;
end;
end;

//=============================================================================
// Procedure: CompactDatabase
// Author : ysai
// Date : 2003-01-27
// Arguments: AFileName,APassWord:string
// Result : boolean
//=============================================================================
function CompactDatabase(AFileName,APassWord:string):boolean;
//压缩与修复数据库,覆盖源文件
var
STempFileName:string;
vJE:OleVariant;
begin
STempFileName:=GetTempPathFileName;
try
vJE:=CreateOleObject('JRO.JetEngine');
vJE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),
format(SConnectionString,[STempFileName,APassWord]));
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
DeleteFile(STempFileName);
except
result:=false;
end;
end;

//=============================================================================
// Procedure: ChangeDatabasePassword
// Author : ysai
// Date : 2003-01-27
// Arguments: AFileName,AOldPassWord,ANewPassWord:string
// Result : boolean
//=============================================================================
function ChangeDatabasePassword(AFileName,AOldPassWord,ANewPassWord:string):boolean;
//修改ACCESS数据库密码
var
STempFileName:string;
vJE:OleVariant;
begin
STempFileName:=GetTempPathFileName;
try
vJE:=CreateOleObject('JRO.JetEngine');
vJE.CompactDatabase(format(SConnectionString,[AFileName,AOldPassWord]),
format(SConnectionString,[STempFileName,ANewPassWord]));
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
DeleteFile(STempFileName);
except
result:=false;
end;
end;

2.ACCESS中使用SQL语句应注意的地方及几点技巧
以下SQL语句在ACCESS XP的查询中测试通过
建表:
Create Table Tab1 (
ID Counter,
Name string,
Age integer,
[Date] DateTime);
技巧:
自增字段用 Counter 声明.
字段名为关键字的字段用方括号[]括起来,数字作为字段名也可行.

建立索引:
下面的语句在Tab1的Date列上建立可重复索引
Create Index iDate ON Tab1 ([Date]);
完成后ACCESS中字段Date索引属性显示为 - 有(有重复).
下面的语句在Tab1的Name列上建立不可重复索引
Create Unique Index iName ON Tab1 (Name);
完成后ACCESS中字段Name索引属性显示为 - 有(无重复).
下面的语句删除刚才建立的两个索引
Drop Index iDate ON Tab1;
Drop Index iName ON Tab1;

ACCESS与SQLSERVER中的UPDATE语句对比:
SQLSERVER中更新多表的UPDATE语句:
UPDATE Tab1
SET a.Name = b.Name
FROM Tab1 a,Tab2 b
WHERE a.ID = b.ID;
同样功能的SQL语句在ACCESS中应该是
UPDATE Tab1 a,Tab2 b
SET a.Name = b.Name
WHERE a.ID = b.ID;
即:ACCESS中的UPDATE语句没有FROM子句,所有引用的表都列在UPDATE关键字后.
上例中如果Tab2可以不是一个表,而是一个查询,例:
UPDATE Tab1 a,(Select ID,Name From Tab2) b
SET a.Name = b.Name
WHERE a.ID = b.ID;

访问多个不同的ACCESS数据库-在SQL中使用In子句:
Select a.*,b.* From Tab1 a,Tab2 b In 'db2.mdb' Where a.ID=b.ID;
上面的SQL语句查询出当前数据库中Tab1和db2.mdb(当前文件夹中)中Tab2以ID为关联的所有记录.
缺点-外部数据库不能带密码.
补充:看到ugvanxk在一贴中的答复,可以用
Select * from [c:\aa\a.mdb;pwd=1111].table1;
ACCESS XP测试通过

在ACCESS中访问其它ODBC数据源
下例在ACCESS中查询SQLSERVER中的数据
SELECT * FROM Tab1 IN [ODBC]
[ODBC;Driver=SQL Server;UID=sa;PWD=;Server=127.0.0.1;DataBase=Demo;]
外部数据源连接属性的完整参数是:
[ODBC;DRIVER=driver;SERVER=server;DATABASE=database;UID=user;PWD=password;]
其中的DRIVER=driver可以在注册表中的
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\
中找到
异构数据库之间导数据参见 碧血剑 的
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1691966

ACCESS支持子查询

ACCESS支持外连接,但不包括完整外部联接,如支持
LEFT JOIN 或 RIGHT JOIN
但不支持
FULL OUTER JOIN 或 FULL JOIN

ACCESS中的日期查询
注意:ACCESS中的日期时间分隔符是#而不是引号
Select * From Tab1 Where [Date]>#2002-1-1#;
在DELPHI中我这样用
SQL.Add(Format(
'Select * From Tab1 Where [Date]>#%s#;',
[DateToStr(Date)]));

ACCESS中的字符串可以用双引号分隔,但SQLSERVER不认,所以为了迁移方便和兼容,
建议用单引号作为字符串分隔符.

delphi读取一个ACCESS数据库中的表名

 ADOConnection1.Close;

ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='

+ Edit1.Text + ';Persist Security Info=False';

ADOConnection1.Open;

ADOConnection1.GetTableNames(ComboBox1.Items);

ComboBox1.ItemIndex := ; 

delphi和access连接的方式

.SQL数据库的联接方式：

条件：控件名：AdoConnecion1,数据库名：Sample,用户名：sa   密码：，数据库地址：本机

AdoConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=Sample;Data Source=.';

Adoconnection1.LoginPrompt:=False;

Adoconnection1.Connected:=True;

上面这段代码为SQL数据库的联接方式：最后一句Data Source=. 其中的“.”表示为数据库在本机，如果数据在其它地方，则将点改为IP地址或是服务器名称。

.ACCESS数据库的联接方式：

条件：Adoconnection1,数据库名：Sample 密码：，数据库文件路径为程式存取的根目录。

procedure TDataModule1.DataModuleCreate(Sender: TObject);

var

   DbPath:String;

begin

DbPath:=ExtractFilePath(Application.ExeName)+'Sample.mdb';

Adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Data Source='+DbPath+';Persist Security Info=false';

Adoconnection1.LoginPrompt:=False;

Adoconnection1.Connected:=True;

end;

使用midas访问远程access数据库

访问远程数据库常用的办法是使用大型数据库自带的客户端工具，如SQL Server和Oracle等都带有这样的工具。带对于Access这样的小型数据库，这种方法就无法使用了，因为Access不提供这样的客户端工具。但我们可以通过MIDAS实现访问远程Access数据库。

MIDAS是Delphi提出的三层架构的解决方案。我提供的用MIDAS访问远程Access数据库方法的基本思路是在服务器端建立供远程访问的数据模块，而在客户端通过MIDAS组件与其建立连接，并在客户端发送SQL语句给服务器，服务器执行后返回数据集给客户端。

具体做法为：

服务器端

服务器使用ADO控件访问Access数据库，具体是ADOConnection控件建立连接，ADOQuery执行相关操作。使用Data Access的ClientDataSet控件向客户端返回数据集。并将以上控件放在Remote Data Module的容器中，供由客户端进行连接。

有如下步骤：

.         建立Application。其Form取名为FormServer，Project名为PrjServer；

.         FileàNewàOther…，在弹出的New Items对话框中选择Multitier页，在该页中选择Remote Data Module，确定；

.         在弹出的Remote Data Module Wizard对话框中，在coclass一栏中填入AccessServer，Instancing与Threading Model保持默认，即表示不同线程之间互相独立，确定后即生成一个RemoteDataModule的派生类AccessServer（在ViewàType Library中可以查看该类的详细信息）；

.         在程序所在的文件夹中新建一个名为data的文件夹，在其下放入一个名为my.mdb的Access数据库文件，其中有一个名为person的表，该表中只有两个字段，分别为name和age，都是文本类型；

.         远程数据模块AccessServer上放置各个控件，最终效果如下图所示：

服务器远程数据模块

各控件的相关属性与作用如下表所示：

控件类型

所属页面

属性

值

作用

ADOConnection

ADO

name

ADOConnection1

连接Access文件

ConnectionString

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\data\my.mdb;Persist Security Info=False

ADOQuery

ADO

name

ADOQuery1

执行相关查询操作

Connection

ADOConnection1

ClientDataSet

Data Access

name

DataSetProvider1

向客户端提供数据接口

DataSet

ADOQuery1

Options. poAllowCommandText

true

.         编译并运行该服务器程序。运行该程序即注册了一个MIDAS的服务器，也只有在服务器程序运行的条件下，才能进行下一步的客户端的程序开发。

客户端

以DCOM方式与服务器端进行连接，

.         建立Application。其Form取名为FormClient，Project名为PrjClient；

.         在Form上放置各个控件，最终效果如下图所示：

客户端界面

各控件的相关属性与作用如下表所示：

控件类型

所属页面

属性

值

作用

Edit

Stardard

name

txtQuery

接收查询语句

Text

select * from person

Button

Stardard

name

btnQuery

DCOMConnection

DataSnap

name

DCOMConnection1

通过DCOM方式连接服务器

ServerName

PrjServer.AccessServer

ClientDataSet

Data Access

name

ClientDataSet1

向远端发出SQL语句，并取得数据集

RemoteServer

DCOMConnection1

ProviderName

DataSetProvider1

DataSource

Data Access

name

DataSource1

作为数据呈现控件的数据源

DataSet

ClientDataSet1

DBGrid

Data Controls

name

DBGrid1

显示从远端取回的数据集

DataSource

DataSource1

说明：

l         DCOMConnection1的ServerName属性是由列表中选取的，该列表是所有注册的MIDAS服务器列表

l         ClientDataSet1的ProviderName属性指定的是服务器上的一个控件

.         在Form上双击按钮btnQuery，在其Click处理函数下加入如下一段代码：

  self.ClientDataSet1.Close;

  self.ClientDataSet1.CommandText:=self.txtQuery.Text;

  self.ClientDataSet1.Open;

说明：

如果给出的是无返回的SQL语句，最后一句由Open改为Execute。

运行后，效果如下图所示：

客户端运行效果

改变客户端的连接方式

在上面的例子中是用DCOM方式连接服务器，这一般只能在局域网内使用。如果要在广域网内使用，可以改用Socket方式连接服务器。为此需做如下改动：

.         在服务器端运行Delphi自带的scktsrvr.exe程序，该程序在Borland\Delphi7\Bin\文件夹下

.         在客户端上用SocketConnection控件替换DCOMConnection控件，有关属性的改动如下表所示：

控件类型

所属页面

属性

值

作用

SocketConnection

DataSnap

name

SocketConnection1

通过Socket方式连接服务器

Address

127.0.0.1（本机）

ServerName

PrjServer.AccessServer

ClientDataSet

Data Access

RemoteServer

SocketConnection1

向远端发出SQL语句，并取得数据集

注意：

SocketConnection的默认端口是211，这也是scktsrvr的默认端口。为此要在服务器端的防火墙上开放该端口