Don't look very hard Jeremy, it is still in the text at the bottom of this message.
> begin
> > Cn := CoConnection.Create;
> > cn.Provider := 'MSDataShape';
> > cn.Open ('dsn=OLE_access_NWIND','','',0);
> >
> > rsPub := CoRecordset.Create;
> > rsOldOrders := CoRecordset.Create;
>
Christopher Crowe (Software Developer)
Microsoft MVP, MCP
Adrock Software
Byte Computer & Software LTD
P.O Box 13-155
Christchurch
New Zealand
Phone/Fax (NZ) 03-3651-112
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Coulter, Jeremy
> Sent: Thursday, 3 June 1999 12:43
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: ADO Hierarchial Record Sets
>
>
> didn't see any code anywhere like that in the email I got.....
>
> Jeremy Coulter
> Application Developer
>
> Application Development Centre
> Compaq Computer New Zealand Ltd.
>
> Phone: 64 3 371 5724 (DD)
> Fax: 64 3 371 5744
> Cell: 021 2150435
> E-mail: [EMAIL PROTECTED]
> Private E-Mail: [EMAIL PROTECTED]
>
>
> -----Original Message-----
> From: Chris Crowe [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, June 03, 1999 11:53
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: ADO Hierarchial Record Sets
>
>
> You obviously didn't look at the code very much Jeremy.
>
> rsOldOrders := CoRecordset.Create;
>
>
>
> Christopher Crowe (Software Developer)
> Microsoft MVP, MCP
>
> Adrock Software
> Byte Computer & Software LTD
> P.O Box 13-155
> Christchurch
> New Zealand
> Phone/Fax (NZ) 03-3651-112
>
>
> > -----Original Message-----
> > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> > Behalf Of Coulter, Jeremy
> > Sent: Thursday, 3 June 1999 11:28
> > To: Multiple recipients of list delphi
> > Subject: RE: [DUG]: ADO Hierarchial Record Sets
> >
> >
> > have you done :-
> >
> > rsoldOrders :=createOLEObject('ado.recordset') ??
> >
> > problem is, that "rsoldOrders " needs to be assigned to a
> > Recorset object.
> >
> > I have code at home for this, (delphi code) can you wait till then ??
> >
> > Jeremy Coulter
> > Application Developer
> >
> > Application Development Centre
> > Compaq Computer New Zealand Ltd.
> >
> > Phone: 64 3 371 5724 (DD)
> > Fax: 64 3 371 5744
> > Cell: 021 2150435
> > E-mail: [EMAIL PROTECTED]
> > Private E-Mail: [EMAIL PROTECTED]
> >
> >
> > -----Original Message-----
> > From: Chris Crowe [mailto:[EMAIL PROTECTED]]
> > Sent: Thursday, June 03, 1999 10:32
> > To: Multiple recipients of list delphi
> > Subject: [DUG]: ADO Hierarchial Record Sets
> >
> >
> > Below is a simple ADO application which uses Hirarchial Record
> sets. I can
> > not get it to work. In VB you use a syntax like the following to
> > get access
> > to the child record set.
> >
> > Set rsTitle = rsPub!rsOldOrders.Value
> >
> > So in Delphi I tried
> >
> > rsoldOrders := rsPub.Fields['rsOldOrders'].Value;
> >
> > But it will not compile with the error "Incompatible types
> OLEVariant and
> > _Recordset"
> >
> > Does anyone have any ideas here?
> >
> > Chris
> >
> > Christopher Crowe (Software Developer)
> > Microsoft MVP, MCP
> >
> > Adrock Software
> > Byte Computer & Software LTD
> > P.O Box 13-155
> > Christchurch
> > New Zealand
> > Phone/Fax (NZ) 03-3651-112
> >
> > ==================================
> > unit AdoSample;
> >
> > interface
> >
> > uses
> > Windows, Messages, SysUtils, Classes, Graphics, Controls,
> > Forms, Dialogs,
> > adodb_tlb,
> > StdCtrls, Buttons, ExtCtrls;
> >
> > type
> > TForm1 = class(TForm)
> > ListBox1: TListBox;
> > Panel1: TPanel;
> > BitBtn1: TBitBtn;
> > procedure BitBtn1Click(Sender: TObject);
> > private
> > { Private declarations }
> > public
> > { Public declarations }
> > end;
> >
> > var
> > Form1: TForm1;
> >
> > implementation
> >
> > {$R *.DFM}
> >
> > procedure TForm1.BitBtn1Click(Sender: TObject);
> > Var
> > ADOSql : String;
> > cn : Connection;
> > rsOldOrders,
> > rsPub : Recordset;
> > rsTitle : Recordset;
> > rsRecent : Recordset;
> > SQL : String;
> > begin
> > Cn := CoConnection.Create;
> > cn.Provider := 'MSDataShape';
> > cn.Open ('dsn=OLE_access_NWIND','','',0);
> >
> > rsPub := CoRecordset.Create;
> > rsOldOrders := CoRecordset.Create;
> >
> > ADOSql := 'SHAPE {SELECT * FROM customers} '+
> > 'APPEND ({SELECT * From orders Where orderdate <
> > #1/1/1996# And
> > customerid = ?} '+
> > 'RELATE customerid TO PARAMETER 0) AS rsOldOrders, '+
> > '({SELECT * From orders WHERE orderdate >= #1/1/1996#} '+
> > 'RELATE customerid TO customerid) AS rsRecentOrders ';
> >
> > rsPub.Open(ADOSql, cn, adOpenStatic, adLockReadOnly, adCmdText);
> > ListBox1.items.Clear;
> > While (rsPub.EOF= FALSE) do
> > begin
> > ListBox1.items.Add('Customer =
> > '+rsPub.Fields['CompanyName'].Value);
> >
> > rsoldOrders := rsPub.Fields['rsOldOrders'].Value;
> > While (rsoldOrders.EOF= FALSE) do
> > begin
> > ListBox1.items.Add('
> > '+rsOldOrders.Fields['OrderDate'].Value);
> > rsOldOrders.Movenext
> > end;
> > rsOldOrders.Close;
> > rsPub.moveNext;
> > end;
> > rsPub.Close;
> >
> > end;
> >
> > end.
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
