30-01-19, 06:15 PM
السلام عليكم اخوتي
بارك الله فيكم جميعا علي مساعدتكم
ربنا يجعله في ميزان حسناتكم جميعا ان شاء الله
عندي سؤال ارجو من الله ان اجد الاجابه
عندي برنامج تحاليل طبيه بقاعدة بيانات اكسيس 2017
اقوم بتسجيل بيانات المريض والتحاليل المطلوبه له ويقوم البرنامج بحفظ البيانات في جدول والتحاليل المطلوبه في جدول اخر
ثم اذا اردت تعديل بيانات المريض او اردت تعديل التحاليل المطلوبه له يقوم البرنامج بعرض بيانات المريض المحدد في فورم التعديل ويتم عرض تحاليل المريض في ليست فيو
وعند التعديل علي التحاليل المطلوبه اللي هي في الليست فيو ثم الضغط علي تعديل يتم التعديل بطريقه صحيحه
ولكن المشكله تظهر عندما اقوم بالضغط علي زر التعديل ولم اقوم بالتعديل علي التحاليل في الليست فيو فيظهر خطأ
يعني علشان يعمل تعديل بشكل صحيح لازم اعدل علي البيانات الي موجوده في الليست فيو
اتمني ان اكون وصلت المطلوب كويس وارجو ان اجد حل لهذه المشكله ان شاء الله
مرفق صورة للخطأ اللي بيظهر لي
ده الكود المستخدم في عملية التعديل
بارك الله فيكم جميعا علي مساعدتكم
ربنا يجعله في ميزان حسناتكم جميعا ان شاء الله
عندي سؤال ارجو من الله ان اجد الاجابه
عندي برنامج تحاليل طبيه بقاعدة بيانات اكسيس 2017
اقوم بتسجيل بيانات المريض والتحاليل المطلوبه له ويقوم البرنامج بحفظ البيانات في جدول والتحاليل المطلوبه في جدول اخر
ثم اذا اردت تعديل بيانات المريض او اردت تعديل التحاليل المطلوبه له يقوم البرنامج بعرض بيانات المريض المحدد في فورم التعديل ويتم عرض تحاليل المريض في ليست فيو
وعند التعديل علي التحاليل المطلوبه اللي هي في الليست فيو ثم الضغط علي تعديل يتم التعديل بطريقه صحيحه
ولكن المشكله تظهر عندما اقوم بالضغط علي زر التعديل ولم اقوم بالتعديل علي التحاليل في الليست فيو فيظهر خطأ
يعني علشان يعمل تعديل بشكل صحيح لازم اعدل علي البيانات الي موجوده في الليست فيو
اتمني ان اكون وصلت المطلوب كويس وارجو ان اجد حل لهذه المشكله ان شاء الله
مرفق صورة للخطأ اللي بيظهر لي
ده الكود المستخدم في عملية التعديل
PHP كود :
Dim update_Analysis As String
update_Analysis = "Insert into Analysis_Table (Patient_Code,RegistrationDate,ResultDate,PatientTitle,
PatientName,DoctorTitle,DoctorName,Age,Years,Sex,GroupName,Analysis_Name,Analysis_Price,Rigesterd)
values(@Patient_Code,@RegistrationDate,@ResultDate,@PatientTitle,@PatientName,
@DoctorTitle,@DoctorName,@Age,@Years,@Sex,@GroupName,@Analysis_Name,@Analysis_Price,@Rigesterd)"
For i As Integer = 0 To ListView1.Items.Count - 1
Analysis_Name = ListView1.Items(i).SubItems(0).Text
Analysis_Price = ListView1.Items(i).SubItems(1).Text
GroupName = ListView1.Items(i).SubItems(3).Text
Dim cmd = New OleDbCommand(update_Analysis, connAccess2007)
cmd.Parameters.Add(New OleDbParameter("@Patient_Code", OleDbType.Integer)).Value = LblCode.Text
cmd.Parameters.Add(New OleDbParameter("@RegistrationDate", OleDbType.Date)).Value = DateTimePicker1.Text
cmd.Parameters.Add(New OleDbParameter("@ResultDate", OleDbType.Date)).Value = DateTimePicker2.Text
cmd.Parameters.Add(New OleDbParameter("@PatientTitle", OleDbType.VarChar)).Value = ComboBox1.Text
cmd.Parameters.Add(New OleDbParameter("@PatientName", OleDbType.VarChar)).Value = TextBox10.Text
cmd.Parameters.Add(New OleDbParameter("@DoctorTitle", OleDbType.VarChar)).Value = ComboBox3.Text
cmd.Parameters.Add(New OleDbParameter("@DoctorName", OleDbType.VarChar)).Value = ComboBox4.Text
cmd.Parameters.Add(New OleDbParameter("@Age", OleDbType.VarChar)).Value = TextBox1.Text
cmd.Parameters.Add(New OleDbParameter("@Years", OleDbType.VarChar)).Value = ComboBox5.Text
cmd.Parameters.Add(New OleDbParameter("@Sex", OleDbType.VarChar)).Value = ComboBox6.Text
cmd.Parameters.Add(New OleDbParameter("@GroupName", OleDbType.VarChar)).Value = GroupName
cmd.Parameters.Add(New OleDbParameter("@Analysis_Name", OleDbType.VarChar)).Value = Analysis_Name
cmd.Parameters.Add(New OleDbParameter("@Analysis_Price", OleDbType.Double)).Value = Analysis_Price
cmd.Parameters.Add(New OleDbParameter("@Rigesterd", OleDbType.Boolean)).Value = CheckBox2.Checked
If connAccess2007.State = 1 Then connAccess2007.Close()
connAccess2007.Open()
cmd.ExecuteNonQuery()
connAccess2007.Close()
Next