Re: Better way for reading field values

Dennis
Date: 07/11/04

  • Next message: Bob Dalton: "Re: Using MSSQL 2000 database in MS Access?" 
    Date: Sun, 11 Jul 2004 13:42:05 -0400

    A method of cloning a ADODataset:
    -----------------------------------------
    uses
      adodb, adodb_tlb;

    ...

      fRecordSet: _Recordset;
      i, j, k, l: integer;
      v1: array of Variant;
    begin
      fRecordSet := _RecordSet(adsdata.Recordset);
      j := fRecordSet.Fields.Count;
      Setlength(v1, j);
      for i := 0 to j - 1 do
        if not (VarIsClear(fRecordSet.Fields[i].Value)) then
          v1[i] := fRecordSet.Fields[i].Value;

      fRecordSet.AddNew(EmptyParam, EmptyParam);

      for i := 0 to j - 1 do
        if not (VarIsClear(v1[i])) then
          fRecordSet.Fields[i].Value := v1[i];

      fRecordset.Update(EmptyParam, EmptyParam);

    Dennis Passmore
    Ultimate Software, Inc.

  • Next message: Bob Dalton: "Re: Using MSSQL 2000 database in MS Access?"