delphiaccess:Delphi操作ACCESS技巧集来源: 发布时间:星期四, 2009年2月12日 浏览:126次 评论:0
1.DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库) 以下代码在WIN2K,D6,MDAC2.6下测试通过, 编译好   在WIN98第 2版无ACCESS环境下运行成功.//在的前uses ComObj,ActiveX //声明连接  串Const SConnectionString = \'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;\' +\'Jet OLEDB:Database Password=%s;\'; //  =// Procedure: GetTempPathFileName // Author : ysai // Date : 2003-01-27 // Arguments: (None) // Result :  // =function GetTempPathFileName  :;//取得临时文件名 var SPath,SFile: begin GetTempPath(254,SPath); GetTempFileName(SPath,\'~SM\',0,SFile); result:=SFile; DeleteFile(PChar(result)); end; // =// Procedure: CreateAccessFile // Author : ysai // Date : 2003-01-27 // Arguments: FileName:String;PassWord: =\'\'// Result : boolean // =function CreateAccessFile(FileName:String;PassWord: =\'\'):boolean;//建立Access文件  如果文件存在则失败var STempFileName: ;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 : 2003-01-27 // Arguments: AFileName,APassWord: // Result : boolean // =function CompactDatabase(AFileName,APassWord: ):boolean;//压缩和修复数据库,覆盖源文件 var STempFileName: ;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: // Result : boolean // =function ChangeDatabasePassword(AFileName,AOldPassWord,ANewPassWord: ):boolean;//修改ACCESS数据库密码 var STempFileName: ;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语句应注意 地方及几点窍门技巧以下SQL语句在ACCESS XP 查询中测试通过建表: Create Table Tab1 ( ID Counter, Name ,Age  eger,[Date] DateTime); 窍门技巧: 自增字段用 Counter 声明. 字段名为关键字 字段用方括号 括起来,数字作为字段名也可行.建立索引: 下面 语句在Tab1Date列上建立可重复索引Create Index iDate _disibledevent=> 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\\ 中找到 异构数据库的间导数据参见 碧血剑 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1691966 ACCESS支持子查询 ACCESS支持外连接,但不包括完整外部联接,如支持 LEFT JOIN 或 RIGHT JOIN 但不支持 FULL OUTER JOIN 或 FULL 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
相关文章读者评论发表评论 |
|
 |
专注于互联网--专注于架构 |
最新标签 网站地图 文章索引 Rss订阅 |
