_Recordset erstellen

[HendrikM]

Vielleicht hatte ich die ersten 2 Zeilen vergessen zu erwähnen:

Delphi-Quellcode:

     FRSet:=CreateComObject(CLASS_RECORDSET) as _Recordset;
     FRSet.CursorLocation:=adUseClient;
     FRSet.Fields.Append('k',adInteger,0,adFldKeyColumn,0);
     FRSet.Fields.Append('POSX',adSingle,0,adFldUnspecified,0);
     FRSet.Fields.Append('POSY',adSingle,0,adFldUnspecified,0);
     FRSet.Open(EmptyParam,EmptyParam,adOpenUnspecified,adOpenUnspecified,0);

und dann sieht das so aus in der Winapi.ADOInt:

Delphi-Quellcode:

  Fields = interface(Fields20)
    ['{00000564-0000-0010-8000-00AA006D2EA4}']
    procedure Append(const Name: WideString; Type_: DataTypeEnum; DefinedSize: ADO_LONGPTR; 
                     Attrib: FieldAttributeEnum; FieldValue: OleVariant); safecall;
    procedure Update; safecall;
    procedure Resync(ResyncValues: ResyncEnum); safecall;
    procedure CancelUpdate; safecall;
  end;