عند الضغط على زر تعديل يفتح لي فورم ثاني يحمل بيانات السجل وبعد القيام بالتعديل وضغط زر حفظ التعديل لايحصل اي شي اتمنى حل مشكلتي هذي وذلك بالتعديل على المثال بحيث يتم حفظ التعديل من جميع القروبات بكس حاولت باكثر من طريقه ولكن لم افلح والنتيجه هي نفسها
تكفون راسي صار مصدع والله من الصبح وانا احاول ولكن مافيه فائدة
تعديل ممتاز بس انا لم اضيف سجل جديد يتم حفظه بنفس الاعمدة في الجدول بشكل صحيح ولكن عند طلب تعديل السجل عند عملية الحفظ فانه يتم تعديل ترتيب الحقول وفي اوقت يتم الحفظ بنفس الحقول
فما هو الحل
وهل توجد طريقة اخرى
السلام عليكم
اخي استخدم المعامل ؟ بدل المعامل @ عندما تتعامل مع اكسس
PHP كود :
Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click
Dim SQL As String = " Update tbl1 SET b = ?, B3= ?, B4 = ?, B5 = ?, B6 = ?, B7 = ?, B8 = ?, B10 = ?, B11 = ?, B12 = ? WHERE ID =? " Dim CMD As New OleDb.OleDbCommand(SQL, con) With CMD .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex.Text.Trim .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex5.Text.Trim .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex6.Text.Trim .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex7.Text.Trim .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex8.Text.Trim .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex9.Text.Trim .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex10.Text.Trim .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex12.Text.Trim .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex20.Text.Trim .Parameters.Add("?", OleDbType.LongVarChar).Value = Me.tex11.Text.Trim .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex5.Text.Trim .Parameters.Add("?", OleDbType.Integer).Value = CInt(Me.IDLb.Text.Trim)
End With Try If con.State = ConnectionState.Open Then con.Close() con.Open() Dim i As Integer = CMD.ExecuteNonQuery() MsgBox(i & " / " & "تم تعديل السجل بنجاح", , "حفظ التعديل")
Catch ex As Exception MsgBox(ex.ToString) Finally CMD.Dispose() con.Close()
12-05-16, 02:06 AM (آخر تعديل لهذه المشاركة : 12-05-16, 02:22 AM {2} بواسطة علي كعبي.)
ياخوان هل كل عمود في الجدوال عند عملية Update
لازم نضع له .Parameters في جملة Update
حتى حقل HijriID وحقل HijriYear وحقل ID
ام ليس ضروري
تكفون اعطوني الجواب لاني عند فتح التعديل الذي قام به احد الاخوان الله يجزه خير
عند عد الاعمدة في جملة الابديت كان 10 حقول وفي البرمتر كان 12
وهذي جملة الابديت التى وضعته ولكن مافية اي تغيير
Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click
لدي اقتراح اخي الكريم ان تربط بشبيكة البيانات datagridview بطريقة اضافة مصدر ثم سحب البيانات على شكل شبيكة بيانات وهنا لن تضطر لكتابة كود واحد بشرط ان لا ترابط بين الجداول.