• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi中的Access技巧

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
1.DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库) 
以下代码在WIN2K,D6,MDAC2.6下测试通过, 
编译好的程序在WIN98第二版无ACCESS环境下运行成功.
  1//在之前uses ComObj,ActiveX 
  2//声明连接字符串 
  3Const 
  4SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' 
  5+'Jet OLEDB:Database Password=%s;'
  6
  7
  8//============================================================================= 
  9// Procedure: GetTempPathFileName 
 10// Author : ysai 
 11// Date : 2003-01-27 
 12// Arguments: (None) 
 13// Result : string 
 14//============================================================================= 
 15function GetTempPathFileName():string; 
 16//取得临时文件名 
 17var 
 18SPath,Sfile&:array [0..254of char; 
 19begin 
 20GetTempPath(254,SPath); 
 21GetTempFileName(SPath,'~SM',0,SFile); 
 22result:=SFile; 
 23DeleteFile(PChar(result)); 
 24end
 25
 26//============================================================================= 
 27// Procedure: CreateAccessFile 
 28// Author : ysai 
 29// Date : 2003-01-27 
 30// Arguments: FileName:String;PassWord:string='' 
 31// Result : boolean 
 32//============================================================================= 
 33function CreateAccessFile(FileName:String;PassWord:string=''):boolean; 
 34//建立Access文件,如果文件存在则失败 
 35var 
 36STempFileName:string; 
 37vCatalog:OleVariant; 
 38begin 
 39STempFileName:=GetTempPathFileName; 
 40try 
 41vCatalog:=CreateOleObject('ADOX.Catalog'); 
 42vCatalog.Create(format(SConnectionString,[STempFileName,PassWord])); 
 43result:=CopyFile(PChar(STempFileName),PChar(FileName),True); 
 44DeleteFile(STempFileName); 
 45except 
 46result:=false; 
 47end
 48end
 49
 50//============================================================================= 
 51// Procedure: CompactDatabase 
 52// Author : ysai 
 53// Date : 2003-01-27 
 54// Arguments: AFileName,APassWord:string 
 55// Result : boolean 
 56//============================================================================= 
 57function CompactDatabase(AFileName,APassWord:string):boolean; 
 58//压缩与修复数据库,覆盖源文件 
 59var 
 60STempFileName:string; 
 61vJE:OleVariant; 
 62begin 
 63STempFileName:=GetTempPathFileName; 
 64try 
 65vJE:=CreateOleObject('JRO.JetEngine'); 
 66vJE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]), 
 67format(SConnectionString,[STempFileName,APassWord])); 
 68result:=CopyFile(PChar(STempFileName),PChar(AFileName),false); 
 69DeleteFile(STempFileName); 
 70except 
 71result:=false; 
 72end
 73end
 74
 75    //============================================================================= 
 76// Procedure: ChangeDatabasePassword 
 77// Author : ysai 
 78// Date : 2003-01-27 
 79// Arguments: AFileName,AOldPassWord,ANewPassWord:string 
 80// Result : boolean 
 81//============================================================================= 
 82function ChangeDatabasePassword(AFileName,AOldPassWord,ANewPassWord:string):boolean; 
 83//修改ACCESS数据库密码 
 84var 
 85STempFileName:string; 
 86vJE:OleVariant; 
 87begin 
 88STempFileName:=GetTempPathFileName; 
 89try 
 90vJE:=CreateOleObject('JRO.JetEngine'); 
 91vJE.CompactDatabase(format(SConnectionString,[AFileName,AOldPassWord]), 
 92format(SConnectionString,[STempFileName,ANewPassWord])); 
 93result:=CopyFile(PChar(STempFileName),PChar(AFileName),false); 
 94DeleteFile(STempFileName); 
 95except 
 96result:=false; 
 97end
 98end
 99
100

2.ACCESS中使用SQL语句应注意的地方及几点技巧
以下SQL语句在ACCESS XP的查询中测试通过
建表:
Create Table Tab1 (
ID Counter,
Name string,
Age integer,
[Date] DateTime);

技巧:
自增字段用 Counter 声明.
字段名为关键字的字段用方括号[]括起来,数字作为字段名也可行.

建立索引:
下面的语句在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与SQLSERVER中的UPDATE语句对比:
SQLSERVER中更新多表的UPDATE语句:


UPDATE Tab1
SET a.Name = b.Name
FROM Tab1 a,Tab2 b
WHERE a.ID = b.ID;

同样功能的SQL语句在ACCESS中应该是
UPDATE Tab1 a,Tab2 b
SET a.Name = b.Name
WHERE a.ID = b.ID;

即:ACCESS中的UPDATE语句没有FROM子句,所有引用的表都列在UPDATE关键字后.
上例中如果Tab2可以不是一个表,而是一个查询,例:
UPDATE Tab1 a,(Select ID,Name From Tab2) b
SET a.Name = b.Name
WHERE 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:\aa\a.mdb;pwd=1111].table1;
ACCESS XP测试通过

在ACCESS中访问其它ODBC数据源
下例在ACCESS中查询SQLSERVER中的数据

SELECT * FROM Tab1 IN [ODBC]
[ODBC;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_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\
中找到
异构数据库之间导数据参见 碧血剑 

 

ACCESS支持子查询

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

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

ACCESS中的字符串可以用双引号分隔,但SQLSERVER不认,所以为了迁移方便和兼容, 建议用单引号作为字符串分隔符.


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
手机UC下载视频M3U8转MP4 - 疯狂delphi发布时间:2022-07-18
下一篇:
delphi弹出信息框大全(转载)发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap