Announcement

**hwoess** · 18.02.2005, 13:29

Hallo Dietmar,

ich wei� zwar nicht, ob das mit TADOStoredProc �berhaupt geht, als workaraound k�nnte man aber das sp_help_job 4 mal mit ge�ndertem job_aspect aufrufen, also zB. so:

USE msdb
EXEC sp_help_job @job_name = 'Meine Sicherung', @job_aspect = 'JOB' 
EXEC sp_help_job @job_name = 'Meine Sicherung', @job_aspect = 'SCHEDULES' 
EXEC sp_help_job @job_name = 'Meine Sicherung', @job_aspect = 'STEPS' 
EXEC sp_help_job @job_name = 'Meine Sicherung', @job_aspect = 'TARGETS' 

... bzw. wird man ja nur einen davon wirklich brauchen, oder?

bye, 
Helmu

**Ralf Jansen** · 18.02.2005, 14:19

Mit der Function NextRecordset kannst du zu den anderen Recordsets wechseln. Also z.B.

<PRE>
TADOStoredProc.Recordset := TADOStoredProc.NextRecordset;
</PRE>

Ral

**Andreas Kosch** · 19.02.2005, 14:12

Hallo,

>Was muss ich tun, damit ich auf alle 4 Ergebnisse zugreifen und darstellen kann?

Um die Antwort vorweg zu nehmen, ist der Zugriff dank der F�higkeiten der ADO-Objekte sehr einfach. Aber auch hier soll ein Beispiel das Prinzip verdeutlichen. Zuerst lege ich in der Northwind-Beispieldatenbank des MS SQL Server 2000 eine eigene gespeicherte Prozedur an, die gleich zwei SELECT-Abfragen hintereinander ausf�hrt. Danach teste ich diese Prozedur sofort im Query Analyzer, indem ich sie �ber EXEC ausf�hre. Im Ergebnisfenster sind beide Ergebnismengen gleichzeitig als Tabelle zu sehen.
<pre>
USE Northwind
GO
CREATE PROCEDURE spMultiResultSet
AS
SET NOCOUNT ON
SELECT * FROM dbo.Region
SELECT * FROM dbo.Categories
GO
EXEC spMultiResultSet
</pre>
Um das gleiche Verhalten (das gleichzeitige Darstellen beider Ergebnismengen in zwei TDBGrid) auch in der Delphi-Anwendung zu erhalten, gehe ich folgenderma�en vor: 
a) Ich lege zwei TDBGrid-Komponenten auf dem Formular ab, die jeweils eine eigene TDataSource-Komponente erhalten. 
b) Ich konfiguriere eine TADOConnection-Komponente f�r die vorbereitete Northwind-Beispieldatenbank. 
c) Ich lege die erste TADODataSet-Komponente auf dem Formular ab, um diese gleich �ber die Eigenschaft Connection mit der TADOConnection-Komponente zu verbinden. Danach setze ich die Eigenschaft CommandType auf den Wert cmdStoredProc und bei der Eigenschaft CommandText w�hle ich die eigene Prozedur spMultiResultSet aus, um das Ganze dann �ber TDataSource an das 1. TDBGrid zu h�ngen. 
d) Ich lege dann die zweite TADODataSet-Komponente auf dem Formular ab, wobei dort keine Eigenschaften im Objektinspektor konfiguriert werden. Statt dessen verbinde ich diese Komponente sofort �ber TDataSource mit dem 2. TDBGrid. 
e) In der Uses-Auflistung des Formulars f�ge ich die Unit ADOInt hinzu.
 
Wenn das Programm gestartet wird, �ffne ich zuerst die TADODataSet-Instanz, die �ber die Eigenschaft CommandText mit meiner gespeicherten Prozedur spMultiResultSet verbunden ist, so dass im ersten TDBGrid sofort die Daten der ersten Ergebnismenge sichtbar sind.
<pre>
ADOConnection1.Connected := True;
ADODataSet1.Active := True;
</Pre>
Um gleichzeitig auch an die zweite Ergebnismenge meiner gespeicherten Prozedur zu gelangen, muss ich auf die Interface-Methode NextRecordset des Recordset-Objekts von ADO zur�ckgreifen. Da die VCL-Komponente TADODataSet �ber die Eigenschaft Recordset einen Interface-Zeiger auf die im Hintergrund eingebundene Recordset-Objektinstanz bereitstellt, ist der Job schnell erledigt. Als Ergebnis liefert mir die Interface-Methode NextRecordset einen Verweis auf die zweite Ergebnismenge zur�ck, so dass ich dieses Ergebnis der nicht konfigurierten zweiten TADODataSet-Komponente unterschieden kann. Sobald deren Eigenschaft auf True gesetzt wird, zeigt es die Daten im zweiten TDBGrid sofort an � auch wenn diese TADODataSet-Komponente gar keine eigene Verbindung zur Datenbank nutzt.
<pre>
var
aRS : _RecordSet;
vRec: OleVariant;
begin
aRS := ADODataSet1.Recordset.NextRecordset(vRec);
ADODataSet2.Recordset := aRS;
ADODataSet2.Active := True;
end;
</pre>
Die angeh�ngte Abbildung zeigt das Ergebnis

**Andreas Kosch** · 19.02.2005, 14:14

Hallo,

>Was muss ich tun, damit ich auf alle 4 Ergebnisse zugreifen und darstellen kann?

ich w�rde ich die Kompatibilit�ts-Komponente TADOStoredProc entsorgen, denn dieses Teil arbeitet nicht gerade optimal. Besser geeignet ist TADODataSet. Ein Beispiel verdeutlicht das Prinzip besser. Zuerst lege ich in der Northwind-Beispieldatenbank des MS SQL Server 2000 eine eigene gespeicherte Prozedur an, die gleich zwei SELECT-Abfragen hintereinander ausf�hrt. Danach teste ich diese Prozedur sofort im Query Analyzer, indem ich sie �ber EXEC ausf�hre. Im Ergebnisfenster sind beide Ergebnismengen gleichzeitig als Tabelle zu sehen.
<pre>
USE Northwind
GO
CREATE PROCEDURE spMultiResultSet
AS
SET NOCOUNT ON
SELECT * FROM dbo.Region
SELECT * FROM dbo.Categories
GO
EXEC spMultiResultSet
</pre>
Um das gleiche Verhalten (das gleichzeitige Darstellen beider Ergebnismengen in zwei TDBGrid) auch in der Delphi-Anwendung zu erhalten, gehe ich folgenderma�en vor: 
a) Ich lege zwei TDBGrid-Komponenten auf dem Formular ab, die jeweils eine eigene TDataSource-Komponente erhalten. 
b) Ich konfiguriere eine TADOConnection-Komponente f�r die vorbereitete Northwind-Beispieldatenbank. 
c) Ich lege die erste TADODataSet-Komponente auf dem Formular ab, um diese gleich �ber die Eigenschaft Connection mit der TADOConnection-Komponente zu verbinden. Danach setze ich die Eigenschaft CommandType auf den Wert cmdStoredProc und bei der Eigenschaft CommandText w�hle ich die eigene Prozedur spMultiResultSet aus, um das Ganze dann �ber TDataSource an das 1. TDBGrid zu h�ngen. 
d) Ich lege dann die zweite TADODataSet-Komponente auf dem Formular ab, wobei dort keine Eigenschaften im Objektinspektor konfiguriert werden. Statt dessen verbinde ich diese Komponente sofort �ber TDataSource mit dem 2. TDBGrid. 
e) In der Uses-Auflistung des Formulars f�ge ich die Unit ADOInt hinzu.
 
Wenn das Programm gestartet wird, �ffne ich zuerst die TADODataSet-Instanz, die �ber die Eigenschaft CommandText mit meiner gespeicherten Prozedur spMultiResultSet verbunden ist, so dass im ersten TDBGrid sofort die Daten der ersten Ergebnismenge sichtbar sind.
<pre>
ADOConnection1.Connected := True;
ADODataSet1.Active := True;
</Pre>
Um gleichzeitig auch an die zweite Ergebnismenge meiner gespeicherten Prozedur zu gelangen, muss ich auf die Interface-Methode NextRecordset des Recordset-Objekts von ADO zur�ckgreifen. Da die VCL-Komponente TADODataSet �ber die Eigenschaft Recordset einen Interface-Zeiger auf die im Hintergrund eingebundene Recordset-Objektinstanz bereitstellt, ist der Job schnell erledigt. Als Ergebnis liefert mir die Interface-Methode NextRecordset einen Verweis auf die zweite Ergebnismenge zur�ck, so dass ich dieses Ergebnis der nicht konfigurierten zweiten TADODataSet-Komponente unterschieden kann. Sobald deren Eigenschaft auf True gesetzt wird, zeigt es die Daten im zweiten TDBGrid sofort an � auch wenn diese TADODataSet-Komponente gar keine eigene Verbindung zur Datenbank nutzt.
<pre>
var
aRS : _RecordSet;
vRec: OleVariant;
begin
aRS := ADODataSet1.Recordset.NextRecordset(vRec);
ADODataSet2.Recordset := aRS;
ADODataSet2.Active := True;
end;
</pre>
Die angeh�ngte Abbildung zeigt das Ergebnis

**Dietmar Wintzheimer** · 22.02.2005, 10:57

Hallo, 
und erst mal vielen Dank f�r die verschiedene Anregungen. 
@Andreas 
Das Beispiel inkl. Anleitung ist tadellos, auch wenn man die StoredProc auf
weitere Ergebnismengen erweitert wird.
<blockquote>
CREATE PROCEDURE spMultiResultSet 
AS 
SET NOCOUNT ON 
SELECT * FROM Region 
SELECT * FROM Categories 
SELECT * FROM Shippers 
SELECT * FROM Suppliers 
RETURN 
GO
</blockquote>
Jedoch bekomme ich einen Fehler (Stack�berlauf) f�r den 4ten Resultset,
sobald ich die msdb..sp_help_job aufrufe. 
Komischerweise funktioniert es mit dem Aufruf Northwind..spMultiResultSet. 
Sicherlich k�nnte ich das jedoch mit den native ADO's �berpr�fen, aber in
Hinblick auf @Helmut's L�sung w�rde ich bei der sp_help_job diese Variante
bevorzugen. 
 
>ich w�rde ich die Kompatibilit�ts-Komponente TADOStoredProc entsorgen, denn dieses Teil arbeitet nicht gerade optimal.  
>Besser geeignet ist TADODataSet. 
Hei�t das nun generell, wenn ich eine StoredProc aufrufen m�chte, dass ich die
TADODataSet verwenden soll? 
 
 
Gruss und Dank 
    Dietma

**Andreas Kosch** · 23.02.2005, 08:39

Hallo,

f�r den generellen Einsatz von TADODataSet sprechen 2 Gr�nde: 
1. Die Komponente bildet die nativen ADO-Objekte (Command/Recordset) am Besten in der VCL ab. 
2. Nur bei TADOCommand/TADODataSet hat Borland in den letzten Jahren einige Bugs gefixt (aber nicht bei den BDE-Kompatibilit�tskomponenten TADOTable/TADOStoredProc).

>..Jedoch bekomme ich einen Fehler (Stack�berlauf) ..

Generell ist es eine gute Idee, bei jedem Problem mit dem ADO Express/dbGo-Komponenten zum Test auf die nativen ADO-Objekte auszuweichen

**Dietmar Wintzheimer** · 07.03.2005, 18:16

Hallo, 
 
>Generell ist es eine gute Idee, bei jedem Problem mit dem ADO Express/dbGo-Komponenten zum Test auf  
>die nativen ADO-Objekte auszuweichen.  
Das habe ich nun mal ausprobiert ...
<blockquote>
010 cmd := CoCommand.Create; 
020 cmd.Set_ActiveConnection (co); 
030 cmd.CommandType := adCmdStoredProc; 
040 cmd.CommandText := 'sp_help_job'; 
050  
060 AddParamObj ('@job_id', adGUID, adParamInput, 0); 
070 AddParamObj ('@job_name', adVarChar, adParamInput, 128); 
080  
090 cmd.Parameters['@job_name'].Value := 'Irgendein Job'; 
100  
110 rs := cmd.Execute (vRows, EmptyParam, adOptionUnspecified); 
120 
130 adsTmp.Recordset := rs;
</blockquote>
Jedoch bekomme ich hier in Zeile 130 einen Fehler "Stack�berlauf".
 
Habe auch Zeile 060 mal auskommentiert, aber irgendwie wird die gebraucht ... 
 
Gruss 
   Dietma

**Andreas Kosch** · 08.03.2005, 07:48

Hallo,

>Jedoch bekomme ich hier in Zeile 130 einen Fehler "Stack�berlauf".

aber in der Zeile 130 ist doch bereits die dbGo-Komponete (TADODataSet) im Spiel. Was passiert, wenn die Ergebnismenge �ber die Recordset-Methode GetString angezeigt wird?
<pre>
var
aRS1 : _Recordset;
aRS2 : _Recordset;
vRec : OleVariant;
iRecCount : Integer;
swData : WideString;
begin
...
...
...
iRecCount := aRS1.RecordCount;
swData := aRS1.GetString(adClipString, iRecCount, '; ', #13#10,'(NULL)');
ShowMessage(swData);
...
aRS2 := aRS1.NextRecordset(vRec);
iRecCount := aRS2.RecordCount;
swData := aRS2.GetString(adClipString, iRecCount, '; ', #13#10,'(NULL)');
ShowMessage(swData);
...
end;
</pre&gt

Announcement

mehrere Resultsets

mehrere Resultsets

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment