02-08-20, 02:10 AM
(آخر تعديل لهذه المشاركة : 02-08-20, 02:34 AM {2} بواسطة ابراهيم ايبو.)
السلام عليكم ورحمة الله وبركاته
احي الكريم جيولوجي
شي طبيعي انه سيقوم بالتعديل على كل السجلات لانك جلبت الكل اولا والداتا تابل تحوي كل السجلات
والحل يكون كالتالي
نقوم بجملة استعلام مع داتا تابل جديدة بحيث نضع شرط ان تكون Emp_State تساوي ماهو موجود في الكومبوبوكس
هنا ستأتي السجلات المراد تعديلها فقط والتي تساوي في الحقل المطلوب الكومبو بوكس ويتم تعديل الحقل المطلوب وفق الاي دي الموجود في الداتا تابل الجديدة
والقيمة التي سنغيرها نأخذها من مربع النص رقم 5 نعمل ذلك في جملة For
جرب الكود التالي وبإذن الله سيعمل
احي الكريم جيولوجي
شي طبيعي انه سيقوم بالتعديل على كل السجلات لانك جلبت الكل اولا والداتا تابل تحوي كل السجلات
والحل يكون كالتالي
نقوم بجملة استعلام مع داتا تابل جديدة بحيث نضع شرط ان تكون Emp_State تساوي ماهو موجود في الكومبوبوكس
هنا ستأتي السجلات المراد تعديلها فقط والتي تساوي في الحقل المطلوب الكومبو بوكس ويتم تعديل الحقل المطلوب وفق الاي دي الموجود في الداتا تابل الجديدة
والقيمة التي سنغيرها نأخذها من مربع النص رقم 5 نعمل ذلك في جملة For
جرب الكود التالي وبإذن الله سيعمل
كود :
' داتا تابل جديدة
Dim dtt As New DataTable()
' جلب السجلات التي تطابق اليوم الموجود في الكومبوبوكس
da = New SqlDataAdapter("select * from Daily_Tabel Where Emp_State = '" & ComboBox1.Text & "'", Sqlcon)
da.Fill(dtt)
' اذا كان يوجد سجلات
If dtt.Rows.Count > 0 Then
For i As Integer = 0 To dtt.Rows.Count - 1
Cmd = New SqlCommand("Update Daily_Tabel set Emp_State=@Emp_State where ID = @ID", Sqlcon)
Cmd.Parameters.Add(New SqlParameter("@Emp_State", SqlDbType.NVarChar)).Value = TextBox5.Text ' ياحذ الفيمة من مربع النص 5
Cmd.Parameters.Add(New SqlParameter("@Id", SqlDbType.Int)).Value = CInt(dtt.Rows(i).Item(0)) ' ياحذ الفيمة الحقل الاول للداتاتابل الجديدة
If Sqlcon.State = ConnectionState.Closed Then Sqlcon.Open()
Cmd.ExecuteNonQuery()
Next
Sqlcon.Close()
End If
MessageBox.Show("تم تعديل البيانات بنجاح", "تعديل", MessageBoxButtons.OK, MessageBoxIcon.Information)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات