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
>
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
Jeremy Coulter.vcf
