2022年Delphi中使用ACCESS技巧集access教程.docx

《2022年Delphi中使用ACCESS技巧集access教程.docx》由会员分享，可在线阅读，更多相关《2022年Delphi中使用ACCESS技巧集access教程.docx（10页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2022年Delphi中使用ACCESS技巧集access教程ACCESS技巧集 cwxiao888（保藏）1.DELPHI中*作ACCESS数据库(建立.mdb文件,压缩数据库)以下代码在WIN2K,D6,MDAC2.6下测试通过,编译好的程序在WIN98其次版无ACCESS环境下运行胜利./在之前uses ComObj,ActiveX/声明连接字符串ConstSConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;+Jet OLEDB:Database Password=%s;/=/ Procedure: Ge

2、tTempPathFileName/ Author : ysai/ Date : 2022-01-27/ Arguments: (None)/ Result : string/=function GetTempPathFileName():string;/取得临时文件名varSPath,Sfile:array 0.254 of char;beginGetTempPath(254,SPath);GetTempFileName(SPath,SM,0,SFile);result:=SFile;DeleteFile(PChar(result);end;/=/ Procedure: CreateAcce

3、ssFile/ Author : ysai/ Date : 2022-01-27/ Arguments: FileName:String;PassWord:string=/ Result : boolean/=function CreateAccessFile(FileName:String;PassWord:string=):boolean;/建立Access文件，假如文件存在则失败varSTempFileName:string;vCatalog:OleVariant;beginSTempFileName:=GetTempPathFileName;tryvCatalog:=CreateOle

4、Object(ADOX.Catalog);vCatalog.Create(format(SConnectionString,STempFileName,PassWord);result:=CopyFile(PChar(STempFileName),PChar(FileName),True);DeleteFile(STempFileName);exceptresult:=false;end;end;/=/ Procedure: CompactDatabase/ Author : ysai/ Date : 2022-01-27/ Arguments: AFileName,APassWord:str

5、ing/ Result : boolean/=function CompactDatabase(AFileName,APassWord:string):boolean;/压缩与修复数据库,覆盖源文件varSTempFileName:string;vJE:OleVariant;beginSTempFileName:=GetTempPathFileName;tryvJE:=CreateOleObject(JRO.JetEngine);vJE.CompactDatabase(format(SConnectionString,AFileName,APassWord),format(SConnectio

6、nString,STempFileName,APassWord);result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);DeleteFile(STempFileName);exceptresult:=false;end;end;/=/ Procedure: ChangeDatabasePassword/ Author : ysai/ Date : 2022-01-27/ Arguments: AFileName,AOldPassWord,ANewPassWord:string/ Result : boolean/=funct

7、ion ChangeDatabasePassword(AFileName,AOldPassWord,ANewPassWord:string):boolean;/修改ACCESS数据库密码varSTempFileName:string;vJE:OleVariant;beginSTempFileName:=GetTempPathFileName;tryvJE:=CreateOleObject(JRO.JetEngine);vJE.CompactDatabase(format(SConnectionString,AFileName,AOldPassWord),format(SConnectionSt

8、ring,STempFileName,ANewPassWord);result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);DeleteFile(STempFileName);exceptresult:=false;end;end;12下一页 2.ACCESS中运用SQL语句应留意的地方及几点技巧以下SQL语句在ACCESS XP的查询中测试通过建表:Create Table Tab1 (ID Counter,Name string,Age integer,Date DateTime);技巧:自增字段用 Counter 声明.字

9、段名为关键字的字段用方括号括起来,数字作为字段名也可行.建立索引:下面的语句在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与SQLS

10、ERVER中的UPDATE语句对比:SQLSERVER中更新多表的UPDATE语句:UPDATE Tab1SET a.Name = b.NameFROM Tab1 a,Tab2 bWHERE a.ID = b.ID;同样功能的SQL语句在ACCESS中应当是UPDATE Tab1 a,Tab2 bSET a.Name = b.NameWHERE a.ID = b.ID;即:ACCESS中的UPDATE语句没有FROM子句,全部引用的表都列在UPDATE关键字后.上例中假如Tab2可以不是一个表,而是一个查询,例:UPDATE Tab1 a,(Select ID,Name From Tab2)

11、bSET a.Name = b.NameWHERE 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:aaa.mdb;pwd=1111.table1;ACCESS XP测试通过在ACCESS中访问其它ODBC数据源下例在ACCESS

12、中查询SQLSERVER中的数据SELECT * FROM Tab1 IN ODBCODBC;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_MACHINESOFTWAREODBCODBCINST.INI中找到异构数据库之间导数据参见 碧血剑 的ACCESS支持子查询ACCES

13、S支持外连接,但不包括完整外部联接,如支持LEFT JOIN 或 RIGHT JOIN但不支持FULL OUTER JOIN 或 FULL JOINACCESS中的日期查询留意:ACCESS中的日期时间分隔符是#而不是引号Select * From Tab1 Where Date>#2022-1-1#;在DELPHI中我这样用SQL.Add(Format(Select * From Tab1 Where Date>#%s#;,DateToStr(Date);ACCESS中的字符串可以用双引号分隔,但SQLSERVER不认,所以为了迁移便利和兼容,建议用单引号作为字符串分隔符.上一页12