How to get multi-dataset with TADOQuery

Dev Shed Forums Sponsor:

October 1st, 2003, 06:34 AM

Cstarter

Junior Member

Join Date: Oct 2003

Posts: 2

Time spent in forums: < 1 sec
Reputation Power: 0

How to get multi-dataset with TADOQuery

declare @count int
declare @Superior varchar(20)
declare @countNum int
declare CustCursor Cursor for
select superior,count(superior) as RecordeCount
from [stuff]
group by Superior
for read only
open custcursor
set @count=0

while (1=1)
begin
Fetch Next
from CustCursor
into @Superior,@CountNum
print @Superior
print @countNum
if(@@FETCH_STATUS <>0)
begin
break;
end
select * From [stuff]
where superior=@Superior
Set @count=@count+1
end
close custcursor
deallocate custcursor

above is the SQL statement,and How to get multi-dataset use
TADOQuery,please!Thanks!

Comments on this post

JimmyGosling agrees!

October 4th, 2003, 04:41 AM

Scorpions4ever

Banned ;)

Dev Shed God 9th Plane (9000 - 9499 posts)

Join Date: Nov 2001

Location: Woodland Hills, Los Angeles County, California, USA

Posts: 9,402

Time spent in forums: 2 Months 8 h 53 m 6 sec
Reputation Power: 4080

TAdoQuery has a NextRecordSet method that allows you to move from one recordset to the next. See the help documentation for TAdoQuery.NextRecordSet for more details. Hope this helps

__________________
Up the Irons
What Would Jimi Do? Smash amps. Burn guitar. Take the groupies home.
"Death Before Dishonour, my Friends!!" - Bruce D ickinson, Iron Maiden Aug 20, 2005 @ OzzFest
Down with Sharon Osbourne

October 4th, 2003, 08:52 AM

Cstarter

Junior Member

Join Date: Oct 2003

Posts: 2

Time spent in forums: < 1 sec
Reputation Power: 0

I know the TADOQuery's NextRecordSet

I know the TADOQuery's NextRecordSet,but I can't use it correctly
Could you give me some code !

October 7th, 2003, 07:28 PM

Scorpions4ever

Banned ;)

Join Date: Nov 2001

Location: Woodland Hills, Los Angeles County, California, USA

Posts: 9,402

Time spent in forums: 2 Months 8 h 53 m 6 sec
Reputation Power: 4080

Drop an ADODataSet component on the form and then do this to move to the next record set:

Code:

	while true do
	begin
		ADODataSet1.Recordset := ADOQuery1.NextRecordset;
		if ADODataSet1.IsEmpty then
			Break;
		while not ADODataSet1.Eof do
		begin
		 // Move thru the record set.
		 ADODataSet1.Next;
		end;
	end;

Note that I typed that code off the top of my head, so you may need to make some minor adjustments. Hope this helps

Viewing: Dev Shed Forums > Programming Languages - More > Delphi Programming > How to get multi-dataset with TADOQuery

« Previous Thread | Next Thread »

Developer Shed Advertisers and Affiliates

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump