access 技巧 集 作者:ysai 1.delphi中操作access数据库(建立.mdb文件,压缩数据库) 以下代码在win2k,d6,mdac2.6下测试通过, 编译好的程序在win98第二版无access环境下运行成功. //声明连接字符串 const sconnectionstring = 'provider=microsoft.jet.oledb.4.
access技巧集
作者:ysai
1.delphi中操作access数据库(建立.mdb文件,压缩数据库)
以下代码在win2k,d6,mdac2.6下测试通过,
编译好的程序在win98第二版无access环境下运行成功.
//声明连接字符串
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   : string
//=============================================================================
function gettemppathfilename():string;
//取得临时文件名
var
 spath,sfile:array [0..254] of char;
begin
 gettemppath(254,spath);
 gettempfilename(spath,'~sm',0,sfile);
 result:=sfile;
 deletefile(result);
end;
//=============================================================================
// procedure: createaccessfile
// author   : ysai
// date     : 2003-01-27
// 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     : 2003-01-27
// 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;
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为关联的所有记录.
缺点-外部数据库不能带密码.
在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 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不认,所以为了迁移方便和兼容,
建议用单引号作为字符串分隔符.
在sqlserver中查询access数据库中的表
select * from
openrowset('microsoft.jet.oledb.4.0',
'c:/youfile.mdb';'admin';'youpwd',youtabname)
as a
以下sql语句在access xp的查询中测试通过
建表:
  create table tab1 (
      id counter,
      name string,
      age integer,
      [date] datetime);
技巧:
  自增字段用 counter 声明.
  字段名为关键字的字段用方括号[]括起来,数字作为字段名也可行.