Delphi中的Access技巧集[曙海教育集团论坛]项目外包开发咨询

1.DELPHI中操作Access数据库(建立.mdb文件,压缩数据库)
以下代码在WIN2K,D6,MDAC2.6下测试通过,
编译好的程序在WIN98第二版无Access环境下运行成功.
G#i;k&yW1j0//在之前uses ComObj,ActiveX
//声明连接字符串
Const
SC
+'Jet OLEDB:Database Password=%s;';
$Uio'L{ O e)I0

//=============================================================================
// Procedure: GetTempPathFileName
// Author : ysai
lV#H0|GW0// Date : 2003-01-27
Wii3m xq7Z~PW0// Arguments: (None)
// Result : string
//=============================================================================
f ? \8o:[7_C0function GetTempPathFileName():string;
:Bnr%[2m9v0//取得临时文件名
var
6?[vh|&_%S0SPath,Sfile&:array [0..254] of char;
DEmTKw`(H;KS0begin
%])xJ,V%N+eYN7M:P0GetTempPath(254,SPath);
^"^/L?!T&YAm:V#t!mP0GetTempFileName(SPath,'~SM',0,SFile);
result:=SFile;
:h/G"fY7z6k0DeleteFile(PChar(result));
G(WzO a1i [^z)b0end; www.iTbulo.com0sJZ0

G(WzO a1i [^z)b0end; www.iTbulo.com0sJZ0.n,M.yP B8U3g6~2f0

@+Y6Y |#^opfc\^N.b:f0//=============================================================================
,g7b,O%^C0// Procedure: CreateAccessFile
)Y2y RWO.c0// Author : ysai
// Date : 2003-01-27
1lLR7?5Fdfm#E]0// Arguments: FileName:String;Password:string=''
// Result : boolean
//=============================================================================
m8CU3E8xa(_0pj0function CreateAccessFile(FileName:String;Password:string=''):boolean;
-b,mD4x9T MTa/R0//建立Access文件，如果文件存在则失败
.\b)?!MIO0var
yy/ET x0STempFileName:string;
rPd:k@$l:g'k[1f'D0vCatalog:OleVariant;
begin
LtD3y@"{ j&`*T q0STempFileName:=GetTempPathFileName;
X&P7vn%Yb%e J&t0try
pk`7O#txMPQ&C0vCatalog:=CreateOleObject('ADOX.Catalog');
vCatalog.Create(format(SConnectionString,[STempFileName,Password]));
result:=CopyFile(PChar(STempFileName),PChar(FileName),True);
DeleteFile(STempFileName);
except
result:=false;
1F^W _ez0end;
S&N!]L+t^0end; www.iTbulo.com0sJZ0

0cP3^6HE9ct;Vg$S0//=============================================================================
// Procedure: CompactDatabase
// Author : ysai
// Date : 2003-01-27
[ov7A+P0ss0// Arguments: AFileName,APassword:string
P1W'Xi|0// Result : boolean
//=============================================================================
s#r4[ u+J1b~0@!e0function CompactDatabase(AFileName,APassword:string):boolean;
~1VsUD0//压缩与修复数据库,覆盖源文件
uN5e ?X0var
STempFileName:string;
vJE:OleVariant;
begin
7] \I/g)Z|[0STempFileName:=GetTempPathFileName;
try
vB%T4p2Ak?a0vJE:=CreateOleObject('JRO.JetEngine');
Nt)v%J(E e*~ qT8q/?*]0vJE.CompactDatabase(format(SConnectionString,[AFileName,APassword]),
format(SConnectionString,[STempFileName,APassword]));
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
3[6j1T,gI0DeleteFile(STempFileName);
W0Jt9\h$a9V.z ID:^.{0except
result:=false;
end;
end; www.iTbulo.com0sJZ0

o9mk*C.f*V5^(W1_/h0

\G(q|#w0u.Xu0 //=============================================================================
ycSQ yE0// Procedure: ChangeDatabasePassword
// Author : ysai
,d6t+M.g3J7k^0// Date : 2003-01-27
1DG]JF II0// Arguments: AFileName,AOldPassword,ANewPassWord:string
$ni%]h9O8o@!mu{0// Result : boolean
PJ9p6k:M0//=============================================================================
function ChangeDatabasePassword(AFileName,AOldPassWord,ANewPassWord:string):boolean;
;`yy U(a'DJ0//修改Access数据库密码
r]F(ay4l+k0var
STempFileName:string;
vJE:OleVariant;
begin
k7W(XYi9R0^Q_1s2@0STempFileName:=GetTempPathFileName;
3Mkm%e{7C`-A w&\0try
5zhs,|m3Z [V9N0v2Q0vJE:=CreateOleObject('JRO.JetEngine');
m&R+]/G/jf:z0gD0vJE.CompactDatabase(format(SConnectionString,[AFileName,AOldPassword]),
format(SConnectionString,[STempFileName,ANewPassword]));
w6R"Q&dE%q[f@Y0result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
-v H$@ T!Z;v0DeleteFile(STempFileName);
except
i$x%AU2u_w mC0result:=false;
end;
!p(A,l6]z^ej1t0end; www.iTbulo.com0sJZ0

2.Access中使用SQL语句应注意的地方及几点技巧
以下SQL语句在Access XP的查询中测试通过
建表:
?UCXzP7?R0Create Table Tab1 (
ID Counter,
Name string,
^wbV+WN^3a#P1l e0Age integer,
[Date] DateTime);
技巧:
自增字段用 Counter 声明.
M"YQ3zG,ccO O^0字段名为关键字的字段用方括号[]括起来,数字作为字段名也可行. www.iTbulo.com0sJZ0

Y{*OV` N0

建立索引:
z'w/YZT3lG D4Z0下面的语句在Tab1的Date列上建立可重复索引
W6M"X&d"m&}h0Create Index iDate ON Tab1 ([Date]);
完成后Access中字段Date索引属性显示为 - 有(有重复).
Ll)@y(d0下面的语句在Tab1的Name列上建立不可重复索引
Create Unique Index iName ON Tab1 (Name);
完成后Access中字段Name索引属性显示为 - 有(无重复).
!R@0UDo` Q}o e0下面的语句删除刚才建立的两个索引
Drop Index iDate ON Tab1;
W QuVU,_[wQ0Drop Index iName ON Tab1; www.iTbulo.com0sJZ0

%{T'Htk-p9p(?.[0

Access与SQLSERVER中的UPDATE语句对比:
SQLSERVER中更新多表的UPDATE语句:
W(X?/N @_(Do$@I0UPDATE Tab1
SET a.Name = b.Name
$X3jL1]8F H K0FROM Tab1 a,Tab2 b
WHERE a.ID = b.ID;
d ?h9HEK0同样功能的SQL语句在Access中应该是
$i.f9A*yz'e0 UPDATE Tab1 a,Tab2 b
SET a.Name = b.Name
An{S-t#F9p |S3xL0WHERE a.ID = b.ID;
即:Access中的UPDATE语句没有FROM子句,所有引用的表都列在UPDATE关键字后.
上例中如果Tab2可以不是一个表,而是一个查询,例:
,Gzs9cE V4?1[ f0UPDATE Tab1 a,(Select ID,Name From Tab2) b
D3\Jg3G[C0SET a.Name = b.Name
WHERE a.ID = b.ID;

a%m(r4Y#`0o&CK0www.iTbulo.com0sJZ0

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

回复标题：
上传附件：

	签名：不显示显示

主题：Delphi中的Access技巧集

Delphi中的Access技巧集