Readygo技术搜索引擎 网络搜索 efish 2008-1-17 7:16:56

三层中怎样在Client端把SELECT的结果保存成本地表？

楼主nightroad（一年）2002-10-22 11:55:34 在 Delphi / VCL组件开发及应用 提问

我在ClientdataSet.commandtext中加入一了以下语句"select   *   into   abc   from   cba",生成的表abc好像不在本地,请问我怎样把Select的结果保存在本地？？？  
   
  问题点数：0、回复次数：11Top

1 楼chechy（www.qdocuments.net）回复于 2002-10-22 12:10:00 得分 0

clientdataset.savetofile("a.cds");Top

2 楼outer2000（天外流星）回复于 2002-10-22 12:12:14 得分 0

upTop

3 楼long102（龙102）回复于 2002-10-22 12:37:21 得分 0

SaveToFile(const   FileName:   string   =   "";   Format   TDataPacketFormat=dfBinary);  
  格式:(dfBinary)   or   XML   (dfXML),   or   UTF8-based   XML   (dfXMLUTF8).  
   
  clientdataset.savetofile("zx.lon",xml);就可存成xml  
  调入用clientdataset.loadfromfile("zx.lon");  
  Top

4 楼blazingfire（烈焰)(对.net极度憎恨中....）回复于 2002-10-22 12:53:51 得分 0

试试  
  select   *   into   d:\abc   from   cbaTop

5 楼nightroad（一年）回复于 2002-10-22 13:19:29 得分 0

请问能不能生成*.db文件？Top

6 楼ddvboy（ddv）（我心憔悴）回复于 2002-10-22 14:15:29 得分 0

可以的!Top

7 楼nightroad（一年）回复于 2002-10-22 14:35:52 得分 0

怎么做呢？Top

8 楼nightroad（一年）回复于 2002-10-22 16:26:24 得分 0

请问怎么生成*.db文件呢？帮助上说能生成binary或者XML型式的文件，到底能不能生成TQuery   or   TTable   能读的文件？没有人知道吗？！！！！！！！！！！Top

9 楼zhiwuyang602（寇仲）回复于 2002-10-22 19:17:42 得分 0

upTop

10 楼blazingfire（烈焰)(对.net极度憎恨中....）回复于 2002-10-22 20:45:50 得分 0

我有一个办法，试过了，可以。存在一个Paradox表  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      i:integer;  
  begin  
      Table1.Close;  
      Table1.TableType:=ttParadox;  
      Table1.DatabaseName:="D:\";  
      Table1.TableName:="1.db";  
      Table1.FieldDefs.Clear;  
      for   i:=0   to   Table1.FieldCount-1   do  
          Table1.Fields.Free;  
      for   i:=0   to   ClientDataSet1.FieldCount-1   do  
          Table1.FieldDefs.Add(ClientDataSet1.FieldDefs.Name,  
                                                    ClientDataSet1.FieldDefs.DataType,  
                                                    ClientDataSet1.FieldDefs.Size,  
                                                    False);  
      //加入ClientDataSet中的字段信息到Table中，用来创建表  
      Table1.CreateTable;//创建表  
      Table1.Open;  
      ClientDataSet1.First;  
      while   not   ClientDataSet1.Eof   do  
      begin  
          Table1.Append;  
          for   i:=0   to   ClientDataSet1.FieldCount-1   do  
              Table1.Fields.AsString:=ClientDataSet1.Fields.AsString;  
          ClientDataSet1.Next;  
          Table1.Post;  
      end;//导记录  
  end;Top

11 楼tantengfei（苦口苦乐）回复于 2002-10-24 19:29:26 得分 0

upTop