مشكله في ارجاع الوقت من الGETDATE

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

أختي الكريمة يا ريت ترفقي كود الاجرائية المخزنة حتى نساعد أكتر ..

لعل المشكلة فيها ..

بسم الله الرحمن الرحيم

شكرا لك أخى

الإجرائية المخزنة هى

CREATE PROCEDURE GetTime
	/*
	(
	@parameter1 int = 5,
	@parameter2 datatype OUTPUT
	)
	*/
AS
SELECT LTRIM(RIGHT(CONVERT(CHAR(19),GETDATE(),100),7))
	/* SET NOCOUNT ON */ 
	RETURN

GO

أخى الكريم عندما اعمل exec <storedprocedure name> فى ال sql تعمل جيدا وانما عندما احاول اعمل Execute Scaler لا تعمل وتعطى الerror السابق ذكره

السلام عليكم

لازم تغيري نوع الإجرائية إلى Scalar Function :

Create Function GetTime()
Returns Varchar(7)
Begin
	Declare @DateVar AS Varchar(10)
	SELECT @DateVar = LTRIM(RIGHT(CONVERT(CHAR(19),Current_TimeStamp ,100),7))
	Return  ( @DateVar )
End

و جربي بعدها ... سوف تكون أمورك عال العال إن شاء الله ..

بالتوفيق أختي الكريمة ..

بسم الله الرحمن الرحيم

شكرا لك أخى عماد ولكنى عندما جربت الكود الذى كتبته

وعند محاول التأكد منه ظهر لى هذا الخطأ

اقتباس

Server: Msg 170, Level 15, State 1, Procedure GetTime, Line 2

Line 2: Incorrect syntax near 'Returns'.

Server: Msg 443, Level 16, State 1, Procedure GetTime, Line 4

Invalid use of 'getdate' within a function.

اتمنى من حل ان شاء الله

السلام عليكم

دة مثال فى السريع

CREATE FUNCTION dbo.TimePart
  (@fDate datetime )
RETURNS varchar(10)
AS
BEGIN
  RETURN ( CONVERT(varchar(7),right(@fDate,7),101) )
END

ويمكن كتابة ال sp بالشكل التالى

CREATE PROCEDURE GetTime
AS
SELECT dbo.TimePart(getdate())
 RETURN
GO

	Dim dr As SqlClient.SqlDataReader
		Dim cmd As New SqlClient.SqlCommand("select dbo.TimePart(getdate())", SqlConnection1)
		SqlConnection1.Open()
		dr = cmd.ExecuteReader
		dr.Read()
		Me.TextBox1.Text = dr.Item(0).ToString
		dr.Close()
		SqlConnection1.Close()

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

يبدو أن هناك خطأ في الـ Function اللي كتبتوا .. لأن الدوال لا تقبل استخدام الـ GetDate

والـ Current_TimeStamp .. لذا يمكنك أن تضيفي هذه الطريقة إلى طريقة أخي محمد وهي عبارة عن دالة بسيطة ..

لتنفيذ استعلامات Scalar ببساطة و تعيد قيمة نصية ..

Public Function Execute(ByRef sT_Sql As String, ByRef objCon As SqlConnection) As Boolean
		Try
			If (objCon.State = ConnectionState.Closed) Then objCon.Open()


			Dim objCmd As SqlCommand = New SqlCommand(sT_Sql, objCon)
			With objCmd
				.CommandType = CommandType.Text
				.ExecuteNonQuery()
			End With
			Return True
		Catch ex As Exception
			Error_Message("Execute", ex)
			Return False
		End Try

	End Function

ثم قومي باستدعاء هذه الدالة كما يلي :

Execute_Scalar("SELECT LTRIM(RIGHT(CONVERT(CHAR(19),Current_TimeStamp ,100),7))", objCon)

بالتوفيق ..