自己构造ADODataSet数据集

lzg827 2011-06-16 01:22:08
这个要求有点特殊,根据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;
...全文
198 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
lzg827 2011-06-18
  • 打赏
  • 举报
回复
[Quote=引用 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……
[/Quote]

你建议我用clientdataset的时候,我立刻就解决了。
高手点拨,一点就通啊。
依然非常感谢,这几天忙,今天才登上来看到代码。
另外我发现clientdataset用CreateDataSet创建本地数据集,貌似是一次性的。
如果要增加字段,只有在新的clientdataset再来一次。 如果clear后再create,貌似无效。
hongqi162 2011-06-16
  • 打赏
  • 举报
回复
插入数据
ads.AppendRecord([..,..,..,....]);
hongqi162 2011-06-16
  • 打赏
  • 举报
回复
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;
lzg827 2011-06-16
  • 打赏
  • 举报
回复
[Quote=引用 7 楼 sgzhou12345 的回复:]
引用 1 楼 sz_haitao 的回复:
根据Ini文件,构造clientDataSet
这个我常干

同意,这个方法方便"程序的移植"
[/Quote]
老大们,怎么用,代码,代码啊。
组团忽悠我啊
山东蓝鸟贵薪 2011-06-16
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 sz_haitao 的回复:]
根据Ini文件,构造clientDataSet
这个我常干
[/Quote]
同意,这个方法方便"程序的移植"
lzg827 2011-06-16
  • 打赏
  • 举报
回复
[Quote=引用 5 楼 hongqi162 的回复:]
什么样的需求让你决定自己构造一个adodataset?

如果简单的当一个本地的内存表适用,用clientdataset
[/Quote]

clientdataset也行啊,代码,代码啊。
万分感谢
hongqi162 2011-06-16
  • 打赏
  • 举报
回复
什么样的需求让你决定自己构造一个adodataset?

如果简单的当一个本地的内存表适用,用clientdataset
lzg827 2011-06-16
  • 打赏
  • 举报
回复
[Quote=引用楼主 lzg827 的回复:]
这个要求有点特殊,根据Ini文件,构造ADODataSet。
类似下面代码,是否可实现?
下面代码不可用。哪位大哥提供点代码
with ADS do
begin
Close;
Open;
First;
for I := I to HisNum do
begin
Insert;
Edit;
FieldByName('tt').AsStri……
[/Quote]

老大,丢段代码给我啊
yqdragon 2011-06-16
  • 打赏
  • 举报
回复
up and learn
hongqi162 2011-06-16
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 sz_haitao 的回复:]
根据Ini文件,构造clientDataSet
这个我常干
[/Quote]


恩,同意这么用
haitao 2011-06-16
  • 打赏
  • 举报
回复
根据Ini文件,构造clientDataSet
这个我常干

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧