自己构造ADODataSet数据集-CSDN论坛

⋅D2006，使用indy发https请求，并支持TLS1.2 ，卡壳了。。。。。 ⋅无法下载图片 ⋅关于TZCompressionStream的奇怪问题 更多帖子 关注私信空间博客 lzg827 本版专家分：6086 红花 2012年2月 Delphi大版内专家分月排行榜第一 结帖率 97.22%:    这个要求有点特殊，根据Ini文件，构造ADODataSet。
类似下面代码，是否可实现？
下面代码不可用。哪位大哥提供点代码
with ADS do
  begin
    Close;
    Open;
    First;
    for I := I to HisNum do
    begin
      Insert;
      Edit;
      FieldByName('tt').AsString := 'yy';
      Post;
      Next;
    end;

  end;

0 2011-06-16 13:22:08

回复数 11 只看楼主引用举报楼主

⋅预想的pgsql最简说明/速览--有没有高手出来补充一下 ⋅sql server是如何使用同文件组里mdf/ndf的？ ⋅为网站里能下载的所有文件自动生成一个校验码 更多帖子 关注私信空间博客 haitao 本版专家分：46771 黄花 2013年12月 Delphi大版内专家分月排行榜第二 蓝花 2014年4月 Delphi大版内专家分月排行榜第三 2014年3月 Delphi大版内专家分月排行榜第三 2013年5月 Delphi大版内专家分月排行榜第三 2013年1月 Delphi大版内专家分月排行榜第三 2010年11月 Delphi大版内专家分月排行榜第三 2009年12月 Delphi大版内专家分月排行榜第三 2009年11月 Delphi大版内专家分月排行榜第三: 根据Ini文件，构造clientDataSet
这个我常干

0 2011-06-16 13:41:54

只看TA 引用举报 #1 得分 0

⋅散分喽~~~ ⋅升级当爸爸了，散分 ⋅要过年了，给D版忙了一年的兄弟们发点响 :) 更多帖子 关注私信空间博客 hongqi162 本版专家分：83323 进士 2007年总版技术专家分年内排行榜第九 铜牌 2007年7月总版技术专家分月排行榜第三 红花 2007年9月 Oracle大版内专家分月排行榜第一 2007年7月 Oracle大版内专家分月排行榜第一 2007年6月 Oracle大版内专家分月排行榜第一 2008年7月 Delphi大版内专家分月排行榜第一 2008年3月 Delphi大版内专家分月排行榜第一 2008年2月 Delphi大版内专家分月排行榜第一 2007年12月 Delphi大版内专家分月排行榜第一 2007年11月 Delphi大版内专家分月排行榜第一 2007年10月 Delphi大版内专家分月排行榜第一 2007年9月 Delphi大版内专家分月排行榜第一 2007年7月 Delphi大版内专家分月排行榜第一 2007年6月 Delphi大版内专家分月排行榜第一 2007年4月 Delphi大版内专家分月排行榜第一 2007年1月 Delphi大版内专家分月排行榜第一 黄花 2009年5月 Delphi大版内专家分月排行榜第二 2007年8月 Oracle大版内专家分月排行榜第二 2007年4月 Oracle大版内专家分月排行榜第二 2008年1月 Delphi大版内专家分月排行榜第二 2007年8月 Delphi大版内专家分月排行榜第二 2007年5月 Delphi大版内专家分月排行榜第二 2007年3月 Delphi大版内专家分月排行榜第二 2007年2月 Delphi大版内专家分月排行榜第二: 引用 1 楼 sz_haitao 的回复:
根据Ini文件，构造clientDataSet
这个我常干

恩，同意这么用

0 2011-06-16 13:43:24

只看TA 引用举报 #2 得分 0

⋅vs 2008中的treeview选中节点改变图标，原来选中的图标如何恢复 ⋅txtextcontrol控件加水印、存数据库问题 ⋅android如何实现指示灯一闪一闪效果,有类似shape的控件吗 更多帖子 关注私信空间博客 yqdragon 本版专家分：4034 蓝花 2011年7月 Delphi大版内专家分月排行榜第三 2011年6月 Delphi大版内专家分月排行榜第三: up and learn

0 2011-06-16 14:54:48

只看TA 引用举报 #3 得分 0

⋅D2006，使用indy发https请求，并支持TLS1.2 ，卡壳了。。。。。 ⋅无法下载图片 ⋅关于TZCompressionStream的奇怪问题 更多帖子 关注私信空间博客 lzg827 本版专家分：6086 红花 2012年2月 Delphi大版内专家分月排行榜第一: 引用楼主 lzg827 的回复:
这个要求有点特殊，根据Ini文件，构造ADODataSet。
类似下面代码，是否可实现？
下面代码不可用。哪位大哥提供点代码
with ADS do
  begin
  Close;
  Open;
  First;
  for I := I to HisNum do
  begin
  Insert;
  Edit;
  FieldByName('tt').AsStri……

老大，丢段代码给我啊

0 2011-06-16 15:18:52

只看TA 引用举报 #4    得分 0

⋅散分喽~~~ ⋅升级当爸爸了，散分 ⋅要过年了，给D版忙了一年的兄弟们发点响 :) 更多帖子 关注私信空间博客 hongqi162 本版专家分：83323 进士 2007年总版技术专家分年内排行榜第九 铜牌 2007年7月总版技术专家分月排行榜第三 红花 2007年9月 Oracle大版内专家分月排行榜第一 2007年7月 Oracle大版内专家分月排行榜第一 2007年6月 Oracle大版内专家分月排行榜第一 2008年7月 Delphi大版内专家分月排行榜第一 2008年3月 Delphi大版内专家分月排行榜第一 2008年2月 Delphi大版内专家分月排行榜第一 2007年12月 Delphi大版内专家分月排行榜第一 2007年11月 Delphi大版内专家分月排行榜第一 2007年10月 Delphi大版内专家分月排行榜第一 2007年9月 Delphi大版内专家分月排行榜第一 2007年7月 Delphi大版内专家分月排行榜第一 2007年6月 Delphi大版内专家分月排行榜第一 2007年4月 Delphi大版内专家分月排行榜第一 2007年1月 Delphi大版内专家分月排行榜第一 黄花 2009年5月 Delphi大版内专家分月排行榜第二 2007年8月 Oracle大版内专家分月排行榜第二 2007年4月 Oracle大版内专家分月排行榜第二 2008年1月 Delphi大版内专家分月排行榜第二 2007年8月 Delphi大版内专家分月排行榜第二 2007年5月 Delphi大版内专家分月排行榜第二 2007年3月 Delphi大版内专家分月排行榜第二 2007年2月 Delphi大版内专家分月排行榜第二: 什么样的需求让你决定自己构造一个adodataset？

如果简单的当一个本地的内存表适用，用clientdataset

0 2011-06-16 15:50:07

只看TA 引用举报 #5 得分 0

⋅D2006，使用indy发https请求，并支持TLS1.2 ，卡壳了。。。。。 ⋅无法下载图片 ⋅关于TZCompressionStream的奇怪问题 更多帖子 关注私信空间博客 lzg827 本版专家分：6086 红花 2012年2月 Delphi大版内专家分月排行榜第一: 引用 5 楼 hongqi162 的回复:
什么样的需求让你决定自己构造一个adodataset？

如果简单的当一个本地的内存表适用，用clientdataset

clientdataset也行啊，代码，代码啊。
万分感谢

0 2011-06-16 15:53:44

只看TA 引用举报 #6 得分 0

⋅谁能破解并读取传奇文件Dlgz.Pak的密码 ⋅只是分享一个小程序delphi7编写的，功能就是当前加一个数等于一个新时间 ⋅C#编写两个服务，A服务程序实时检测B程序，防止B服务被恶意停止 A服务实时检测B服务，如果B服务停止，就启动B服务当然A服务也必须是永久启动的 更多帖子 关注私信空间博客 山东蓝鸟贵薪 本版专家分：14442 黄花 2012年5月 Delphi大版内专家分月排行榜第二 蓝花 2012年4月 Delphi大版内专家分月排行榜第三 2011年8月 Delphi大版内专家分月排行榜第三: 引用 1 楼 sz_haitao 的回复:
根据Ini文件，构造clientDataSet
这个我常干

同意,这个方法方便"程序的移植"

0 2011-06-16 15:57:19

只看TA 引用举报 #7 得分 0

⋅D2006，使用indy发https请求，并支持TLS1.2 ，卡壳了。。。。。 ⋅无法下载图片 ⋅关于TZCompressionStream的奇怪问题 更多帖子 关注私信空间博客 lzg827 本版专家分：6086 红花 2012年2月 Delphi大版内专家分月排行榜第一: 引用 7 楼 sgzhou12345 的回复:
引用 1 楼 sz_haitao 的回复:
根据Ini文件，构造clientDataSet
这个我常干

同意,这个方法方便"程序的移植"

老大们，怎么用，代码，代码啊。
组团忽悠我啊

0 2011-06-16 16:00:11

只看TA 引用举报 #8 得分 0

⋅散分喽~~~ ⋅升级当爸爸了，散分 ⋅要过年了，给D版忙了一年的兄弟们发点响 :) 更多帖子 关注私信空间博客 hongqi162 本版专家分：83323 进士 2007年总版技术专家分年内排行榜第九 铜牌 2007年7月总版技术专家分月排行榜第三 红花 2007年9月 Oracle大版内专家分月排行榜第一 2007年7月 Oracle大版内专家分月排行榜第一 2007年6月 Oracle大版内专家分月排行榜第一 2008年7月 Delphi大版内专家分月排行榜第一 2008年3月 Delphi大版内专家分月排行榜第一 2008年2月 Delphi大版内专家分月排行榜第一 2007年12月 Delphi大版内专家分月排行榜第一 2007年11月 Delphi大版内专家分月排行榜第一 2007年10月 Delphi大版内专家分月排行榜第一 2007年9月 Delphi大版内专家分月排行榜第一 2007年7月 Delphi大版内专家分月排行榜第一 2007年6月 Delphi大版内专家分月排行榜第一 2007年4月 Delphi大版内专家分月排行榜第一 2007年1月 Delphi大版内专家分月排行榜第一 黄花 2009年5月 Delphi大版内专家分月排行榜第二 2007年8月 Oracle大版内专家分月排行榜第二 2007年4月 Oracle大版内专家分月排行榜第二 2008年1月 Delphi大版内专家分月排行榜第二 2007年8月 Delphi大版内专家分月排行榜第二 2007年5月 Delphi大版内专家分月排行榜第二 2007年3月 Delphi大版内专家分月排行榜第二 2007年2月 Delphi大版内专家分月排行榜第二

uses DB, DBClient,MidasLib;

   







var

  ads: TClientDataSet;

begin

  With ads do begin

    FieldDefs.Add('bDelete', ftBoolean);

    FieldDefs.Add('sSource', ftString, 10);

    FieldDefs.Add('iSection', ftInteger);

    FieldDefs.Add('iOrder', ftInteger);

    FieldDefs.Add('sBranch', ftString, 10);

    FieldDefs.Add('sPulseCode', ftString, 10);

    FieldDefs.Add('sCode', ftString, 10);

    FieldDefs.Add('dtWorkDate', ftDate);

    FieldDefs.Add('iWorkWeek', ftInteger);

    FieldDefs.Add('sName', ftString, 50);

    CreateDataSet;

    LogChanges := False;

    Open;

  end;

end;

1 2011-06-16 16:03:27

只看TA 引用举报 #9 得分 50

⋅散分喽~~~ ⋅升级当爸爸了，散分 ⋅要过年了，给D版忙了一年的兄弟们发点响 :) 更多帖子 关注私信空间博客 hongqi162 本版专家分：83323 进士 2007年总版技术专家分年内排行榜第九 铜牌 2007年7月总版技术专家分月排行榜第三 红花 2007年9月 Oracle大版内专家分月排行榜第一 2007年7月 Oracle大版内专家分月排行榜第一 2007年6月 Oracle大版内专家分月排行榜第一 2008年7月 Delphi大版内专家分月排行榜第一 2008年3月 Delphi大版内专家分月排行榜第一 2008年2月 Delphi大版内专家分月排行榜第一 2007年12月 Delphi大版内专家分月排行榜第一 2007年11月 Delphi大版内专家分月排行榜第一 2007年10月 Delphi大版内专家分月排行榜第一 2007年9月 Delphi大版内专家分月排行榜第一 2007年7月 Delphi大版内专家分月排行榜第一 2007年6月 Delphi大版内专家分月排行榜第一 2007年4月 Delphi大版内专家分月排行榜第一 2007年1月 Delphi大版内专家分月排行榜第一 黄花 2009年5月 Delphi大版内专家分月排行榜第二 2007年8月 Oracle大版内专家分月排行榜第二 2007年4月 Oracle大版内专家分月排行榜第二 2008年1月 Delphi大版内专家分月排行榜第二 2007年8月 Delphi大版内专家分月排行榜第二 2007年5月 Delphi大版内专家分月排行榜第二 2007年3月 Delphi大版内专家分月排行榜第二 2007年2月 Delphi大版内专家分月排行榜第二: 插入数据
ads.AppendRecord([..,..,..,....]);

0 2011-06-16 16:05:22

只看TA 引用举报 #10 得分 0

⋅D2006，使用indy发https请求，并支持TLS1.2 ，卡壳了。。。。。 ⋅无法下载图片 ⋅关于TZCompressionStream的奇怪问题 更多帖子 关注私信空间博客 lzg827 本版专家分：6086 红花 2012年2月 Delphi大版内专家分月排行榜第一: 引用 9 楼 hongqi162 的回复:
Delphi(Pascal) code
uses DB, DBClient,MidasLib;


var
  ads: TClientDataSet;
begin
  With ads do begin
    FieldDefs.Add('bDelete', ftBoolean);
    FieldDefs.Add('sSource', ftString, 1……

你建议我用clientdataset的时候，我立刻就解决了。
高手点拨，一点就通啊。
依然非常感谢，这几天忙，今天才登上来看到代码。
另外我发现clientdataset用CreateDataSet创建本地数据集，貌似是一次性的。
如果要增加字段，只有在新的clientdataset再来一次。如果clear后再create，貌似无效。

0 2011-06-18 17:24:28

只看TA 引用举报 #11    得分 0

自己构造ADODataSet数据集 [问题点数：50分，结帖人lzg827]