Visual Basic-Codelisting für ExecUDF
Diese Funktion wird in zukünftigen Versionen von Microsoft SQL Server nicht mehr bereitgestellt. Verwenden Sie diese Funktion beim Entwickeln neuer Anwendungen nicht, und planen Sie das Ändern von Anwendungen, in denen es zurzeit verwendet wird.
Der folgende Code erstellt ExecUDF.
Dim proxy As New server.sql_endpoint
Dim response As New Object
Dim resultXml As System.Xml.XmlElement
Dim errorMessage As server.SqlMessage
Dim outputParam As System.Int32
Dim param
Dim i As System.Int16
Dim rowCount As server.SqlRowCount
Dim outParam As server.SqlParameter
ListBox1.Items.Add("1) Executing UDFReturning scalar. Result returned as int ")
ListBox1.Items.Add("")
param = TextBox1.Text
proxy.Credentials = System.Net.CredentialCache.DefaultCredentials
Dim result As System.Int16
result = proxy.UDFReturningAScalar()
ListBox1.Items.Add("UDF Return value ")
ListBox1.Items.Add(result)