تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عرض بيانات في الليست فيو
#1
السلام عليكم اخوتي
بارك الله فيكم جميعا علي مساعدتكم
ربنا يجعله في ميزان حسناتكم جميعا ان شاء الله
عندي سؤال ارجو من الله ان اجد الاجابه
عندي برنامج تحاليل طبيه بقاعدة بيانات اكسيس 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_AnalysisconnAccess2007)
 
                           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 
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
GroupName ListView1.Items(i).SubItems(2).Text 
الرد }}}
تم الشكر بواسطة: Emam emam , Emam emam
#3
(01-02-19, 01:51 AM)asemshahen5 كتب :
PHP كود :
GroupName ListView1.Items(i).SubItems(2).Text 

بارك الله فيك اخي
حضرتك تقصد اني اكتب   Subitems    2  بدلا من 3
الرد }}}
تم الشكر بواسطة:
#4
كتبت 3 بدل 2 .

3 غير موجود بالليست بوكس
الرد }}}
تم الشكر بواسطة: Emam emam
#5
(01-02-19, 10:36 PM)asemshahen5 كتب : كتبت 3 بدل 2 .

3 غير موجود بالليست بوكس

للعلم 3 موجود ولكن لا اريد ان اعمل له تعديل وبالتالي لم اكتبه في جملة التعديل
المشكله حضرتك اني لازم اقوم بحذف كل ما في الليست فيو ثم اضيفهم مره اخري ليتم التعديل بشكل صحيح
 ولكن اذا عدلت باقي البيانات وتركت الليست فيو ولم اعدل فيها تظهر هذه المشكله
يعني لازم كل مره اقوم فيها بالتعديل لازم افرغ الليست فيو واملأها مره أخري
ارجو ان اكون وصلت المشكله لحضرتك
الرد }}}
تم الشكر بواسطة:
#6
هذا ما كتب في رسالة الخطأ .
ثانيا قاعدة البيانات و الفورم ليست عندي لاجرب و اصحح الموضوع .
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 222 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 83 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 309 21-02-24, 11:44 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم