|
1.DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库)mr6Linux联盟
mr6Linux联盟
以下代码在WIN2K,D6,MDAC2.6下测试通过,mr6Linux联盟
编译好的程序在WIN98第二版无ACCESS环境下运行成功.mr6Linux联盟
mr6Linux联盟
//声明连接字符串mr6Linux联盟
Constmr6Linux联盟
SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'mr6Linux联盟
+'Jet OLEDB:Database Password=%s;';mr6Linux联盟
mr6Linux联盟
//=============================================================================mr6Linux联盟
// Procedure: GetTempPathFileNamemr6Linux联盟
// Author : ysaimr6Linux联盟
// Date : 2003-01-27mr6Linux联盟
// Arguments: (None)mr6Linux联盟
// Result : stringmr6Linux联盟
//=============================================================================mr6Linux联盟
function GetTempPathFileName():string;mr6Linux联盟
//取得临时文件名mr6Linux联盟
varmr6Linux联盟
SPath,SFile:array [0..254] of char;mr6Linux联盟
beginmr6Linux联盟
GetTempPath(254,SPath);mr6Linux联盟
GetTempFileName(SPath,'~SM',0,SFile);mr6Linux联盟
result:=SFile;mr6Linux联盟
DeleteFile(result);mr6Linux联盟
end;mr6Linux联盟
mr6Linux联盟
//=============================================================================mr6Linux联盟
// Procedure: CreateAccessFilemr6Linux联盟
// Author : ysaimr6Linux联盟
// Date : 2003-01-27mr6Linux联盟
// Arguments: FileName:String;PassWord:string=''mr6Linux联盟
// Result : booleanmr6Linux联盟
//=============================================================================mr6Linux联盟
function CreateAccessFile(FileName:String;PassWord:string=''):boolean;mr6Linux联盟
//建立Access文件，如果文件存在则失败mr6Linux联盟
varmr6Linux联盟
STempFileName:string;mr6Linux联盟
vCatalog:OleVariant;mr6Linux联盟
beginmr6Linux联盟
STempFileName:=GetTempPathFileName;mr6Linux联盟
trymr6Linux联盟
vCatalog:=CreateOleObject('ADOX.Catalog');mr6Linux联盟
vCatalog.Create(format(SConnectionString,[STempFileName,PassWord]));mr6Linux联盟
result:=CopyFile(PChar(STempFileName),PChar(FileName),True);mr6Linux联盟
DeleteFile(STempFileName);mr6Linux联盟
exceptmr6Linux联盟
result:=false;mr6Linux联盟
end;mr6Linux联盟
end;mr6Linux联盟
mr6Linux联盟
//========================================================================mr6Linux联盟
// Procedure: CompactDatabasemr6Linux联盟
// Author : ysaimr6Linux联盟
// Date : 2003-01-27mr6Linux联盟
// Arguments: AFileName,APassWord:stringmr6Linux联盟
// Result : booleanmr6Linux联盟
//=============================================================================mr6Linux联盟
function CompactDatabase(AFileName,APassWord:string):boolean;mr6Linux联盟
//压缩与修复数据库,覆盖源文件mr6Linux联盟
varmr6Linux联盟
STempFileName:string;mr6Linux联盟
vJE:OleVariant;mr6Linux联盟
beginmr6Linux联盟
STempFileName:=GetTempPathFileName;mr6Linux联盟
trymr6Linux联盟
vJE:=CreateOleObject('JRO.JetEngine');mr6Linux联盟
vJE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),mr6Linux联盟
format(SConnectionString,[STempFileName,APassWord]));mr6Linux联盟
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);mr6Linux联盟
DeleteFile(STempFileName);mr6Linux联盟
exceptmr6Linux联盟
result:=false;mr6Linux联盟
end;mr6Linux联盟
end; |
mr6Linux联盟
2.ACCESS中使用SQL语句应注意的地方及几点技巧mr6Linux联盟
以下SQL语句在ACCESS XP的查询中测试通过mr6Linux联盟
建表:mr6Linux联盟
Create Table Tab1 (mr6Linux联盟
ID Counter,mr6Linux联盟
Name string,mr6Linux联盟
Age integer,mr6Linux联盟
[Date] DateTime);mr6Linux联盟
技巧:mr6Linux联盟
自增字段用 Counter 声明.mr6Linux联盟
字段名为关键字的字段用方括号[]括起来,数字作为字段名也可行.mr6Linux联盟
mr6Linux联盟
建立索引:mr6Linux联盟
下面的语句在Tab1的Date列上建立可重复索引mr6Linux联盟
Create Index iDate ON Tab1 ([Date]);mr6Linux联盟
完成后ACCESS中字段Date索引属性显示为 - 有(有重复).mr6Linux联盟
下面的语句在Tab1的Name列上建立不可重复索引mr6Linux联盟
Create Unique Index iName ON Tab1 (Name);mr6Linux联盟
完成后ACCESS中字段Name索引属性显示为 - 有(无重复).mr6Linux联盟
下面的语句删除刚才建立的两个索引mr6Linux联盟
Drop Index iDate ON Tab1;mr6Linux联盟
Drop Index iName ON Tab1;mr6Linux联盟
mr6Linux联盟
ACCESS与SQLSERVER中的UPDATE语句对比:mr6Linux联盟
SQLSERVER中更新多表的UPDATE语句:mr6Linux联盟
UPDATE Tab1mr6Linux联盟
SET a.Name = b.Namemr6Linux联盟
FROM Tab1 a,Tab2 bmr6Linux联盟
WHERE a.ID = b.ID;mr6Linux联盟
同样功能的SQL语句在ACCESS中应该是mr6Linux联盟
UPDATE Tab1 a,Tab2 bmr6Linux联盟
SET a.Name = b.Namemr6Linux联盟
WHERE a.ID = b.ID;mr6Linux联盟
即:ACCESS中的UPDATE语句没有FROM子句,所有引用的表都列在UPDATE关键字后.mr6Linux联盟
上例中如果Tab2可以不是一个表,而是一个查询,例:mr6Linux联盟
UPDATE Tab1 a,(Select ID,Name From Tab2) bmr6Linux联盟
SET a.Name = b.Namemr6Linux联盟
WHERE a.ID = b.ID;mr6Linux联盟
mr6Linux联盟
访问多个不同的ACCESS数据库-在SQL中使用In子句:mr6Linux联盟
Select a.*,b.* From Tab1 a,Tab2 b In 'db2.mdb' Where a.ID=b.ID;mr6Linux联盟
上面的SQL语句查询出当前数据库中Tab1和db2.mdb(当前文件夹中)中Tab2以ID为关联的所有记录.mr6Linux联盟
缺点-外部数据库不能带密码.mr6Linux联盟
mr6Linux联盟
在ACCESS中访问其它ODBC数据源mr6Linux联盟
下例在ACCESS中查询SQLSERVER中的数据mr6Linux联盟
SELECT * FROM Tab1 IN [ODBC]mr6Linux联盟
[ODBC;Driver=SQL Server;UID=sa;PWD=;Server=127.0.0.1;DataBase=Demo;]mr6Linux联盟
外部数据源连接属性的完整参数是:mr6Linux联盟
[ODBC;DRIVER=driver;SERVER=server;DATABASE=database;mr6Linux联盟
UID=user;PWD=password;]mr6Linux联盟
其中的DRIVER=driver可以在注册表中的mr6Linux联盟
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\mr6Linux联盟
中找到mr6Linux联盟
mr6Linux联盟
ACCESS支持子查询mr6Linux联盟
mr6Linux联盟
ACCESS支持外连接,但不包括完整外部联接,如支持mr6Linux联盟
LEFT JOIN 或 RIGHT JOINmr6Linux联盟
但不支持mr6Linux联盟
FULL OUTER JOIN 或 FULL JOINmr6Linux联盟
mr6Linux联盟
ACCESS中的日期查询mr6Linux联盟
注意:ACCESS中的日期时间分隔符是#而不是引号mr6Linux联盟
Select * From Tab1 Where [Date]>#2002-1-1#;mr6Linux联盟
在DELPHI中我这样用mr6Linux联盟
SQL.Add(Format(mr6Linux联盟
'Select * From Tab1 Where [Date]>#%s#;',mr6Linux联盟
[DateToStr(Date)]));mr6Linux联盟
mr6Linux联盟
ACCESS中的字符串可以用双引号分隔,但SQLSERVER不认,所以为了迁移方便和兼容,mr6Linux联盟
建议用单引号作为字符串分隔符. mr6Linux联盟
mr6Linux联盟
mr6Linux联盟
在SQLSERVER中查询ACCESS数据库中的表mr6Linux联盟
SELECT * FROMmr6Linux联盟
OPENROWSET('Microsoft.Jet.OLEDB.4.0',mr6Linux联盟
'c:\youfile.mdb';'admin';'youpwd',youtabname)mr6Linux联盟
AS a mr6Linux联盟
mr6Linux联盟
mr6Linux联盟
以下SQL语句在ACCESS XP的查询中测试通过mr6Linux联盟
建表:mr6Linux联盟
Create Table Tab1 (mr6Linux联盟
ID Counter,mr6Linux联盟
Name string,mr6Linux联盟
Age integer,mr6Linux联盟
[Date] DateTime);mr6Linux联盟
技巧:mr6Linux联盟
自增字段用 Counter 声明.mr6Linux联盟
字段名为关键字的字段用方括号[]括起来,数字作为字段名也可行. mr6Linux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
