13-02-18, 04:51 PM
السلام عليكم
الكود اهو
كود :
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