Example

Connect MtxDataSet to Table1 and read numeric values from two fields.

procedure TForm1.FormCreate(Sender: TObject); begin MtxDataSet.Dataset := Table1; MtxDataSet.VecColumns.Clear; with MtxDataset.VecColumns.Add do begin FieldName := 'ShipDate'; ReadWriteMode := wmColumn; end; MtxDataSet.ReadDataset; end;

void __fastcall TForm1::FormCreate(TObject *Sender) { MtxDataSet->Dataset = Table1; MtxDataSet->VecColumns->Clear(); TVecColumn *col; col = MtxDataSet->VecColumns->Add(); col->FieldName = "ShipDate"; col->ReadWriteMode = wmColumn; MtxDataSet->ReadDataset(false); }