كيفية استدعاء Scalar function عن طريق Ado.NET ؟

السلام عليكم

تتعامل معها كالـSP تماما

فلو افترضنا انه لدينا هذه الScalar Function

CREATE FUNCTION LMax
(

    @arg1 as int,
@arg2  as int
)
RETURNS int
AS BEGIN RETURN CASE
WHEN @arg1 >= @arg2 THEN @arg1
WHEN @arg2 > @arg1 THEN @arg2
ELSE NULL
end
END
GO

الكود اللازم لاسترجاع قيمة العائدة من الFUNCTION

Using cmd As SqlCommand = New SqlCommand
			cmd.CommandType = CommandType.StoredProcedure
			cmd.CommandText = "dbo.LMax"
			cmd.Parameters.Add("@arg1", SqlDbType.Int).Value = 10
			cmd.Parameters.Add("@arg2", SqlDbType.Int).Value = 15

			Dim returnValue As SqlParameter = cmd.CreateParameter
			returnValue.ParameterName = "RetunValue"
			returnValue.Direction = ParameterDirection.ReturnValue
			cmd.Parameters.Add(returnValue)
			Using cnn As SqlConnection = New SqlConnection
				cnn.ConnectionString = My.Settings.CONECTION_STRING
				cnn.Open()
				cmd.Connection = cnn
				cmd.ExecuteNonQuery()
				cnn.Close()
				Dim intValue As System.Nullable(Of Int32) = CType(cmd.Parameters("RetunValue").Value, Nullable(Of Int32))
				If intValue.HasValue Then
					MsgBox(intValue.Value.ToString)
				Else
					MsgBox("ERR")
				End If



			End Using


		End Using

لاحظ كيف قمنا باضافة بارميتر الى كائن الامر وتحويل الــDirection

ReturnValue

الى

السلام عليكم ورحمة الله و بركاته :

أولاً : شكراً يا سيدي المشرف Solo . راح عن بالي البارامتر @RETURN_VALUE لذا سألت عن الطريقة ..

طريقتك جميلة .. لكنني كتبت الكود ( مختصراً .. فقط طريقة جلب النتيجة ) بطريقتي ووددت أن أطرحه للفائدة العامة كالتالي :

بفرض أن الـ Scalar Function ليس لها بارامترات .. :)

Dim s As String
		Try
			If objCon.State <> ConnectionState.Open Then objCon.Open()
			With objCmd
				.CommandType = CommandType.Text
				.Connection = objCon
				.CommandText = "select dbo.MyFun()"
				s = .ExecuteScalar().ToString()
			End With
			MessageBox.Show("value : " & s)
		Catch ex As Exception

		End Try

زادك الله من علمه

Table Valued Function

و الدوال دي كيف نتعامل معاها

السلام عليكم ورحمة الله وبركاته :

أسهل يا أخي الكريم ..

لنفترض عندك Table-Valued Function كالتالي :

Create function MyFunction()
Returns @TB Table(id int identity(1,1), name Nvarchar(50) )  
Begin 
  insert Into @TB(name) Values('Ahmad')
  insert Into @TB(name) Values('Samer')
  insert Into @TB(name) Values('Ameer')
  return
End

نختبرها الآن :

Select * From MyFunction()

ببساطة يمكنك الآن استخدام الـ كائن من نوع SqlCommand و تقوله التالي :

With myCmd
 .commandType = CommandType.Text  
 .commandText = "Select * From MyFunction()"
 .connection = objConnection
End With

وبعديها تستخدم كائن ملائم البيانات لتملأ الـ DataSet

Dim MyDA AS New SqlDataAdapter (myCmd)
MyDA.Fill(MyDataSet)

وستكون البيانات بإذن الله قد أصبحت في الـ DataSet منتظرة حضرتك (أخي الكريم) لتعرضها في الشبكة ..

أتمنى أن أكون قد أفدتك بهذه اللمحة السريعة :)