هذا ماذكرته لك وللسائل الكرام
ومازلنا نستقي منكم العلم والمعرف
فجزاكم الله خير الجزاء
والسلام عليكم ورحمة الله وبركاتة
وهذا مثال لمن أراد
هناك طرق مختلفة لعرض اعلى قيمة من حقل معين في الجدول على سبيل المثال الكود التالي يقوم بعرض اعلى قيمة بزيادة واحد من خلال انشاء اجراء او دالة ترجع قيمة من نوع رقم ثم يتم اضافة العدد واحد بجانب اسم هذا الاجراء او الدالة بعد الاستدعاء في هذه الطريقة يجب استخدام 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 Object, e As EventArgs) Handles Button5.Click
TextBox4.Text = String.Format("{0}", GetMaxID() + 1)
End Sub
اذا كانت قيمة الحقل قيمة خالية سيكون 0+1=1
لقد وجدت ما ابحث عنه ونفذت الكود بشكل صحيح شكرا لكم جميعا على هذا النقاش المفيد والشرح القيم .. جزاكم الله كل خير وان شاء الله هذا في ميزان حسناتكم
المناقشة كانت بناءة جزاكم الله خيرا استفدنا من بحر علمكم
عندي سؤال لو تكرمتم اين الخطا بهذا الكود
Sub fffffffff()
Dim command As New SqlCommand("SET IDENTITY_INSERT t1 off", cnn)
cnn.Open()
command.ExecuteNonQuery()
cnn.Close()
End Sub
وجزاكم الله خيرا
(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 هل قمت بتعريفه ام لا وتاكد من اتصالك بقاعدة البيانات
تفضل
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()
(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
استاذ جميل ممكن بعض اكواد التعامل مع الجداول والخلايا في قواعد بيانات اكسس من اضافه ونقل وحذف ونسخ الي آخره وايضا اضافه وحذف كلمه سر اكسس؟