Delphi里动态创建Access的交叉表视图

本文整理自网络，侵删。

 
const
  dbUseJet = $00000002;
var
  connection: OleVariant;
  DBEngine : OleVariant;
  DataBase : OleVariant;
  QueryDef : OleVariant;
  accessfile: string;
  sql: string;
begin
  accessfile := 'C:/db1.mdb';

  connection := CreateOleObject('Access.Application');
  DBEngine := connection.DBEngine;
  DBEngine.DefaultType := DBUseJet;
  DataBase := DBEngine.OpenDatabase(accessfile);
  sql := ' TRANSFORM first(FieldValue) '
      + ' SELECT ContactID FROM [SELECT a.FieldName, b.ContactID, b.FieldID, '
      + ' b.FieldValue FROM CustomField AS a, ContactFieldValue AS b WHERE '
      + ' a.RecordID = b.FieldID]. AS TmpTable GROUP BY ContactID PIVOT FieldName';
  QueryDef := Database.CreateQueryDef('V_CustomValue',sql);    
  connection.Close();
end;
 

相关阅读 >>

Delphi获取程序所在目录

Delphi 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err

Delphi post登陆Delphi盒子论坛源码

Delphi 关于rs485总线通信协议开发注意事项

Delphi 系统appdata local 路径

Delphi文本数据导入数据库的方法

Delphi-idhttp-utf-8编码乱码解决

Delphi datasnap 的http 调用返回json

Delphi 如何在webservice中获取客户端的ip地址

delph 自带url编码函数 tnetencoding

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi里动态创建Access的交叉表视图