📄 adodb_tlb.pas
字号:
function _NewEnum: IUnknown; dispid -4;
procedure Refresh; dispid 2;
end;
// *********************************************************************//
// Interface: _ADO
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000534-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
_ADO = interface(IDispatch)
['{00000534-0000-0010-8000-00AA006D2EA4}']
function Get_Properties: Properties; safecall;
property Properties: Properties read Get_Properties;
end;
// *********************************************************************//
// DispIntf: _ADODisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000534-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
_ADODisp = dispinterface
['{00000534-0000-0010-8000-00AA006D2EA4}']
property Properties: Properties readonly dispid 500;
end;
// *********************************************************************//
// Interface: Properties
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000504-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
Properties = interface(_Collection)
['{00000504-0000-0010-8000-00AA006D2EA4}']
function Get_Item(Index: OleVariant): Property_; safecall;
property Item[Index: OleVariant]: Property_ read Get_Item; default;
end;
// *********************************************************************//
// DispIntf: PropertiesDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000504-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
PropertiesDisp = dispinterface
['{00000504-0000-0010-8000-00AA006D2EA4}']
property Item[Index: OleVariant]: Property_ readonly dispid 0; default;
property Count: Integer readonly dispid 1;
function _NewEnum: IUnknown; dispid -4;
procedure Refresh; dispid 2;
end;
// *********************************************************************//
// Interface: Property_
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000503-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
Property_ = interface(IDispatch)
['{00000503-0000-0010-8000-00AA006D2EA4}']
function Get_Value: OleVariant; safecall;
procedure Set_Value(pval: OleVariant); safecall;
function Get_Name: WideString; safecall;
function Get_Type_: DataTypeEnum; safecall;
function Get_Attributes: Integer; safecall;
procedure Set_Attributes(plAttributes: Integer); safecall;
property Value: OleVariant read Get_Value write Set_Value;
property Name: WideString read Get_Name;
property Type_: DataTypeEnum read Get_Type_;
property Attributes: Integer read Get_Attributes;
end;
// *********************************************************************//
// DispIntf: Property_Disp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000503-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
Property_Disp = dispinterface
['{00000503-0000-0010-8000-00AA006D2EA4}']
property Value: OleVariant dispid 0;
property Name: WideString readonly dispid 1610743810;
property Type_: DataTypeEnum readonly dispid 1610743811;
property Attributes: Integer readonly dispid 1610743812;
end;
// *********************************************************************//
// Interface: Error
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000500-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
Error = interface(IDispatch)
['{00000500-0000-0010-8000-00AA006D2EA4}']
function Get_Number: Integer; safecall;
function Get_Source: WideString; safecall;
function Get_Description: WideString; safecall;
function Get_HelpFile: WideString; safecall;
function Get_HelpContext: Integer; safecall;
function Get_SQLState: WideString; safecall;
function Get_NativeError: Integer; safecall;
property Number: Integer read Get_Number;
property Source: WideString read Get_Source;
property Description: WideString read Get_Description;
property HelpFile: WideString read Get_HelpFile;
property HelpContext: Integer read Get_HelpContext;
property SQLState: WideString read Get_SQLState;
property NativeError: Integer read Get_NativeError;
end;
// *********************************************************************//
// DispIntf: ErrorDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000500-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
ErrorDisp = dispinterface
['{00000500-0000-0010-8000-00AA006D2EA4}']
property Number: Integer readonly dispid 1;
property Source: WideString readonly dispid 2;
property Description: WideString readonly dispid 0;
property HelpFile: WideString readonly dispid 3;
property HelpContext: Integer readonly dispid 4;
property SQLState: WideString readonly dispid 5;
property NativeError: Integer readonly dispid 6;
end;
// *********************************************************************//
// Interface: Errors
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000501-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
Errors = interface(_Collection)
['{00000501-0000-0010-8000-00AA006D2EA4}']
function Get_Item(Index: OleVariant): Error; safecall;
procedure Clear; safecall;
property Item[Index: OleVariant]: Error read Get_Item; default;
end;
// *********************************************************************//
// DispIntf: ErrorsDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000501-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
ErrorsDisp = dispinterface
['{00000501-0000-0010-8000-00AA006D2EA4}']
property Item[Index: OleVariant]: Error readonly dispid 0; default;
procedure Clear; dispid 1610809345;
property Count: Integer readonly dispid 1;
function _NewEnum: IUnknown; dispid -4;
procedure Refresh; dispid 2;
end;
// *********************************************************************//
// Interface: Command15
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000508-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
Command15 = interface(_ADO)
['{00000508-0000-0010-8000-00AA006D2EA4}']
function Get_ActiveConnection: _Connection; safecall;
procedure Set_ActiveConnection(const ppvObject: _Connection); safecall;
procedure _Set_ActiveConnection(ppvObject: OleVariant); safecall;
function Get_CommandText: WideString; safecall;
procedure Set_CommandText(const pbstr: WideString); safecall;
function Get_CommandTimeout: Integer; safecall;
procedure Set_CommandTimeout(pl: Integer); safecall;
function Get_Prepared: WordBool; safecall;
procedure Set_Prepared(pfPrepared: WordBool); safecall;
function Execute(out RecordsAffected: OleVariant; var Parameters: OleVariant; Options: Integer): _Recordset; safecall;
function CreateParameter(const Name: WideString; Type_: DataTypeEnum;
Direction: ParameterDirectionEnum; Size: Integer; Value: OleVariant): _Parameter; safecall;
function Get_Parameters: Parameters; safecall;
procedure Set_CommandType(plCmdType: CommandTypeEnum); safecall;
function Get_CommandType: CommandTypeEnum; safecall;
function Get_Name: WideString; safecall;
procedure Set_Name(const pbstrName: WideString); safecall;
property CommandText: WideString read Get_CommandText write Set_CommandText;
property CommandTimeout: Integer read Get_CommandTimeout write Set_CommandTimeout;
property Prepared: WordBool read Get_Prepared write Set_Prepared;
property Parameters: Parameters read Get_Parameters;
property CommandType: CommandTypeEnum read Get_CommandType write Set_CommandType;
property Name: WideString read Get_Name write Set_Name;
end;
// *********************************************************************//
// DispIntf: Command15Disp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {00000508-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
Command15Disp = dispinterface
['{00000508-0000-0010-8000-00AA006D2EA4}']
function ActiveConnection: _Connection; dispid 1;
property CommandText: WideString dispid 2;
property CommandTimeout: Integer dispid 3;
property Prepared: WordBool dispid 4;
function Execute(out RecordsAffected: OleVariant; var Parameters: OleVariant; Options: Integer): _Recordset; dispid 5;
function CreateParameter(const Name: WideString; Type_: DataTypeEnum;
Direction: ParameterDirectionEnum; Size: Integer; Value: OleVariant): _Parameter; dispid 6;
property Parameters: Parameters readonly dispid 0;
property CommandType: CommandTypeEnum dispid 7;
property Name: WideString dispid 8;
property Properties: Properties readonly dispid 500;
end;
// *********************************************************************//
// Interface: Connection15
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {00000515-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
Connection15 = interface(_ADO)
['{00000515-0000-0010-8000-00AA006D2EA4}']
function Get_ConnectionString: WideString; safecall;
procedure Set_ConnectionString(const pbstr: WideString); safecall;
function Get_CommandTimeout: Integer; safecall;
procedure Set_CommandTimeout(plTimeout: Integer); safecall;
function Get_ConnectionTimeout: Integer; safecall;
procedure Set_ConnectionTimeout(plTimeout: Integer); safecall;
function Get_Version: WideString; safecall;
procedure Close; safecall;
function Execute(const CommandText: WideString; out RecordsAffected: OleVariant;
Options: Integer): _Recordset; safecall;
function BeginTrans: Integer; safecall;
procedure CommitTrans; safecall;
procedure RollbackTrans; safecall;
procedure Open(const ConnectionString: WideString; const UserID: WideString;
const Password: WideString; Options: Integer); safecall;
function Get_Errors: Errors; safecall;
function Get_DefaultDatabase: WideString; safecall;
procedure Set_DefaultDatabase(const pbstr: WideString); safecall;
function Get_IsolationLevel: IsolationLevelEnum; safecall;
procedure Set_IsolationLevel(Level: IsolationLevelEnum); safecall;
function Get_Attributes: Integer; safecall;
procedure Set_Attributes(plAttr: Integer); safecall;
function Get_CursorLocation: CursorLocationEnum; safecall;
procedure Set_CursorLocation(plCursorLoc: CursorLocationEnum); safecall;
function Get_Mode: ConnectModeEnum; safecall;
procedure Set_Mode(plMode: ConnectModeEnum); safecall;
function Get_Provider: WideString; safecall;
procedure Set_Provider(const pbstr: WideString); safecall;
function Get_State: Integer; safecall;
function OpenSchema(Schema: SchemaEnum; Restrictions: OleVariant; SchemaID: OleVariant): _Recordset; safecall;
property ConnectionString: WideString read Get_ConnectionString write Set_ConnectionString;
property CommandTimeout: Integer read Get_CommandTimeout write Set_CommandTimeout;
property ConnectionTimeout: Integer read Get_ConnectionTimeout write Set_ConnectionTimeout;
property Version: WideString read Get_Version;
property Errors: Errors read Get_Errors;
property DefaultDatabase: WideString read Get_DefaultDatabase write Set_DefaultDatabase;
property IsolationLevel: IsolationLevelEnum read Get_IsolationLevel write Set_IsolationLevel;
property Attributes: Integer read Get_Attributes write Set_Attributes;
property CursorLocation: CursorLocationEnum read Get_CursorLocation write Set_CursorLocation;
property Mode: ConnectModeEnum read Get_Mode write Set_Mode;
property Provider: WideString read Get_Provider write Set_Provider;
property State: Integer read Get_State;
end;
// *********************************************************************//
// DispIntf: Connection15Disp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {00000515-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
Connection15Disp = dispinterface
['{00000515-0000-0010-8000-00AA006D2EA4}']
property ConnectionString: WideString dispid 0;
property CommandTimeout: Integer dispid 2;
property ConnectionTimeout: Integer dispid 3;
property Version: WideString readonly dispid 4;
procedure Close; dispid 5;
function Execute(const CommandText: WideString; out RecordsAffected: OleVariant;
Options: Integer): _Recordset; dispid 6;
function BeginTrans: Integer; dispid 7;
procedure CommitTrans; dispid 8;
procedure RollbackTrans; dispid 9;
procedure Open(const ConnectionString: WideString; const UserID: WideString;
const Password: WideString; Options: Integer); dispid 10;
property Errors: Errors readonly dispid 11;
property DefaultDatabase: WideString dispid 12;
property IsolationLevel: IsolationLevelEnum dispid 13;
property Attributes: Integer dispid 14;
property CursorLocation: CursorLocationEnum dispid 15;
property Mode: ConnectModeEnum dispid 16;
property Provider: WideString dispid 17;
property State: Integer readonly dispid 18;
function OpenSchema(Schema: SchemaEnum; Restrictions: OleVariant; SchemaID: OleVariant): _Recordset; dispid 19;
property Properties: Properties readonly dispid 500;
end;
// *********************************************************************//
// Interface: _Connection
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {00000550-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
_Connection = interface(Connection15)
['{00000550-0000-0010-8000-00AA006D2EA4}']
procedure Cancel; safecall;
end;
// *********************************************************************//
// DispIntf: _ConnectionDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {00000550-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
_ConnectionDisp = dispinterface
['{00000550-0000-0010-8000-00AA006D2EA4}']
procedure Cancel; dispid 21;
property ConnectionString: WideString dispid 0;
property CommandTimeout: Integer dispid 2;
property ConnectionTimeout: Integer dispid 3;
property Version: WideString readonly dispid 4;
procedure Close; dispid 5;
function Execute(const CommandText: WideString; out RecordsAffected: OleVariant;
Options: Integer): _Recordset; dispid 6;
function BeginTrans: Integer; dispid 7;
procedure CommitTrans; dispid 8;
procedure RollbackTrans; dispid 9;
procedure Open(const ConnectionString: WideString; const UserID: WideString;
const Password: WideString; Options: Integer); dispid 10;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -