زرار التعديل في المشروع لايسمح بتكرار الاسم مرة اخري داخل المشروع وهذا يعمل بطريقة صحيحة ولكن عند تغيير رقم المحمول برغم عدم تكراره مرة اخري تظهر رسالة تم تكرار هذا الاسم برغم ان التغيير يكون في رقم المحمول ليس في الاسم
يا اخي غريب مفيش مفصلين هنا يصلحو الزرار
=============
اخي بالنسبة لزرار الحفظ مفيش مشكلة لكن المشكلة في التعديل
من زرار التعديل احذف الاستعلام هذا
PHP كود :
Dim m As String Dim SQLstr2 As String = "SELECT nam FROM student WHERE nam= '" & (TextBox2.Text) & "'" ' Dim da = New OleDbDataAdapter(SQLstr, con)
If CON.State() Then CON.Close() CON.Open() Dim cmd As New OleDbCommand(SQLstr2, CON) Dim dr As OleDbDataReader dr = cmd.ExecuteReader() Dim b As String = "" If dr.Read() = True Then m = dr.Item(0).ToString CON.Close() End If If TextBox2.Text = m Then MsgBox(" هذه الحالة مسجلة قبل ذلك ", , "رسالة")
Exit Sub End If
وابق على هذا فقط
PHP كود :
Try Dim SavInto1 As New OleDb.OleDbCommand Dim Conn As New OleDbConnection(conStr) SavInto1.Connection = Conn SavInto1.CommandType = CommandType.Text SavInto1.CommandText = "UPDATE student set nam ='" & Trim(TextBox2.Text) & "', mob ='" & Trim(TextBox3.Text) & "' where id = " & TextBox1.Text & " " Conn.Open() SavInto1.ExecuteNonQuery() Conn.Close() MsgBox("تم التعديل بالنجاح", , "رسالة") Me.Refresh() ' m() mov() Catch ex As Exception End Try
بس عندي ملاحظة انت ليش مسوي استعلم على اسم و بشرط اسم هو اردي عندل ميتاج تسوي عملية استعلم لية انا قمبت بتبديله الى رقم الجوال
واثنين ما يحتاج انك تسوي تعديل على اسم يكفي رقم الجوال
PHP كود :
Dim m As String Dim SQLstr2 As String = "SELECT mob FROM student WHERE nam= '" & (TextBox2.Text) & "'" ' Dim da = New OleDbDataAdapter(SQLstr, con)
If CON.State() Then CON.Close() CON.Open() Dim cmd As New OleDbCommand(SQLstr2, CON) Dim dr As OleDbDataReader dr = cmd.ExecuteReader() Dim b As String = "" If dr.Read() = True Then m = dr.Item(0).ToString CON.Close() End If If TextBox2.Text = m Then MsgBox(" هذه الحالة مسجلة قبل ذلك ", , "رسالة")
Exit Sub End If Try Dim SavInto1 As New OleDb.OleDbCommand Dim Conn As New OleDbConnection(conStr) SavInto1.Connection = Conn SavInto1.CommandType = CommandType.Text 'SavInto1.CommandText = "UPDATE student set nam ='" & Trim(TextBox2.Text) & "', mob ='" & Trim(TextBox3.Text) & "' where id = " & TextBox1.Text & " " SavInto1.CommandText = "UPDATE student set mob ='" & Trim(TextBox3.Text) & "' where id = " & TextBox1.Text & " " Conn.Open() SavInto1.ExecuteNonQuery() Conn.Close() MsgBox("تم التعديل بالنجاح", , "رسالة") Me.Refresh() ' m() mov() Catch ex As Exception End Try
(03-06-14, 01:14 PM)عابر سبيل كتب : اخي انت مركز معانا
ما بيتكرر مرتين بالنسبة للتعديل الي عملناه على زر التعديل
بيتكرر اذا عملت التعديل على زر الحفظ فقط
انت اشتغل على زر التعديل فقط بالطريقة الي اعطيناك اياه جربها طيب
هو قصدة على ما اعتقد انا يمكن الى المستخدم تعديل على TextBox الخاص الي فية اسم المستخدم لانة هو في عملية التعديل يقوم بتعديل اسم و رقم مع بعض و يقول انا اتعديل فية خطا انا متكد انه لم يقوم بتجربة الكود