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