Форум: "Базы";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
ВнизADO Найти похожие ветки
← →
Mute (2002-01-04 13:13) [3]Можно написать свой компонент. Что-то типа:
type
TDCADOQuery = class(TCustomADODataSet)
private
{ Private declarations }
FSQL: TSTrings;
FRowsAffected: Integer;
function GetSQL: TStrings;
procedure SetSQL(const Value: TStrings);
function GetCommandTimeout: integer;
procedure SetCommandTimeout(Value: integer);
procedure Close;
protected
{ Protected declarations }
procedure QueryChanged(Sender: TObject);
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function ExecSQL: Integer; {for TQuery compatibility}
property RowsAffected: Integer read FRowsAffected;
published
{ Published declarations }
property DataSource;
property EnableBCD;
property ParamCheck;
property Parameters;
property Prepared;
property SQL: TStrings read GetSQL write SetSQL;
property CommandTimeout: integer read GetCommandTimeout
write SetCommandTimeout default 30;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c