| Forum: Visual Basic |
Thema:
RE: Rückgabe eines Recordeset's aus einer Komponente |
Von:
Shinja Strasser (
02.05.2001 00:00) |
Zuerst musst du ein Command-Object instanziiren, den ConnectionString und um welche Art es sich handelt:
Set oCmdData = New ADODB.Command
oCmdData.ActiveConnection = "My ConnString"
oCmdData.CommandType = adCmdStoredProc
Danach gibst Du den Namen der Stored Procedure an:
oCmdData.CommandText = "Name of stored procedure"
Die Parameter müssen (!) in der Reihenfolge an das Command-Objekt angefügt werden:
Für "char"
oCmdData.Parameters.Append _
oCmdData.CreateParameter(ParamString(intCnt, 0), adVarChar, adParamInput, 100, ParamString(intCnt, 1))
Für "int"
oCmdData.Parameters.Append _
oCmdData.CreateParameter(ParamString(intCnt, 0), adInteger, adParamInput, 100, CLng(ParamString(intCnt, 1)))
Für "float"
oCmdData.Parameters.Append _
oCmdData.CreateParameter(ParamString(intCnt, 0), adDouble, adParamInput, 100, CDbl(ParamString(intCnt, 1)))
u.s.w (nimm dir die MSDN zur Hilfe -> command objects, creating)
Zum Schluss führst du die stored procedure aus:
Set rsData = oCmdData.Execute
Dieses rsData kannst du dann als Funktionswert übergeben
(Public Function rsMy (Parameter) As ADODB.Recordset)
oder als ByRef Argument, bzw auch als Globale Objektvariable.
Das gleiche gilt auch für SQL - Statements:
Der CommandType muss dann als adCmdText übergeben werden
Viele Grüße / with kind regards
Strasser Shinja,
www.netug.de - .net User Group
www.devtrain.de - asp.net Portal
www.ppedv.de - Brötchengeber
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
