[ali_ahmed12]

(08-11-22, 11:18 AM)barawy كتب : عليكم السلام ورحمة الله
فى ملاحظه صغيرة على الكود: هو ان انت عايز تغير بأسم جديد وفى نفس الوقت بتستدعى البيانات بعبارة SQL بدلالة ال unit_name اللى هو اصلا جديد
الحل انك تعدل ال sql بحيث تكون بدلالة رقم الوحدة مثلا وفى الحاله دى تقدر تغير اسم الوحده

جرب الكود التالى باعتبار ان رقم الوحدة مثلا هو Unite_ID  و ان الخانه الخاصة بها txt_ID
التغيير فى العبارة دي
"select * from unite where unite_ID='" & TXT_ID.Text & "'", Module1.con

كود :

Private Sub btn_edit_Click(sender As Object, e As EventArgs) Handles btn_edit.Click
      If TXT_NAME.Text = "" Then
          MessageBox.Show("يرجي ادخال اسم الوحدة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
          TXT_NAME.Select()
          Exit Sub
      End If
      '============كود التعديل
      Dim DT As New DataTable
      Dim DA As New SqlDataAdapter("select *from unite where unite_ID='" & TXT_ID.Text & "'", Module1.con)
      DA.Fill(DT)
      If DT.Rows.Count = 0 Then
          MessageBox.Show("اسم الوحدة غير موجود ", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)

      Else
          Dim DR = DT.Rows(0)
          DR!unite_name = TXT_NAME.Text
          Dim SAVE As New SqlCommandBuilder(DA)
          DA.Update(DT)
          MessageBox.Show("تم تعديل اسم الوحدة بنجاح", "رسالة تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
          btn_new_Click(sender, e)

      End If
  End Sub

انا اقصد تعديل يعني مثلا اسم الوحده صندوق اريد تغيره بدل صندوق الي عبوه وليس إضافة وحده جديده
غيرت جملة استعلام لزالت تظهر نفس مشكله اسم الوحدة موجود مسبقا 

كود :

Private Sub btn_edit_Click(sender As Object, e As EventArgs) Handles btn_edit.Click
       If MessageBox.Show("هل ترغب في تعديل اسم الوحدة", "رسالة تنبيه", MessageBoxButtons.YesNo) = DialogResult.No Then Exit Sub

       Dim DT As New DataTable
       Dim DA As New SqlDataAdapter("select *from unite where unite_code='" & TXT_CODE.Text & "'", Module1.con)
       DA.Fill(DT)
       If DT.Rows.Count = 0 Then
           MessageBox.Show("اسم الوحدة غير موجود ", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
       Else
           Dim DR = DT.Rows(0)
           DR!unite_name = TXT_NAME.Text
           Dim SAVE As New SqlCommandBuilder(DA)
           DA.Update(DT)
           MessageBox.Show("تم تعديل اسم الوحدة بنجاح", "رسالة تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
           btn_new_Click(sender, e)
       End If

   End Sub