📄 adodb_tlb.pas
字号:
['{00000503-0000-0010-8000-00AA006D2EA4}']
function Get_Value {Flags(1), (1/0) CC:0, INV:2, DBG:6}: OleVariant; safecall;
procedure Set_Value {Flags(1), (1/1) CC:0, INV:4, DBG:6}(pval: {VT_12:0}OleVariant); safecall;
function Get_Name {Flags(1), (1/0) CC:0, INV:2, DBG:6}: WideString; safecall;
function Get_Type_ {Flags(1), (1/0) CC:0, INV:2, DBG:6}: DataTypeEnum; safecall;
function Get_Attributes {Flags(1), (1/0) CC:0, INV:2, DBG:6}: Integer; safecall;
procedure Set_Attributes {Flags(1), (1/1) CC:0, INV:4, DBG:6}(plAttributes: {VT_3:0}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 write Set_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 {Flags(2), (1/0) CC:0, INV:2, DBG:6}: OleVariant dispid 0;
property Name {Flags(2), (1/0) CC:0, INV:2, DBG:6}: WideString readonly dispid 1610743810;
property Type_ {Flags(2), (1/0) CC:0, INV:2, DBG:6}: DataTypeEnum readonly dispid 1610743811;
property Attributes {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Integer 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 {Flags(1), (1/0) CC:0, INV:2, DBG:6}: Integer; safecall;
function Get_Source {Flags(1), (1/0) CC:0, INV:2, DBG:6}: WideString; safecall;
function Get_Description {Flags(1), (1/0) CC:0, INV:2, DBG:6}: WideString; safecall;
function Get_HelpFile {Flags(1), (1/0) CC:0, INV:2, DBG:6}: WideString; safecall;
function Get_HelpContext {Flags(1), (1/0) CC:0, INV:2, DBG:6}: Integer; safecall;
function Get_SQLState {Flags(1), (1/0) CC:0, INV:2, DBG:6}: WideString; safecall;
function Get_NativeError {Flags(1), (1/0) CC:0, INV:2, DBG:6}: 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 {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Integer readonly dispid 1610743808;
property Source {Flags(2), (1/0) CC:0, INV:2, DBG:6}: WideString readonly dispid 1610743809;
property Description {Flags(2), (1/0) CC:0, INV:2, DBG:6}: WideString readonly dispid 0;
property HelpFile {Flags(2), (1/0) CC:0, INV:2, DBG:6}: WideString readonly dispid 1610743811;
property HelpContext {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Integer readonly dispid 1610743812;
property SQLState {Flags(2), (1/0) CC:0, INV:2, DBG:6}: WideString readonly dispid 1610743813;
property NativeError {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Integer readonly dispid 1610743814;
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 {Flags(1), (2/1) CC:0, INV:2, DBG:6}(Index: {VT_12:0}OleVariant): Error; safecall;
procedure Clear {Flags(1), (0/0) CC:0, INV:1, DBG:6}; safecall;
property Item {Flags(2), (2/1) CC:0, INV:2, DBG:5}[Index: {VT_12:0}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 {Flags(2), (2/1) CC:0, INV:2, DBG:6}[Index: {VT_12:0}OleVariant]: Error readonly dispid 0; default;
procedure Clear {Flags(2), (0/0) CC:0, INV:1, DBG:4}; dispid 1610809345;
property Count {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Integer readonly dispid 1610743808;
function _NewEnum {Flags(2), (1/0) CC:0, INV:1, DBG:4}: IUnknown; dispid -4;
procedure Refresh {Flags(2), (0/0) CC:0, INV:1, DBG:4}; dispid 1610743810;
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 {Flags(1), (1/0) CC:0, INV:2, DBG:6}: _Connection; safecall;
procedure Set_ActiveConnection {Flags(1), (1/1) CC:0, INV:8, DBG:6}(const ppvObject: {VT_29:1}_Connection); safecall;
procedure _Set_ActiveConnection {Flags(1), (1/1) CC:0, INV:4, DBG:6}(ppvObject: {VT_12:0}OleVariant); safecall;
function Get_CommandText {Flags(1), (1/0) CC:0, INV:2, DBG:6}: WideString; safecall;
procedure Set_CommandText {Flags(1), (1/1) CC:0, INV:4, DBG:6}(const pbstr: {VT_8:0}WideString); safecall;
function Get_CommandTimeout {Flags(1), (1/0) CC:0, INV:2, DBG:6}: Integer; safecall;
procedure Set_CommandTimeout {Flags(1), (1/1) CC:0, INV:4, DBG:6}(pl: {VT_3:0}Integer); safecall;
function Get_Prepared {Flags(1), (1/0) CC:0, INV:2, DBG:6}: WordBool; safecall;
procedure Set_Prepared {Flags(1), (1/1) CC:0, INV:4, DBG:6}(pfPrepared: {VT_11:0}WordBool); safecall;
function Execute {Flags(1), (4/3) CC:0, INV:1, DBG:6}(out RecordsAffected: {VT_12:1}OleVariant;
var Parameters: {VT_12:1}OleVariant;
Options: {VT_3:0}Integer): _Recordset; safecall;
function CreateParameter {Flags(1), (6/5) CC:0, INV:1, DBG:6}(const Name: {VT_8:0}WideString;
Type_: {VT_29:0}DataTypeEnum;
Direction: {VT_29:0}ParameterDirectionEnum;
Size: {VT_3:0}Integer;
Value: {VT_12:0}OleVariant): _Parameter; safecall;
function Get_Parameters {Flags(1), (1/0) CC:0, INV:2, DBG:6}: Parameters; safecall;
procedure Set_CommandType {Flags(1), (1/1) CC:0, INV:4, DBG:6}(plCmdType: {VT_29:0}CommandTypeEnum); safecall;
function Get_CommandType {Flags(1), (1/0) CC:0, INV:2, DBG:6}: CommandTypeEnum; safecall;
function Get_Name {Flags(1), (1/0) CC:0, INV:2, DBG:6}: WideString; safecall;
procedure Set_Name {Flags(1), (1/1) CC:0, INV:4, DBG:6}(const pbstrName: {VT_8:0}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 {Flags(2), (1/0) CC:0, INV:2, DBG:4}: _Connection; dispid 1610809344;
property CommandText {Flags(2), (1/0) CC:0, INV:2, DBG:6}: WideString dispid 1610809347;
property CommandTimeout {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Integer dispid 1610809349;
property Prepared {Flags(2), (1/0) CC:0, INV:2, DBG:6}: WordBool dispid 1610809351;
function Execute {Flags(2), (4/3) CC:0, INV:1, DBG:4}(out RecordsAffected: {VT_12:1}OleVariant;
var Parameters: {VT_12:1}OleVariant;
Options: {VT_3:0}Integer): _Recordset; dispid 1610809353;
function CreateParameter {Flags(2), (6/5) CC:0, INV:1, DBG:4}(const Name: {VT_8:0}WideString;
Type_: {VT_29:0}DataTypeEnum;
Direction: {VT_29:0}ParameterDirectionEnum;
Size: {VT_3:0}Integer;
Value: {VT_12:0}OleVariant): _Parameter; dispid 1610809354;
property Parameters {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Parameters readonly dispid 0;
property CommandType {Flags(2), (1/0) CC:0, INV:4, DBG:6}: CommandTypeEnum dispid 1610809356;
property Name {Flags(2), (1/0) CC:0, INV:2, DBG:6}: WideString dispid 1610809358;
property Properties {Flags(2), (1/0) CC:0, INV:2, DBG:6}: 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 {Flags(1), (1/0) CC:0, INV:2, DBG:6}: WideString; safecall;
procedure Set_ConnectionString {Flags(1), (1/1) CC:0, INV:4, DBG:6}(const pbstr: {VT_8:0}WideString); safecall;
function Get_CommandTimeout {Flags(1), (1/0) CC:0, INV:2, DBG:6}: Integer; safecall;
procedure Set_CommandTimeout {Flags(1), (1/1) CC:0, INV:4, DBG:6}(plTimeout: {VT_3:0}Integer); safecall;
function Get_ConnectionTimeout {Flags(1), (1/0) CC:0, INV:2, DBG:6}: Integer; safecall;
procedure Set_ConnectionTimeout {Flags(1), (1/1) CC:0, INV:4, DBG:6}(plTimeout: {VT_3:0}Integer); safecall;
function Get_Version {Flags(1), (1/0) CC:0, INV:2, DBG:6}: WideString; safecall;
procedure Close {Flags(1), (0/0) CC:0, INV:1, DBG:6}; safecall;
function Execute {Flags(1), (4/3) CC:0, INV:1, DBG:6}(const CommandText: {VT_8:0}WideString;
out RecordsAffected: {VT_12:1}OleVariant;
Options: {VT_3:0}Integer): _Recordset; safecall;
function BeginTrans {Flags(1), (1/0) CC:0, INV:1, DBG:6}: Integer; safecall;
procedure CommitTrans {Flags(1), (0/0) CC:0, INV:1, DBG:6}; safecall;
procedure RollbackTrans {Flags(1), (0/0) CC:0, INV:1, DBG:6}; safecall;
procedure Open {Flags(1), (4/4) CC:0, INV:1, DBG:6}(const ConnectionString: {VT_8:0}WideString;
const UserID: {VT_8:0}WideString;
const Password: {VT_8:0}WideString;
Options: {VT_3:0}Integer); safecall;
function Get_Errors {Flags(1), (1/0) CC:0, INV:2, DBG:6}: Errors; safecall;
function Get_DefaultDatabase {Flags(1), (1/0) CC:0, INV:2, DBG:6}: WideString; safecall;
procedure Set_DefaultDatabase {Flags(1), (1/1) CC:0, INV:4, DBG:6}(const pbstr: {VT_8:0}WideString); safecall;
function Get_IsolationLevel {Flags(1), (1/0) CC:0, INV:2, DBG:6}: IsolationLevelEnum; safecall;
procedure Set_IsolationLevel {Flags(1), (1/1) CC:0, INV:4, DBG:6}(Level: {VT_29:0}IsolationLevelEnum); safecall;
function Get_Attributes {Flags(1), (1/0) CC:0, INV:2, DBG:6}: Integer; safecall;
procedure Set_Attributes {Flags(1), (1/1) CC:0, INV:4, DBG:6}(plAttr: {VT_3:0}Integer); safecall;
function Get_CursorLocation {Flags(1), (1/0) CC:0, INV:2, DBG:6}: CursorLocationEnum; safecall;
procedure Set_CursorLocation {Flags(1), (1/1) CC:0, INV:4, DBG:6}(plCursorLoc: {VT_29:0}CursorLocationEnum); safecall;
function Get_Mode {Flags(1), (1/0) CC:0, INV:2, DBG:6}: ConnectModeEnum; safecall;
procedure Set_Mode {Flags(1), (1/1) CC:0, INV:4, DBG:6}(plMode: {VT_29:0}ConnectModeEnum); safecall;
function Get_Provider {Flags(1), (1/0) CC:0, INV:2, DBG:6}: WideString; safecall;
procedure Set_Provider {Flags(1), (1/1) CC:0, INV:4, DBG:6}(const pbstr: {VT_8:0}WideString); safecall;
function Get_State {Flags(1), (1/0) CC:0, INV:2, DBG:6}: Integer; safecall;
function OpenSchema {Flags(1), (4/3) CC:0, INV:1, DBG:6}(Schema: {VT_29:0}SchemaEnum;
Restrictions: {VT_12:0}OleVariant;
SchemaID: {VT_12:0}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 {Flags(2), (1/0) CC:0, INV:2, DBG:6}: WideString dispid 0;
property CommandTimeout {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Integer dispid 2;
property ConnectionTimeout {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Integer dispid 3;
property Version {Flags(2), (1/0) CC:0, INV:2, DBG:6}: WideString readonly dispid 4;
procedure Close {Flags(2), (0/0) CC:0, INV:1, DBG:4}; dispid 5;
function Execute {Flags(2), (4/3) CC:0, INV:1, DBG:4}(const CommandText: {VT_8:0}WideString;
out RecordsAffected: {VT_12:1}OleVariant;
Options: {VT_3:0}Integer): _Recordset; dispid 6;
function BeginTrans {Flags(2), (1/0) CC:0, INV:1, DBG:4}: Integer; dispid 7;
procedure CommitTrans {Flags(2), (0/0) CC:0, INV:1, DBG:4}; dispid 8;
procedure RollbackTrans {Flags(2), (0/0) CC:0, INV:1, DBG:4}; dispid 9;
procedure Open {Flags(2), (4/4) CC:0, INV:1, DBG:4}(const ConnectionString: {VT_8:0}WideString;
const UserID: {VT_8:0}WideString;
const Password: {VT_8:0}WideString;
Options: {VT_3:0}Integer); dispid 10;
property Errors {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Errors readonly dispid 11;
property DefaultDatabase {Flags(2), (1/0) CC:0, INV:2, DBG:6}: WideString dispid 12;
property IsolationLevel {Flags(2), (1/0) CC:0, INV:2, DBG:6}: IsolationLevelEnum dispid 13;
property Attributes {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Integer dispid 14;
property CursorLocation {Flags(2), (1/0) CC:0, INV:2, DBG:6}: CursorLocationEnum dispid 15;
property Mode {Flags(2), (1/0) CC:0, INV:2, DBG:6}: ConnectModeEnum dispid 16;
property Provider {Flags(2), (1/0) CC:0, INV:2, DBG:6}: WideString dispid 17;
property State {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Integer readonly dispid 18;
function OpenSchema {Flags(2), (4/3) CC:0, INV:1, DBG:4}(Schema: {VT_29:0}SchemaEnum;
Restrictions: {VT_12:0}OleVariant;
SchemaID: {VT_12:0}OleVariant): _Recordset; dispid 19;
property Properties {Flags(2), (1/0) CC:0, INV:2, DBG:6}: Properties readonly dispid 500;
end;
// *********************************************************************//
// Interface: _Connection
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {00000550-0000-0010-8000-00AA006D2EA4}
// *********************************************************************//
_Connection = interface(Connection15)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -