تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ماهي طريقة الصحيحه لتصفير الرقم
#11
جرب هذا التعديل

.zip   مثال2.zip (الحجم : 201.54 ك ب / التحميلات : 30)
الرد }}}
تم الشكر بواسطة:
#12
[quote pid='105366' dateline='1504891331']
كود :
Function GetlstRcno(ByVal Names, ByVal OrderByfild) As Integer
       GetlstRcno = 0
       Dim STR = " select * from " & Names & " Order by " & OrderByfild
       Dim Da As New SqlClient.SqlDataAdapter(STR, CON)
       Dim Ds = New DataSet
       Da.Fill(Ds)
       Dim DT As DataTable
       DT = Ds.Tables(0)
       If DT.Rows.Count <> 0 Then
           Dim i = DT.Rows.Count - 1
           GetlstRcno = Val(DT.Rows(i).Item(OrderByfild))
       End If
   End Function

[/quote]
 هاذي الفانكشن مهمتها تجلب أخر رقم من عمود ID ونوع التايب INT الترقيم التلقائي وتزيد عليه 1 
وتضع الرقم في التكست والكود الأسفل مهمته يظهره في التكست بكس 
كود :
  txt_Num_Recorde.Text = Format(GetlstRcno("TBL_EMP", "ID") + 1, "BA00000")
عملت أجراء مخزن وظيفته يرجع لي أخر سنه تساوي السنه اللي بالفورم 
كود :
create proc [dbo].[selecYers]
@yesrs int
as
select * from TBL_EMP
where Yers =@yesrs
 وهذه فانكشن في الفورم 
الخاصه بالأجراء تقرأ السنه
كود :
Function statues(yesrs As Integer) As Boolean
       CMD = New SqlCommand("selecYers", con)
       CMD.CommandType = CommandType.StoredProcedure

       Dim pram As New SqlParameter
       pram = New SqlParameter("@yesrs", SqlDbType.Int)
       pram.Value = yesrs
       CMD.Parameters.Add(pram)
       da = New SqlDataAdapter(CMD)
       dt = New DataTable : dt.Clear()
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           Return True
       Else
           Return False
       End If
   End Function
هنـا تعبئأه الفانكشن ومكان الأختبار هو تكست بكس 1 
هنا يوضع الشرط ولكن كيف يوضع الشرط 


أحس المشكله في الداتا تايب للعمود id  يكون نصي 
كود :
        If statues(TextBox1.Text) = True Then
            ' في حالة أن السنه طابقة السنه يظيف إلى السجل السابق
        Else
            ' في حالة أن السنه لم تتطابق السنه معناته سنه جديده ولابد من البدء من 1
        End If

يالله يا جماعه شاركونا الحل الرائع والأسهل والأفضل برمجياً

يمكن فيه حل أجراء مخزن يختصر كل السطور هاذي ...؟؟؟!!!
الرد }}}
تم الشكر بواسطة:
#13
يـــامبرمجين وينكم أبي الحل ضروري والله
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 152 04-03-24, 07:15 AM
آخر رد: new_programer
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 458 07-02-24, 08:59 PM
آخر رد: Kamil
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 395 09-01-24, 01:41 AM
آخر رد: Taha Okla
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 248 06-01-24, 03:20 PM
آخر رد: Kamil
  خطأ عن مقارنه الرقم التفعيل Ashraf Elafify 2 254 31-12-23, 11:49 PM
آخر رد: Ashraf Elafify
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 292 14-12-23, 03:19 PM
آخر رد: Kamil
  طريقة عرض التقرير كريستال ريبورت في جهاز العميل Adel27213 2 341 10-12-23, 04:03 AM
آخر رد: Adel27213
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 350 25-11-23, 11:51 PM
آخر رد: Adel27213
  طريقة تحويل الأرقام إلى حروف Adel27213 2 487 18-11-23, 01:40 AM
آخر رد: sniper2030
  التحكم فى عرض طريقة التاريخ فى الاداة datetimepicker Ahmed.vb 3 504 08-11-23, 01:27 AM
آخر رد: الحزين اليماني

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم