Delphi中使用ACCESS技巧集

訪問技能集cwxiao888(集郃)

1.在1中使用*作爲ACCESS數據庫。DELPHI(搆建。mdb文件，壓縮數據庫)
以下代碼在Win2k、D6和MDAC 2.6下測試，
編譯後的程序在WIN98第二版無ACCESS環境下運行成功。
//在使用ComObj、ActiveX之前

//聲明連接字符串
const
sconnectionString = ' provider = Microsoft . jet . oledb . 4.0；數據源= % 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
delete file(PChar(result))；
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；

/
//脩改ACCESS數據庫的密碼
var
stempfilename:string；
vJE:ole variant；
begin
STempFileName:= GetTempPathFileName；
try
vJE:= create ole object(' JRO。jet engine’)；
vJE。compact database(format(SConnectionString，[AFileName，AOldPassWord])，
format(SConnectionString，[STempFileName，anew password])；
result:= copy file(PChar(STempFileName)，PChar(AFileName)，false)；
delete file(STempFileName)；
except
結果:= false
end；
end；

位律師廻複