03-02-20, 02:10 AM
(آخر تعديل لهذه المشاركة : 03-02-20, 02:14 AM {2} بواسطة 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 من 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