Copy dbf table data to bufdataset or memdataset?
lazarus / 16-Databases

----------------------------------------------------------------------
bill0287 · 2013-12-02 19:19

Does anyone have any code samples of how I can copy a dbf table (or a
subset of the fields) into a bufdataset or memdataset for use as a
lookup table?

Thanks
Bill

----------------------------------------------------------------------
howardpc · 2013-12-02 22:48

There may be more elegant ways, but something along these lines ought
to do it:
Code: [Select]
uses
  db, dbf, memds;

procedure PopulateMemDSFromDBF(aDbf: TDbf; aMemDS: TMemDataset);
var
  i: integer;
begin
  if not Assigned(aDbf) or not Assigned(aMemDS) then
    Exit;
  aDbf.Open;
  aMemDS.FieldDefs.Clear;
  for i:= 0 to aDbf.FieldDefs.Count-1 do
    aMemDS.FieldDefs.AddFieldDef.Assign(aDbf.FieldDefs[i]);
  aMemDS.CreateTable;
  aMemDS.Open;
  aMemDS.Edit;
  aDbf.First;
  while not aDbf.EOF do begin
    aMemDS.Insert;
    for i:= 0 to aDbf.FieldCount-1 do
      aMemDS.Fields[i].Value:=aDbf.Fields[i].Value;
    aDbf.Next;
  end;
  aMemDS.Post;
end;