تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة تعديل واضافة حقل
#1
مساعدة من فضلكم
عند ضغط زر اضافة او تعديل فان الحذث يقوم باضافة البيانات المطلوبة الا الحقل الاخير دائما ما يبقى خاليا مع ان الكود صحيح، والحقل attab من nvarchar وحولته الى real لكن دون جدوى اين الخلل
هذا كود التعديل وتقريبا نفسه كود الاضافة

 Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
        Dim i As Integer = DataGridView1.CurrentRow.Index
        cmd = New SqlCommand("update liste_pv set nom_pv=@id2,attab=@id3 where id_proces_v=@id1", con)
        cmd.Parameters.Clear()
        With cmd.Parameters
            .AddWithValue("@id1", DataGridView1.Rows(i).Cells(0).Value.ToString)
            .AddWithValue("@id2", DataGridView1.Rows(i).Cells(1).Value.ToString)
            .AddWithValue("@id3", DataGridView1.Rows(i).Cells(2).Value.ToString)
        End With
        con.Open()
        cmd.ExecuteNonQuery()
        MsgBox(DataGridView1.Rows(i).Cells(2).Value.ToString)
                con.Close()
        Form1_load(Nothing, Nothing)
    End Sub


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
(03-02-20, 02:10 AM)tahaayyoub كتب : مساعدة من فضلكم
عند ضغط زر اضافة او تعديل فان الحذث يقوم باضافة البيانات المطلوبة الا الحقل الاخير دائما ما يبقى خاليا مع ان الكود صحيح، والحقل attab من nvarchar وحولته الى real لكن دون جدوى اين الخلل
هذا كود التعديل وتقريبا نفسه كود الاضافة

 Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
        Dim i As Integer = DataGridView1.CurrentRow.Index
        cmd = New SqlCommand("update liste_pv set nom_pv=@id2,attab=@id3 where id_proces_v=@id1", con)
        cmd.Parameters.Clear()
        With cmd.Parameters
            .AddWithValue("@id1", DataGridView1.Rows(i).Cells(0).Value.ToString)
            .AddWithValue("@id2", DataGridView1.Rows(i).Cells(1).Value.ToString)
            .AddWithValue("@id3", DataGridView1.Rows(i).Cells(2).Value.ToString)
        End With
        con.Open()
        cmd.ExecuteNonQuery()
        MsgBox(DataGridView1.Rows(i).Cells(2).Value.ToString)
                con.Close()
        Form1_load(Nothing, Nothing)
    End Sub


التحديث يتم على السطر المحدد،
وتاكد من الحقل attab انه رقم فعلا
وان العمود الذي يظهر باسم (الاتعاب) هو فعلا الحل attab
واستخدمم النوع int غن كان عدد صحيح او float ان العدد يشمل كسور
كود :
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
   Dim r As DataGridViewRow = DataGridView1.CurrentRow
   Dim cmd As New SqlCommand("UPDATE [liste_pv] SET [nom_pv]=@nom_pv,[attab]=@attab WHERE [id_proces_v]=@id_proces_v", con)
   With cmd.Parameters
       .AddWithValue("@nom_pv", r.Cells(1).Value.ToString)
       .AddWithValue("@attab", Val(r.Cells(2).Value.ToString))
       .AddWithValue("@id_proces_v", r.Cells(0).Value.ToString)
   End With
   con.Open()
   If cmd.ExecuteNonQuery() > 0 Then
       MsgBox("تم التحديث", MsgBoxStyle.Information)
   Else
       MsgBox("فشل التحديث", MsgBoxStyle.Critical)
   End If
   MsgBox(r.Cells(2).Value.ToString)
   con.Close()
   Form1_load(Nothing, Nothing)
End Sub
الرد
تم الشكر بواسطة: tahaayyoub , ابراهيم ايبو , egypt 2020
#3
مشكور اخي تم تعديل نوع الحقل الى decimal وتم حل المشكل
بارك الله في الجميع
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#4
(03-02-20, 03:15 AM)tahaayyoub كتب : مشكور اخي تم تعديل نوع الحقل الى decimal وتم حل المشكل
بارك الله في الجميع

العفو اخي
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة بخصوص حفظ عدد داخل datagridview chankar 18 336 18-09-20, 02:46 AM
آخر رد: chankar
  مساعدة بالكتابه داخل التكست بوكس eeee2 5 123 17-09-20, 12:39 AM
آخر رد: Anas Mahmoud
  مساعدة بخصوص حفظ عدد داخل datagridview chankar 0 57 16-09-20, 09:19 PM
آخر رد: chankar
  [VB.NET] مساعدة في تعديل كود ميدو الفنان 4 123 16-09-20, 06:17 PM
آخر رد: ميدو الفنان
  [VB.NET] أرجو مساعدة ..... أريد أرسال رسالة بريد إلكترونى من البرنامج بواسطة الفيجول بيسك رامى محمد 2 85 16-09-20, 03:57 PM
آخر رد: رامى محمد
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 189 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب
  [سؤال] مساعدة من فضلكم ahmedhi6 0 50 16-09-20, 04:55 AM
آخر رد: ahmedhi6
  [VB.NET] تعديل البيانات من خلال فورم آخر EbrNaj00 6 176 16-09-20, 12:42 AM
آخر رد: EbrNaj00
  المساعدة في التعديل على كود تعديل البيانات في قاعدة سيكوال سيرفر momani33 3 68 15-09-20, 08:10 PM
آخر رد: Anas Mahmoud
  [VB.NET] تعديل في عملية البحث abu7shihab 4 161 11-09-20, 08:20 PM
آخر رد: T 1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم