忘性大，关于ACCESS的一点点。

function compressDB(Afile:string):boolean; // var   DaoVar: OLEVariant; begin   try   DaoVar := CreateOleObject('dao.DBEngine.36');   if FileExists('db.tmp') then deletefile('db.tmp'); //  DaoVar.CompactDatabase(afile,'db.tmp');    //压缩无密码的数据库   //压缩有密码的数据库。注意：密码不能为空   DaoVar.CompactDatabase(afile,'db.tmp',';pwd='+SDefDataBasePwd+'',0,';pwd='+SDefDataBasePwd+'');   if deletefile(afile) then RenameFile('db.tmp',Afile);   result:=true;   except     result:=False;   end; end; 

{导出 Excel 表格} procedure GenXlsFile(sPRG:TProgressBar;SDBGrid:TDBGrid;sDataSet:TADOQuery;Fn:String;Vis:Boolean); //uses ComObj; var   ExcelApp: Variant;   i,j:integer; begin   try     ExcelApp := CreateOleObject('Excel.Application');   except     application.MessageBox('系统中的MS Excel软件没有安装或安装不正确！','错误',MB_ICONERROR+MB_OK);     exit;   end;   ExcelApp.visible:=vis;   try     excelapp.caption:='应用程序调用 Microsoft Excel';     ExcelApp.WorkBooks.Add;     //写入标题行     for i:=1 to sDBGrid.FieldCount do     begin       ExcelApp.Cells[1,i].Value:=sDBGrid.Columns[i-1].Title.Caption ;     end;     sprg.Max:=sDataSet.RecordCount;   //插入进度条     sDataSet.First;     i:=2;     while not sDataSet.Eof do     begin        for j:=0 to sDataSet.Fields.Count-1 do        begin          ExcelApp.Cells[i,j+1].Value :=sDataSet.Fields[j].AsString;        end;        sDataSet.Next;        i:=i+1;        sprg.StepBy(1);        //进度条步长     end;     sDataSet.First;     sPrg.Position :=0;        //     if application.MessageBox('数据导出完成.确认保存吗？','信息提示',MB_ICONQUESTION+MB_YESNO+MB_DEFBUTTON1+MB_SYSTEMMODAL)=IDYES then     begin       if not ExcelApp.ActiveWorkBook.Saved then          ExcelApp.ActiveWorkBook.SaveAs(fn);     end     else begin       ExcelApp.ActiveWorkBook.Saved := True; //不保存     end;   finally     excelapp.quit; //退出EXCEL软件   end; end;

忘性大，关于ACCESS的一点点。相关推荐

android.265g.com.,每日推荐：忘性大的人必备安卓软件《365日历》
今天为大家推荐一款很实用的日历软件,这款日历应用真的是太强大了,什么记事,提醒,通通都有,这1款软件省去很多麻烦,推荐! 365日历装机必备强势推荐日历产品.为用户保存超过2000万条日程.每日服务器 ...
access 查找工龄大于30_同济大学大学计算机access作业答案
同济大学大机access作业有一个数据库Test-5.mdb,其中有表Teachers和Students,他们的结构如下表所示,请写出有关的SQL命令. 点击下载Test-5.mdb数据库第一题: ...
DPDK如何释放大页内存（巨页内存hugepage）
按照官方文档说的使用 int rte_eal_init(int argc, char **argv); 使用上面初始化的EAL应该使用下面的cleanup函数释放其初始化的资源 int rte_ea ...
清华数据女神评选结果：第一竟然是叉院大神...？
在刚刚过去的3月7日女生节,清华学大数据的男生们发起了一个数据女神评选活动,希望在大家的参与下评选出数据女神,送上女生节的礼物. 今天是公布评选结果的时刻: 恭喜来自交叉信息研究院的陈立杰和来自美术学 ...
vueTable大数据展示优化
背景大数据项目根据用户输入代码查询数据,用户的代码不可控(比如select from db limit 5000),有可能一页需求要求展示100行5000列数据.由于是用户代码实时查询的数据,后端不 ...
FW：卷积神经网络大总结_拔剑-浆糊的传说_新浪博客
http://blog.csdn.net/zyazky/article/details/53108346 卷积神经网络大总结标签: 深度学习卷积神经网络 2016-11-10 00:03 303人阅 ...
2022智能制造世界与中国十大科技进展内容小结
2022智能制造世界与中国十大科技进展内容小结 1. 全断面隧道掘进装备行业工业互联网平台 2. 大型复杂构件机器人原位高效高质量铣削加工技术及装备 3. 西门子SNC-原生数字化工厂 4. 亚马逊 ...
dw读取access中的图片_ACCESS读取并显示图片？
展开全部 ACCESS是可以存储图片的.62616964757a686964616fe58685e5aeb931333332393464你只要将数据表的某个字段的数据类型设置为"OLE对象& ...
关于大模型实践的一些总结
随着近期ChatGPT的迅速出圈,加速了的大模型时代变革.以Transformer.MOE结构为代表的大模型,传统的单机单卡训练模式肯定不能满足上千亿参数的模型训练,这时候我们就需要解决内存墙和通信墙 ...

忘性大，关于ACCESS的一点点。

忘性大，关于ACCESS的一点点。相关推荐

最新文章

热门文章