16-05-22, 10:08 PM
بعد اذن اخي الدكتور ياسر
جرب هذا الكود
جرب هذا الكود
كود :
Dim sqlq5 As String = "insert into Details_Table3(Job,@Note2,Day,official_Time,Khoroj_Time,Emp_State1,Details,Note1,Note3)values(@Job,@Note2,@Day,@official_Time,@Khoroj_Time,@Emp_State1,@Details,@Note1,@Note3)"
Dim sqlcmd5 As New SqlCommand(sqlq5, Sqlcon)
sqlcmd5.Parameters.AddWithValue("@Note2",ComboBox2.Text)
sqlcmd5.Parameters.AddWithValue("@Job",DataGridView2.CurrentRow.Cells(15).Value.ToString)
sqlcmd5.Parameters.AddWithValue("@Day",DataGridView2.CurrentRow.Cells(3).Value.ToString)
sqlcmd5.Parameters.AddWithValue("@official_Time",DataGridView2.CurrentRow.Cells(22).Value.ToString)
sqlcmd5.Parameters.AddWithValue("@Khoroj_Time",DataGridView2.CurrentRow.Cells(57).Value.ToString)
sqlcmd5.Parameters.AddWithValue("@Emp_State1","متأخر")
sqlcmd5.Parameters.AddWithValue("@Details","")
sqlcmd5.Parameters.AddWithValue("@Note3",DateTimePicker3.Value)