[رضوان الجماعي]

(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 هل قمت بتعريفه ام لا وتاكد من اتصالك بقاعدة البيانات