在Delphi中的Access技巧集

　　ACCESS支持子查詢

　　ACCESS支持外連接,但不包括完整外部聯(lián)接,如支持
　　LEFT JOIN 或 RIGHT JOIN
　　但不支持
　　FULL OUTER JOIN 或 FULL JOIN

　　ACCESS中的日期查詢
　　注意:ACCESS中的日期時(shí)間分隔符是#而不是引號
　　Select * From Tab1 Where [Date]>#2002-1-1#;
　　在DELPHI中我這樣用
　　SQL.Add(Format(
　　'Select * From Tab1 Where [Date]>#%s#;',
　　[DateToStr(Date)]));

　　ACCESS中的字符串可以用雙引號分隔,但SQLSERVER不認(rèn),所以為了遷移方便和兼容,
　　建議用單引號作為字符串分隔符.

　// Procedure: CompactDatabase
　　// Author : ysai
　　// Date : 2003-01-27
　　// Arguments: AFileName,APassWord:string
　　// Result : boolean
　　//=============================================================================
　　function CompactDatabase(AFileName,APassWord:string):boolean;
　　//壓縮與修復(fù)數(shù)據(jù)庫,覆蓋源文件
　　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數(shù)據(jù)庫密碼
　　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語句應(yīng)注意的地方及幾點(diǎn)技巧
　　以下SQL語句在ACCESS XP的查詢中測試通過
　　建表:
　　Create Table Tab1 (
　　ID Counter,
　　Name string,
　　Age integer,
　　[Date] DateTime);
　　技巧:
　　自增字段用 Counter 聲明.
　　字段名為關(guān)鍵字的字段用方括號[]括起來,數(shù)字作為字段名也可行.

　　建立索引:
　　下面的語句在Tab1的Date列上建立可重復(fù)索引
　　Create Index iDate ON Tab1 ([Date]);
　　完成后ACCESS中字段Date索引屬性顯示為 - 有(有重復(fù)).
　　下面的語句在Tab1的Name列上建立不可重復(fù)索引
　　Create Unique Index iName ON Tab1 (Name);
　　完成后ACCESS中字段Name索引屬性顯示為 - 有(無重復(fù)).
　　下面的語句刪除剛才建立的兩個(gè)索引
　　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中應(yīng)該是
　　UPDATE Tab1 a,Tab2 b
　　SET a.Name = b.Name
　　WHERE a.ID = b.ID;
　　即:ACCESS中的UPDATE語句沒有FROM子句,所有引用的表都列在UPDATE關(guān)鍵字后.
　　上例中如果Tab2可以不是一個(gè)表,而是一個(gè)查詢,例:
　　UPDATE Tab1 a,(Select ID,Name From Tab2) b
　　SET a.Name = b.Name
　　WHERE a.ID = b.ID;
訪問多個(gè)不同的ACCESS數(shù)據(jù)庫-在SQL中使用In子句:
　　Select a.*,b.* From Tab1 a,Tab2 b In 'db2.mdb' Where a.ID=b.ID;
　　上面的SQL語句查詢出當(dāng)前數(shù)據(jù)庫中Tab1和db2.mdb(當(dāng)前文件夾中)中Tab2以ID為關(guān)聯(lián)的所有記錄.
　　缺點(diǎn)-外部數(shù)據(jù)庫不能帶密碼.
　　補(bǔ)充:看到ugvanxk在一貼中的答復(fù),可以用
　　Select * from [c:\aa\a.mdb;pwd=1111].table1;
　　ACCESS XP測試通過

　　在ACCESS中訪問其它ODBC數(shù)據(jù)源
　　下例在ACCESS中查詢SQLSERVER中的數(shù)據(jù)
　　SELECT * FROM Tab1 IN [ODBC]
　　[ODBC;Driver=SQL Server;UID=sa;PWD=;Server=127.0.0.1;DataBase=Demo;]
　　外部數(shù)據(jù)源連接屬性的完整參數(shù)是:
　　[ODBC;DRIVER=driver;SERVER=server;DATABASE=database;UID=user;PWD=password;]
　　其中的DRIVER=driver可以在注冊表中的
　　HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\
　　中找到異構(gòu)數(shù)據(jù)庫之間導(dǎo)數(shù)據(jù)參見
　　http://www.delphibbs.com/delphibbs/dispq.asp?lid=1691966

　　ACCESS支持子查詢

　　ACCESS支持外連接,但不包括完整外部聯(lián)接,如支持
　　LEFT JOIN 或 RIGHT JOIN
　　但不支持
　　FULL OUTER JOIN 或 FULL JOIN

　　ACCESS中的日期查詢
　　注意:ACCESS中的日期時(shí)間分隔符是#而不是引號
　　Select * From Tab1 Where [Date]>#2002-1-1#;
　　在DELPHI中我這樣用
　　SQL.Add(Format(
　　'Select * From Tab1 Where [Date]>#%s#;',
　　[DateToStr(Date)]));

　　ACCESS中的字符串可以用雙引號分隔,但SQLSERVER不認(rèn),所以為了遷移方便和兼容,
　　建議用單引號作為字符串分隔符.