[MOSTAFA.KAMEL]

السلام عليكم 

   

الكود اهو

كود :

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Try
           dataconnection()
           If (String.IsNullOrEmpty(textna.Text) OrElse String.IsNullOrWhiteSpace(textpas.Text)) Then
               MessageBox.Show("يجب ادخال اسم المستخدم والسريال ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
               Return
           End If
           Dim ID As Integer = CInt(DataGridView1(0, DataGridView1.SelectedRows(0).Index).Value.ToString())
           Dim str As String = String.Format("Update App set EmpName='{0}',EmpAss='{1}',EmpNum='{3}',DateAdd=#{4}#,Expirydate=#{5}# WHERE id={6}", textna.Text, textpas.Text, textser.Text, DateTimePicker1.Value.ToString("yyyy/MM/dd"), DateTimePicker2.Value.ToString("yyyy/MM/dd"), ID)
           Dim cmd As New OleDbCommand(str, cnn)
           cmd.ExecuteNonQuery()
           cnn.Close()
           MessageBox.Show("تم التحديث")
           loaddata()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub
End Class