动态创建与压缩Access数据库

一、通过OLE方式创建
   相信各位都用通过OLE方式访问Word、Excel文件的经历，具体我不说太多，直接把具体代码写出来就完了
   在引用部分加入：
   uses ComObj;
   实现部分：
   procedure TFormOffice.BitBtn1Click(Sender: TObject);
   var
     CreateAccess:OleVariant;
   begin
     CreateAccess:=CreateOleObject('ADOX.Catalog');
     CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/Aceco.mdb');
   end;

   说明：
     1、在C:/下创建Aceco.mdb；
     2、是Access2000格式，用Access97打不开；
     3、系统需安装MDAC，这是好消息，客户不需安装Access也可以

二、通过DBEngine创建
   各位是否还记得安装Delphi的时候，如果你选择自定义安装，会有很多安装选项，
让你选择Access97或Access2000，还有MDAC等，问题就在这里！Delphi5.0中早就封装
了现成的类，只是大家都没有注意而已它位于：
   $Delphi5/Imports
   目录下！
   其中有DAO97.DCU文件，它是通过DAO350.DLL来完成的，其中的定义部分和DAO350.DLL如出一辙！
OK，到现在，所有的一切都明白了(可惜我花了一天时间！)。那么具体实现起来就太方便了，具
体过程如下：
   在引用部分加入：
   uses DAO97;
   实现部分：
   procedure TFormOffice.BitBtn4Click(Sender: TObject);
   var
     Engine:DBEngine;
   begin
     Engine:=CoDBEngine.Create;
     Engine.CreateDatabase('c:/NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);
   end;

   说明：
       1、在C:/下创建NewAccess.mdb；
       2、语言国家是简体中文；
       3、压缩整理数据库用Engine.CompactDatabase('c:/invoice.mdb','c:/God.mdb','',0,'');
就是将c:/invoice.mdb压缩整理成c:/God.mdb，剩下的只是将c:/invoice.mdb删除
(DeleteFile('c:/invoice.mdb');)，然后将c:/God.mdb重新命名(RenameFile('c:/God.mdb',
'c:/invoice.mdb');)即可。

三、通过Access97创建，然后拷贝
四、通过ODBC的API函数创建

补充：
   1、通过OLE方式创建时如果是Access97，那么可能是CreateAccess.Create
('Provider=Microsoft.Jet.OLEDB.3.5.1;Data Source=c:/Aceco.mdb');

   2、关于CreateDatabase中国家的设置：
      Module LanguageConstants; // DAO predefined constants.
       dbLangArabic = ;LANGID=0x0401;CP=1256;COUNTRY=0;
       dbLangCzech = ;LANGID=0x0405;CP=1250;COUNTRY=0;
       dbLangDutch = ;LANGID=0x0413;CP=1252;COUNTRY=0;
       dbLangGeneral = ;LANGID=0x0409;CP=1252;COUNTRY=0;
       dbLangGreek = ;LANGID=0x0408;CP=1253;COUNTRY=0;
       dbLangHebrew = ;LANGID=0x040D;CP=1255;COUNTRY=0;
       dbLangHungarian = ;LANGID=0x040E;CP=1250;COUNTRY=0;
       dbLangIcelandic = ;LANGID=0x040F;CP=1252;COUNTRY=0;
       dbLangNordic = ;LANGID=0x041D;CP=1252;COUNTRY=0;
       dbLangNorwDan = ;LANGID=0x0414;CP=1252;COUNTRY=0;
       dbLangPolish = ;LANGID=0x0415;CP=1250;COUNTRY=0;
       dbLangCyrillic = ;LANGID=0x0419;CP=1251;COUNTRY=0;
       dbLangSpanish = ;LANGID=0x040A;CP=1252;COUNTRY=0;
       dbLangSwedFin = ;LANGID=0x040B;CP=1252;COUNTRY=0;
       dbLangTurkish = ;LANGID=0x041F;CP=1254;COUNTRY=0;
       dbLangJapanese = ;LANGID=0x0411;CP=932;COUNTRY=0;
       dbLangChineseSimplified = ;LANGID=0x0804;CP=936;COUNTRY=0;
       dbLangChineseTraditional = ;LANGID=0x0404;CP=950;COUNTRY=0;
       dbLangKorean = ;LANGID=0x0412;CP=949;COUNTRY=0;
       dbLangThai = ;LANGID=0x041E;CP=874;COUNTRY=0;
       dbLangSlovenian = ;LANGID=0x0424;CP=1250;COUNTRY=0;

   3、关于CreateDatabase中数据库版本信息
      Enum DatabaseTypeEnum;
       dbVersion10 = 1;
       dbEncrypt = 2;
       dbDecrypt = 4;
       dbVersion11 = 8;
       dbVersion20 = 16;
       dbVersion30 = 32;
来自 ：avant 时间 ：2001-07-09 19:05:00
procedure TDataModule1.CreateNewDatabase(DatabaseFileName: string);
var cat:OleVariant;
begin
if FileExists(DatabaseFileName) then
begin
if MessageBox(Application.Handle,PChar('Database ' + DatabaseFileName + ' has existed!' + #13#10
+ 'Delete this database and create a new database ?'), 'Database Exists',
MB_YESNO + MB_ICONWARNING + MB_DEFBUTTON2) = mrNo then
exit;
if not DeleteFile(DatabaseFileName) then
begin
MessageBox(Application.Handle,
PChar('Cannot delete database ' + DatabaseFileName),
'Delete Database Error!',MB_OK + MB_ICONERROR);
exit;
end;
end;
cat:=CreateOleObject('ADOX.Catalog');
cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DatabaseFileName);
if ConnectDatabase(DatabaseFileName) then
begin
adoquryClass.Close;
adoquryClass.SQL.Text := 'Create Table FaqClass ' +
'(' +
'ClassID INT not null,' +
'ClassTitle char(100) not null,' +
'ParentClassID INT not null,' +
'ClassType TINYINT DEFAULT 0' +
')';
adoquryClass.ExecSQL;
adoquryClass.Close;
adoquryClass.SQL.Text := 'Create UNIQUE Index ClassIDIndex ON FaqClass (ClassID)';
adoquryClass.ExecSQL;
adoquryClass.Close;
adoquryClass.SQL.Text := 'Create Index ClassTitleIndex ON FaqClass (ClassTitle)';
adoquryClass.ExecSQL;
adoquryClass.Close;
adoquryClass.SQL.Text := 'Create Index ParentClassIDIndex ON FaqClass (ParentClassID)';
adoquryClass.ExecSQL;
adoquryClass.Close;
adoquryClass.SQL.Text := 'Create Index ClassTypeIndex ON FaqClass (ClassType)';
adoquryClass.ExecSQL;
adoquryMemo.Close;
adoquryMemo.SQL.Text := 'Create Table FaqMemo' +
'(' +
'MemoID INT not null,' +
'ParentClassID INT not null,' +
'MemoTitle char(100) not null,' +
'MemoText TEXT,' +
'MemoPublic BIT DEFAULT 0,' + //缺省是不公开
'MemoLastModifyTime DATETIME' +
')';
adoquryMemo.ExecSQL;
adoquryMemo.Close;
adoquryMemo.SQL.Text := 'Create UNIQUE Index MemoIDIndex ON FaqMemo (MemoID)';
adoquryMemo.ExecSQL;
adoquryMemo.Close;
adoquryMemo.SQL.Text := 'Create Index ParentClassIDIndex ON FaqMemo (ParentClassID)';
adoquryMemo.ExecSQL;
adoquryMemo.Close;
adoquryMemo.SQL.Text := 'Create Index MemoTitleIndex ON FaqMemo (MemoTitle)';
adoquryMemo.ExecSQL;
adoquryMemo.Close;
adoquryMemo.SQL.Text := 'Create Index MemoPublicIndex ON FaqMemo (MemoPublic)';
adoquryMemo.ExecSQL;
adoquryMemo.Close;
adoquryMemo.SQL.Text := 'Create Index MemoLastModifyTimeIndex ON FaqMemo (MemoLastModifyTime)';
adoquryMemo.ExecSQL;
end;
end;

 
 
日期：2004年12月11日 作者： 人气： 查看:[大字体 中字体 小字体] 
 
问题
dq(地区)  xm（姓名）
A         张三
A         李四
B         王五
B         王六
B         王七
C         王九

我想做一个视图转换成
dq           xm
A           张三，李四
B           王五，王六，王七
C           王九

解决
在ACCESS模块里写函数
基本程序如下
Public Function return_sl(dq As String) As String  'dQ为社区名称
Dim sr As String  '声明一个整型变量
Set db = CurrentDb() '指定数据库为当前数据库
Set recname = db.OpenRecordset("select * from 表A where sqmc='" + dq + "'") '将对应地区“XM”表读入记录集
Set strname = recname![mjxm] '指定记录集“姓名字段”

Do Until recname.EOF
sr = sr + " " + strname
recname.MoveNext
Loop

return_sl = sr
recname.Close
End Function

然后在SELECT语句直接调用
select dq,return_sl(dq) as xm from 表A GROUP BY DQ
就行了