知识大全 Delphi中的Access技巧小结

Posted 2022-07-14 语句

篇首语：知识养成了思想,思想同时又在融化知识。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi中的Access技巧小结相关的知识，希望对你有一定的参考价值。

Delphi中的Access技巧小结 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 DELPHI中操作ACCESS数据库(建立 mdb文件压缩数据库) 　　以下代码在WIN K D MDAC 下测试通过编译好的程序在WIN 第二版无ACCESS环境下运行成功 //在之前uses ComObj ActiveX //声明连接字符串 Const SConnectionString = Provider=Microsoft Jet OLEDB ;Data Source=%s; + Jet OLEDB:Database Password=%s; ;

//============================================================================= // Procedure: GetTempPathFileName // Author : ysai // Date : // Arguments: (None) // Result : string //============================================================================= function GetTempPathFileName():string; //取得临时文件名 var SPath Sfile&:array [ ] of char; begin GetTempPath( SPath); GetTempFileName(SPath ~SM SFile); result:=SFile; DeleteFile(PChar(result)); end;

//============================================================================= // Procedure: CreateAccessFile // Author : ysai // Date : // Arguments: FileName:String;PassWord:string= // Result : boolean //============================================================================= function CreateAccessFile(FileName:String;PassWord:string= ):boolean; //建立Access文件如果文件存在则失败 var STempFileName:string; vCatalog:OleVariant; begin STempFileName:=GetTempPathFileName; try vCatalog:=CreateOleObject( ADOX Catalog ); vCatalog Create(format(SConnectionString [STempFileName PassWord])); result:=CopyFile(PChar(STempFileName) PChar(FileName) True); DeleteFile(STempFileName); except result:=false; end; end;

//============================================================================= // Procedure: CompactDatabase // Author : ysai // Date : // Arguments: AFileName APassWord:string // Result : boolean //============================================================================= function CompactDatabase(AFileName APassWord:string):boolean; //压缩与修复数据库覆蓋源文件 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 : // Arguments: AFileName AOldPassWord ANewPassWord:string // Result : boolean //============================================================================= function ChangeDatabasePassword(AFileName AOldPassWord ANewPassWord:string):boolean; //修改ACCESS数据库密码 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;

　　 ACCESS中使用SQL语句应注意的地方及几点技巧 　　以下SQL语句在ACCESS XP的查询中测试通过　　建表: Create Table Tab ( ID Counter Name string Age integer [Date] DateTime); 　　技巧: 　　自增字段用 Counter 声明　　字段名为关键字的字段用方括号[]括起来数字作为字段名也可行

　　建立索引: 　　下面的语句在Tab 的Date列上建立可重复索引 Create Index iDate ON Tab ([Date]); 　　完成后ACCESS中字段Date索引属性显示为有(有重复) 　　下面的语句在Tab 的Name列上建立不可重复索引 Create Unique Index iName ON Tab (Name); 　　完成后ACCESS中字段Name索引属性显示为有(无重复) 　　下面的语句删除刚才建立的两个索引 Drop Index iDate ON Tab ; Drop Index iName ON Tab ;

ACCESS与SQLSERVER中的UPDATE语句对比: SQLSERVER中更新多表的UPDATE语句: UPDATE Tab SET a Name = b Name FROM Tab a Tab b WHERE a ID = b ID; 　　同样功能的SQL语句在ACCESS中应该是 UPDATE Tab a Tab b SET a Name = b Name WHERE a ID = b ID; 　　即:ACCESS中的UPDATE语句没有FROM子句所有引用的表都列在UPDATE关键字后　　上例中如果Tab 可以不是一个表而是一个查询例: UPDATE Tab a (Select ID Name From Tab ) b SET a Name = b Name WHERE a ID = b ID;

　　访问多个不同的ACCESS数据库在SQL中使用In子句: Select a * b * From Tab a Tab b In db mdb Where a ID=b ID; 　　上面的SQL语句查询出当前数据库中Tab 和db mdb(当前文件夹中)中Tab 以ID为关联的所有记录　　缺点外部数据库不能带密码　　补充:看到ugvanxk在一贴中的答复可以用 Select * from [c:\\aa\\a mdb;pwd= ] table ; ACCESS XP测试通过

　　在ACCESS中访问其它ODBC数据源　　下例在ACCESS中查询SQLSERVER中的数据 SELECT * FROM Tab IN [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=;Server= ;DataBase=Demo;] 　　外部数据源连接属性的完整参数是: [ODBC;DRIVER=driver;SERVER=server;DATABASE=database;UID=user;PWD=password;] 　　其中的DRIVER=driver可以在注册表中的 HKEY_LOCAL_MACHINE\\SOFARE\\ODBC\\ODBCINST INI\\ 　　中找到异构数据库之间导数据参见碧血剑的 // delphibbs /delphibbs/dispq asp?lid=

　　ACCESS支持子查询

　　ACCESS支持外连接但不包括完整外部联接如支持 LEFT JOIN 或 RIGHT JOIN 　　但不支持 FULL OUTER JOIN 或 FULL JOIN

　　ACCESS中的日期查询　　注意:ACCESS中的日期时间分隔符是#而不是引号 Select * From Tab Where [Date]># #; 在DELPHI中我这样用 SQL Add(Format( Select * From Tab Where [Date]>#%s#; [DateToStr(Date)]));

cha138/Article/program/Delphi/201311/24888