تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود الاضافه
#11
هذا ماذكرته لك وللسائل الكرام

ومازلنا نستقي منكم العلم والمعرف 

فجزاكم الله خير الجزاء

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

وهذا مثال لمن أراد


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 365.64 ك ب / التحميلات : 75)
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد }}}
تم الشكر بواسطة: khodor1985
#12
هناك طرق مختلفة لعرض اعلى قيمة من حقل معين في الجدول على سبيل المثال الكود التالي يقوم بعرض اعلى قيمة بزيادة واحد من خلال انشاء اجراء او دالة ترجع قيمة من نوع رقم ثم يتم اضافة العدد واحد بجانب اسم هذا الاجراء او الدالة بعد الاستدعاء  في هذه الطريقة يجب استخدام Try - Catch لتفادي عدم حدوث خطأ عندما تكون قيمة الحقل قيمة خالية

PHP كود :
   Function GetMaxID() As Integer
        Try
            Dim da 
As New OleDbDataAdapter("Select MAX(id) from UTB"cn)
 
           Dim dt As New DataTable
            da
.Fill(dt)
 
           Dim id As Integer CInt(dt.Rows(0)(0).ToString())
 
           Return id
        Catch ex 
As Exception
            Return 0
        End 
Try

 
   End Function 
طريقة الاستدعاء تكون كالتالي
PHP كود :
   Private Sub Button5_Click(sender As ObjectAs EventArgsHandles Button5.Click
        TextBox4
.Text String.Format("{0}"GetMaxID() + 1)
 
   End Sub 
اذا كانت قيمة الحقل قيمة خالية سيكون 0+1=1
الرد }}}
تم الشكر بواسطة: khodor1985
#13
لقد وجدت ما ابحث عنه ونفذت الكود بشكل صحيح شكرا لكم جميعا على هذا النقاش المفيد والشرح القيم .. جزاكم الله كل خير وان شاء الله هذا في ميزان حسناتكم
الرد }}}
تم الشكر بواسطة: جميل علي , جميل علي , Adrees , khodor1985 , khodor1985
#14
المناقشة كانت بناءة جزاكم الله خيرا استفدنا من بحر علمكم 
عندي سؤال لو تكرمتم اين الخطا بهذا الكود 
  Sub fffffffff()
        Dim command As New SqlCommand("SET IDENTITY_INSERT t1 off", cnn)
        cnn.Open()
        command.ExecuteNonQuery()
        cnn.Close()
    End Sub
وجزاكم الله خيرا
                                                        Heart سبحان الله والحمد لله ولا اله الا الله والله اكبر  Heart
الرد }}}
تم الشكر بواسطة:
#15
(28-08-16, 03:51 PM)معتز الجازوي كتب : ما هو كود وضع اخر رقم من قاعده البيانات من  جدول الاصناف في text Box  وزياده رقم 1
مثلا  لو  كان اخر رقم صنف  50 في قاعدة البيانات  يظهر في text Box  51

اخي العزيز بامكان ايضن تحطه حتى في 
Public function 
وتسميها مثلا get_max_id
بعدها تعرف 
Dim number as integer 
بعدها عبر SqlCommand ("SELECT max(اسم العمود) form اسم الجدول "
نظرب مثال Dim cmd as New SqlCommand ("SELECT 
(max(id)form users")
لان السلكت ماكس بترجع فينا لاعلى رقم في العمود 
بعدها 
بامكانك تعمل اتصالك بالطريقه الي تحبها المهم انك تستخدم return مثال توضيحي 
Try
Dim cmd as New SqlCommand ("SELECT 

(max(id)form users")
If Con.State =1 then Con.Close 
Con.Open ()
Number = cmd.ExecuteNonQuery 
Con.Close ()
Catch ex as Exception 
Number =0
Con.Close 
End Try 
Return  Number 
بعدها حتستخدم الفنكشن ده في سب الي حيعملك كلير للادوات المرئيه مثل التكست والكمبوبكس وخلافه 
وحتسميه مثلا 
Clear _text الي حا تعمله في سب 
ولي حا يكون على النحو التالي مثال توضيحي 
Sup clear _text
1+()Me.textid.text=get_max_id
وبعده حتعمل اوامر تفريغ الحقول 
اتمنى اني قدرت اوصلك المعلومه

(31-10-16, 11:25 AM)العواد الصغير كتب : المناقشة كانت بناءة جزاكم الله خيرا استفدنا من بحر علمكم 
عندي سؤال لو تكرمتم اين الخطا بهذا الكود 
  Sub fffffffff()
        Dim command As New SqlCommand("SET IDENTITY_INSERT t1 off", cnn)
        cnn.Open()
        command.ExecuteNonQuery()
        cnn.Close()
    End Sub
وجزاكم الله خيرا

افضل ان هذا الكود يكون مع الدوال الشرطيه if والتأكد اولا من قفل الاتصال بعدها فتحه كا التالي 
If Con.State =1 then Con.Close 
Con.Open 
Command. Executenonquery 
Con.Close 
اذا طلع معك خطى راجع SqlCommand هل قمت بتعريفه ام لا وتاكد من اتصالك بقاعدة البيانات

اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
جاهز لمساعدة اي حد يحتاج لمساعدتي
طبيب اعشق البرمجة . 
الرد }}}
تم الشكر بواسطة:
#16
تفضل
Public Function Max_Table1()
Dim Number As Integer
Try
Dim cmd As New OleDbCommand("Select Max(Emp_Code) From Table1 ", Con)
If con.State = 1 Then con.Close()
con.Open()
Number = cmd.ExecuteScalar
con.Close()
Catch ex As Exception
Number = 0
con.Close()
End Try
Return Number
End Function
ورح تستخدمه في Call Clear_Text()

اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
جاهز لمساعدة اي حد يحتاج لمساعدتي
طبيب اعشق البرمجة . 
الرد }}}
تم الشكر بواسطة:
#17
(07-09-22, 11:32 AM)رضوان الجماعي كتب : تفضل
 Public Function Max_Table1()
       Dim Number As Integer
       Try
           Dim cmd As New OleDbCommand("Select Max(Emp_Code) From Table1 ", Con)
           If con.State = 1 Then con.Close()
           con.Open()
           Number = cmd.ExecuteScalar
           con.Close()
       Catch ex As Exception
           Number = 0
           con.Close()
       End Try
       Return Number
   End Function
ورح تستخدمه في   Call Clear_Text()

الله يعطيك العافية --

لكن :
السؤال الذي تجيب عليه آخر مشاركة فيه تعود لعام  2016
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة:
#18
استاذ جميل ممكن بعض اكواد التعامل مع الجداول والخلايا في قواعد بيانات اكسس من اضافه ونقل وحذف ونسخ الي آخره وايضا اضافه وحذف كلمه سر اكسس؟
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [VB.NET] الاضافه والحذف والتعديل رضوان الجماعي 0 596 01-09-22, 01:52 AM
آخر رد: رضوان الجماعي
  [VB.NET] كود الاضافه و الحذف و التعديل في VB.NET Ahmed Ihsan 1 4,908 12-04-21, 05:46 AM
آخر رد: alims
Exclamation [VB.NET] عدم الاضافه المتكرره في الست فيو Ebrahim5556 6 2,394 03-11-18, 12:15 PM
آخر رد: elgokr
  الاضافه والمسح من ليست بوكس مرتبطه بداتا سورس makky 0 1,150 21-10-18, 04:39 PM
آخر رد: makky

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


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