DELPHI中操作ACCESS数据库

在DELPHI中操作access数据库(建立。mdb文件，压缩数据库)
下面的代码在WIN2K，D6，MDAC2.6下测试通过，
编译后的程序在WIN98第二版无访问下成功运行。
/声明连接字符串
const
。数据源= % s；
+'Jet OLEDB:数据库密码= % s；；

//= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
//过程:GetTempPathFileName
//作者:ysai
//日期:2003-01-27
//参数:(无)
//结果:string
/= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
//获取临时文件名
var
spath，sfile &: array [0..254]的char
begin
GetTempPath(254，SPath)；
GetTempFileName(SPath，' ~SM '，0，SFile)；
结果:= SFile
DeleteFile(结果)；
end；

//= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
//过程:CreateaccessFile
//作者:ysai
//日期:2003-01-27
//参数:文件名:字符串；PassWord:String =“
//Result:boolean
//= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
函数CreateaccessFile(文件名:String；PassWord:string = ' '):boolean；
//创建一个access文件，如果文件存在，则失败
var
STEMPFILENAME:string；
vCatalog:ole variant；
begin
STempFileName:= GetTempPathFileName；
try
vCatalog:= create ole object(' ADOX。目录’)；
vCatalog。create(format(SConnectionString，[STempFileName，PassWord])；
result:= copy file(PChar(STempFileName)，PChar(FileName)，True)；
delete file(STempFileName)；
except
结果:= false
end；
end；

/
//压缩并修复数据库，覆盖源文件
var
stempfilename:string；
vJE:ole variant；
begin
STempFileName:= GetTempPathFileName；
try
vJE:= create ole object(' JRO。jet engine’)；
vJE。compact database(format(SConnectionString，[AFileName，APassWord])，
format(SConnectionString，[STempFileName，a password])；
result:= copy file(PChar(STempFileName)，PChar(AFileName)，false)；
delete file(STempFileName)；
except
结果:= false
end；
end；