08-03-18, 02:55 PM
تم الحل ولله الحمد
المشكلة كانت هي في استدعاء البيانات من الداتا جريد فيو الى الأدوات لانها تاتي ارقام وهذا طبيعي كونها داخل قاعدة البيانات ارقام
لكن المشكلة الحقيقة عند تعديل البيانات تتغير التي في الكمبوبوكس المربوطة مع جداول أخرى لأود اندكس وهو رقم واحد رغم اني لاأغيرها حيث اقوم بتعديل بيانات اخرى
'زر اختيار
وقد قمت بتغيير الكود لهذا
يوجد مثال مرفق
وشكرا لكم
المشكلة كانت هي في استدعاء البيانات من الداتا جريد فيو الى الأدوات لانها تاتي ارقام وهذا طبيعي كونها داخل قاعدة البيانات ارقام
لكن المشكلة الحقيقة عند تعديل البيانات تتغير التي في الكمبوبوكس المربوطة مع جداول أخرى لأود اندكس وهو رقم واحد رغم اني لاأغيرها حيث اقوم بتعديل بيانات اخرى
'زر اختيار
PHP كود :
'زر اختيار
'id = DataGridView1.CurrentRow.Cells(0).Value
'cmbEmp.Text = DataGridView1.CurrentRow.Cells(1).Value
'cmbDep.Text = DataGridView1.CurrentRow.Cells(2).Value
'cmbCer.Text = DataGridView1.CurrentRow.Cells(3).Value
'txtSalary.Text = DataGridView1.CurrentRow.Cells(4).Value
'dtpDateNomin.Value = DataGridView1.CurrentRow.Cells(5).Value
'txtExperience.Text = DataGridView1.CurrentRow.Cells(6).Value
'txtPhone.Text = DataGridView1.CurrentRow.Cells(7).Value
وقد قمت بتغيير الكود لهذا
PHP كود :
Dim str As String = " SELECT informations.ID, Employees.NameEmp, Departments.DepName, Certificates.CertName, informations.infoSalary, informations.infoNomin, informations.infoExpe, informations.infoPhone FROM Employees , Departments , Certificates , informations where Certificates.ID=informations.infoCertID and Departments.ID=informations.infoDepID and Employees.ID=informations.infoEmpID and informations.ID=" & DataGridView1.CurrentRow.Cells(0).Value
Dim cmd As New OleDbCommand(str, con)
con.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
id = dr(0)
cmbEmp.Text = dr(1)
cmbDep.Text = dr(2)
cmbCer.Text = dr(3)
txtSalary.Text = dr(4)
dtpDateNomin.Value = dr(5)
txtExperience.Text = dr(6)
txtPhone.Text = dr(7)
End If
dr.Close()
con.Close()
يوجد مثال مرفق
وشكرا لكم
