السلام عليكم أعزائي : أنا أنتقلت حديثأ إلى دوت نت .وتنقصني بعض التوضيحات:
1- كود عرض بيانات الداتا جريد فيو في التكست تمهيداً لتحريرها.
2- نا استخدم هذا الكود لإضافة بيانات جديدة .أريد التعديل في الكود بحيث لايكون هناك سجل مطابق في الجدول.
Dim dataset1 As New DataSet
Dim dataadpater1 As New OleDbDataAdapter(sql, db)
dataadpater1.Fill(dataset1, "e_tab")
If code.Text = "" Or sch_name.Text = "" Or emp_name.Text = "" Or emp_id.Text = "" Or employment.Text = "" Or emp_file.Text = "" Or emp_phone.Text = "" Or email.Text = "" Then MsgBox("لابد من إكمال البيانات لإتمام الحفظ.", MsgBoxStyle.Critical, "تنبيه") : Exit Sub
Dim saveinto As New OleDbCommand
saveinto.Connection = db
saveinto.CommandType = CommandType.Text
saveinto.CommandText = "insert into e_tab(code,sch_name,emp_name,emp_file,employment,emp_id,emp_phone,email)values ('" & code.Text & "', '" & sch_name.Text & "' , '" & emp_name.Text & "' , '" & emp_file.Text & "', '" & employment.Text & "' , '" & emp_id.Text & "' , '" & emp_phone.Text & "' , '" & email.Text & "')"
db.Open()
saveinto.ExecuteNonQuery()
db.Close()
