Devart Forums

Code: Select all

(0000FE1D){} [05330E1D] System.@RaiseExcept
(002EE6C6){} [0663F6C6] CRAccess.TCRRecordSet.PutFieldData
(000D9714){} [0642A714] MemData.TData.PutField
(00250ED0){} [065A1ED0] MemDS.TMemDataSet.SetFieldData
(0037E0BC){} [066CF0BC] OLEDBAccess.TOLEDBRecordSet.CheckBCDOverflow
(00250C59){} [065A1C59] MemDS.TMemDataSet.SetFieldData
(0042493F){} [0574593F] Data.DB.TDataSet.SetFieldData
(00250747){} [065A1747] MemDS.TMemDataSet.GetFieldData
(00250CDA){} [065A1CDA] MemDS.TMemDataSet.SetFieldData
(004137F3){} [057347F3] Data.DB.TField.SetData
(00416C31){} [05737C31] Data.DB.TFloatField.SetAsFloat

Code: Select all

  sp := TMSStoredProc.Create(nil);
  sp.Connection := amsconnection;
  sp.StoredProcName := 'dbo.somestoredsp';

Code: Select all

SET NO_BROWSETABLE OFF
exec [tt].[sys].sp_procedure_params_100_rowset N'somestoredsp',1,N'dbo',NULL

Code: Select all

        if FCachedUpdates then
          FilterUpdated;

Code: Select all

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DBAccess, MSAccess, Data.DB, MemDS,
  Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids,
  Vcl.ActnMan, Vcl.ActnColorMaps, System.Actions,
  Vcl.ActnList, Vcl.Menus, Vcl.ExtCtrls, Vcl.ToolWin, Vcl.ActnCtrls, Vcl.ActnMenus;

type
  TForm1 = class(TForm)
    MainQ: TMSQuery;
    MSConnection1: TMSConnection;
    MainQfield: TIntegerField;
    procedure MainQSimpleFilterRecord(DataSet: TDataSet; var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MainQSimpleFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  inherited;
  accept := MainQfield.AsInteger = 0;
end;

end.

Code: Select all

object Form1: TForm1
  Left = 0
  Top = 0
  ClientHeight = 201
  ClientWidth = 304
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object MainQ: TMSQuery
    Connection = MSConnection1
    SQL.Strings = (
      'select 1 as field'
      ''
      '')
    CachedUpdates = True
    Filtered = True
    OnFilterRecord = MainQSimpleFilterRecord
    Active = True
    object MainQfield: TIntegerField
      FieldName = 'field'
    end
  end
  object MSConnection1: TMSConnection
    Database = 'master'
    Authentication = auWindows
    Server = 'localhost'
    Connected = True
    LoginPrompt = False
  end
end