Announcement

**Andreas Kosch** · 04.09.2000, 07:49

Hallo,

ADO sieht �ber die Methode NextRecordset einen Weg vor, das zweite Recordset abzufordern

**Ulrich Simon** · 12.09.2000, 01:43

Hi!

Eigentlich suche ich nach einer Loesung, welche das Problem in TSQL loest,
und nicht in VBA. Ich konnte das obige Problem vorerst beheben, indem ich die entsprechenden Selects einkopiert habe. Das Ergebnis soll in einem Listenfeld angezeigt werden koennen, wofuer ein einzelnes Recordset nach meiner Information noetig ist.

Jetzt habe ich aber folgende Abfrage:

Alter Procedure ListeLagerKontakt
@KontaktID int,
@Jahr int
As
Select
L1.ArtikelID,
L1.Datum,
Artikel.Bezeichnung as Artikel,
L1.Menge - IsNull ((
Select Sum(L2.Menge)
From Lieferung As L2
Where L2.Jahr1900 = (@Jahr-1900) And L2.LieferungStatus=1 And L2.VonLieferungID = L1.LieferungID
),0) As Bestand
From Lieferung As L1 Inner Join Artikel On (L1.ArtikelID = Artikel.ArtikelID)
Where L1.Jahr1900 = (@Jahr-1900) And L1.LieferungStatus=1 And L1.NachKontakt = @KontaktID
Order By Artikel.Bezeichnung, L1.Datum

Hierbei k�nnen Datensaetze mit Bestand 0 entstehen, welche ich aber aus dem Ergebnis loeschen will. Ich moechte
vermeiden, dass ich die komplette Bestandberechnung mit dem Subselect in der Whereklausel wiederholen muss.

Daher habe ich ein paar konkrete Fragen, die ich mittels meiner Doku nicht klaeren konnte:

1. Gibt es einen Datentyp der Art "resultset", mit dem ich Ergebnisse fuer die weitere Verwendung einer
Variablen zuweisen kann (in TSQL!)?
2. Gibt es parametrisierte Views?
3. Kann ich ueberhaupt das Ergebnis (ein Resultset) von parametrierten Abfragen in TSQL weiterverwenden,
wenn ja, wie?
4. Wie kann ich einen Namen f�r eine temporaere Tabelle generieren lassen, der garantiert von keinem
anderen Benutzer benutzt wird.

Vielen Dank schonmal fuer die Hilfe!

Ulrich<p&gt

**Andreas Kosch** · 12.09.2000, 07:07

Hallo,

zu Frage 1: 
Das RecordSet-Objekt von ADO speichert die Ergebnismenge (Resultset), daher hat TSQL keinen direkten Zugriff darauf.

zu Frage 2: 
Es gibt parametisierte Stored Procedures, die eine Ergebnismenge zur�ckliefern k�nnen. Ein View ist jedoch nur eine Sicht-Tabelle, oder anders gesagt, eine "benannte SELECT-Abfrage". Und da einem SELECT keine Parameter �bergeben werden k�nnen, muss man dann auf die Stored Procedures ausweichen.

zu Frage 3: 
Ja - wenn ein CURSOR f�r die SELECT-Abfrage deklariert wird. �ber diesen CURSOR kann man dann zeilenweise durch die Ergebnismenge gehen (d.h. ein Fetch innerhalb der Stored Procedure ausl�sen) und die vorgefundenen Daten auswerten.

zu Frage 4: 
Wenn das Zeichen # einem Tabellennamen vorangestellt wird, erh�lt man eine private tempor�re Tabelle, die nur f�r die Verbindung sichtbar ist, �ber die diese Tabelle angelegt wurde

**tompson** · 07.06.2001, 13:21

Hallo,

ich h�tte mal ne Frage zu Punkt 2.

Wie schaut das mit der Ergebnismenge aus und wie kann ich da dann draufzugreifen. Am besten w�re ein kurzes Code BSP.

Danke MFG

thomas her

**Andreas Kosch** · 08.06.2001, 06:15

Hallo,

das k�nnte so aussehen (das Beispiel verwendet die Microsoft-Beispieldatenbank Northwind:
<pre>
CREATE PROCEDURE SPGetCustomer
@sID VARCHAR(20)
AS
SELECT * FROM Customers WHERE CustomerID = @sID
-- Anzahl der Treffer zur�ckliefern
Return @@ROWCOUNT
</pre&gt

**tompson** · 08.06.2001, 09:29

In diesen Beispiel bekomme ich einn einzigen Wert und keine Menge zur�ck. Das Ergebnis soll eine Menge sein und wie kann ich auf der Menge navigieren

**Andreas Kosch** · 09.06.2001, 07:34

Hallo,

in diesem Fall muss die WHERE-Einschr�nkung ge�ndert werden:
<pre>
CREATE PROCEDURE SPGetCustomer
@sID VARCHAR(20)
AS
SELECT * FROM Customers WHERE CustomerID > @sID
-- Anzahl der Treffer zur�ckliefern
Return @@ROWCOUNT
</pre>
Wenn man dann mit Delphi 5 und ADO Express auf diese Stored Procedure zugreift, erhalte ich alle zutreffenden Datens�tze im TDBGrid und kann mit einer TDBNavigator-Instanz durch die Datenmenge browsen:
<pre>
object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 24
Top = 56
Width = 320
Height = 120
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
'al Catalog=Northwind;Data Source=(local);Use Procedure for Prepa' +
're=1;Auto Translate=True;Packet Size=4096;Workstation ID=G7-800;' +
'Use Encryption for Data=False;Tag with column collation when pos' +
'sible=False'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 24
Top = 24
end
object ADODataSet1: TADODataSet
Active = True
Connection = ADOConnection1
CursorType = ctStatic
CommandText = 'SPGetCustomer;1'
CommandType = cmdStoredProc
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 91
end
item
Name = '@sID'
Attributes = [paNullable]
DataType = ftString
Size = 20
Value = 'A'
end>
Left = 64
Top = 24
end
object DataSource1: TDataSource
DataSet = ADODataSet1
Left = 96
Top = 24
end
end
</pre&gt

**tompson** · 18.06.2001, 10:30

Schade, leider kann ich kein Delphi, kann man das auch unter VB erkl�hren, ich komme n�mlich immer nur auf den letzten DS.

MFG

tompso

**Andreas Kosch** · 19.06.2001, 06:54

Hallo,

dank ADO ist die Sprache und die Entwicklungsumgebung v�llig egal, sowohl Delphi als auch VB greifen auf das RecordSet-Objekt von ADO zur�ck. Ich stelle mein Delphi-Beispiel einmal so um, wie man es von der Reihenfolge und den Elementen her auch in VB schreiben w�rde:
<pre>
var
aConnection : _Connection;
aCommand : _Command;
aParam : _Parameter;
aRS : _RecordSet;
vName : OleVariant;
vRowsAffected: OleVariant;
iReturnValue : Integer;
swData : WideString;
begin
aConnection := CoConnection.Create;
aConnection.Open(cCS, '', '', adOpenForwardOnly);
try
aCommand := CoCommand.Create;
try
with aCommand do
begin
CommandType := adCmdStoredProc;
CommandText.....
... Parameter-Objekte zuweisen

aRS := Execute(vRowsAffected, EmptyParam, adOptionUnspecified);
iReturnValue := Parameters[0].Value;
iRecCount := aRS.Get_RecordCount;
swData := aRS.GetString(adClipString, iRecCount,
'; ', #13#10,'(NULL)');
ShowMessage(swData);
...
</pre>
Am Ende werden alle Datens�tze in einer MessageBox angezeigt, ShowMessage sollte sich in VB durch MsgBox (?) ersetzen lassen

Announcement

Auswerten von Resultsets in SPs unter TSQL

Auswerten von Resultsets in SPs unter TSQL

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment