Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Frequently Asked Questions |
{ The following is an example of looping through the TFields and copying data from one TDataset descendant to another } SourceDataSet:=TMyDataSet.Create(Nil); with SourceDataSet do begin DatabaseName:='SQLServer'; TableName:='CUSTOMER'; Active:=True; end; DestDataSet:=TDBISAMTable.Create(Nil); with DestDataSet do begin DatabaseName:='c:\testdb'; TableName:='customer'; Active:=True; end; SourceDataSet.First; while not SourceDataSet.EOF do begin DestDataSet.Insert; for I:=0 to SourceDataSet.FieldCount-1 do DestDataSet.FieldByName( SourceDataSet.Fields[I].FieldName). Assign(SourceDataSet.Fields[I]); DestDataSet.Post; SourceDataSet.Next; end; SourceDataSet.Close; DestDataSet.Close; { This example assumes that the source and destination dataset field names will be the same and it does not deal with copying the structure or indexes, it simply copies the data }
This web page was last updated on Wednesday, January 5, 2022 at 07:36 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |