الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هدية مجمعة وظائف مهمه

بدأه KARIMSOFT في 9 يونيو 2007 · 5 رد · 1,196 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

هدية صغيره

1-if

2-format set val -- 0001 0012 0125

3-formatdate dd/mm/yyyy or mm/dd/yyyy

4-ColToRow

CREATE FUNCTION [dbo].[udfIIF] (@value nvarchar(100) , @valueToCompare nvarchar(100) , @TrueValue nvarchar(100) , @FalseValue nvarchar(100))
RETURNS nvarchar(100)  AS  
BEGIN 
Declare @retValue nvarchar(100)
Set @retValue=@FalseValue
If @Value=@valueToCompare Set @retValue=@TrueValue
Return @retValue
END
-----------------------------------
CREATE FUNCTION dbo.udfFormat (@val1 nvarchar(100), @val2 nvarchar(100))
RETURNS nvarchar(100)
AS
BEGIN 
RETURN (substring(@val2,0,len(@val2)-len(@val1)+1) + @val1)
END 
-----------------------------------
CREATE FUNCTION [dbo].[udfFormatDate] (@dDate  datetime,@cChar char)
RETURNS nvarchar(100)  AS 
BEGIN 
Declare @retValue nvarchar(100) 
Set @retValue=month(@dDate) + substring(@cChar,2,1)+day(@dDate) +substring(@cChar,5,5)
if substring(@cChar,0,2)='DD'  Set @retValue=day(@dDate) + substring(@cChar,2,1)+month(@dDate) +substring(@cChar,5,5)
Return @retValue
END
-----------------------------------
CREATE function [dbo].[udfcol2row] (@nValue int) 
returns varchar(2000) as 
begin
DECLARE @psCourseContentSubName varchar(200),  @sName varchar(800)
DECLARE course CURSOR FOR 
SELECT psCourseContentSubName FROM vCourseContentSubName where ptnActionCourseContentCode=@nValue 
OPEN course
FETCH NEXT FROM course 
INTO  @psCourseContentSubName
set @sName=''
WHILE @@FETCH_STATUS = 0
BEGIN

set @sName=@sName+@psCourseContentSubName+'-'

   FETCH NEXT FROM course 
   INTO  @psCourseContentSubName
END

CLOSE course
DEALLOCATE course
return  @sName
end

اي خدمة

#2

يعطيك ألف عافية

بس عارف .. بعض الناس كسالى وما فيهم يتابعوا الكود خصوصا بدون شرح

فاذا ما كان في تعب عليك ممكن حتى لو مقدمة ؟!

#3

في الدالة الثالثة udfFormatDate يمكنك استخدام convert

convert(varchar(19), @date1 ,103)   --dd/mm/yyyy
convert(varchar(19), @date1 ,1)   --mm/dd/yyyy

وفي الدالة الرابعة يمكنك اختصارها بدون استخدام cursor كمايلي

CREATE function [dbo].[udfcol2row] (@nValue int)
returns varchar(2000) as begin DECLARE @psCourseContentSubName varchar(200),  @sName varchar(800)

set @sName =''
SELECT  @sName = @sName + '-' +  psCourseContentSubName FROM vCourseContentSubName where ptnActionCourseContentCode=@nValue

set @sName =substring(@sName ,2,800)--reomve first dash

return  @sName
end
#4

شكر لك اخي على هذه الاجراءات ، بس ممكن تعطينا وظيفة كل واحد منهم لاني لم افهم شيئا :huh:

#5

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

شكرا لكم جميعا

شكر خاص للاخ TareqVB علي الاتعديلات كل الطرق تادي الي روما

اول وظيفة ifلعم وجودها في السيكول وهي تاخذ اربع قيم القيمتان المقانتين والقيمة الصحيحة والخاطئة

ثاني وظيفة Formatلاضافة رمز علي يسار النص لتبيت الطول 0001

ثالث وظيفة FormatDate لختيار نانج التاريخ

رابع وظيفة col2row دمخ السجلات في سجل واحد

#6

انا دلوقتي عامل جدول

من ضمن الحقول حقل يتم وضع فيه كود المستخدم وعاوز احط فيه القيمة الإفتراضية بتاعته كود المستخدم الحالي

بس خلي بالكوا ان عملية الــ Insert عن طريق الفيجوال بيزك

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…