تقييم الموضوع :
  • 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
هذا ما كتب في رسالة الخطأ .
ثانيا قاعدة البيانات و الفورم ليست عندي لاجرب و اصحح الموضوع .
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حفظ وتحميل صور base64 من قاعدة بيانات mysql blob datatype d3vc0d 0 116 28-08-21, 11:03 PM
آخر رد: d3vc0d
  [SQL] تابع_ الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 3 398 21-08-21, 06:32 PM
آخر رد: mmaalmesry
  حذف صفوف في جدول داخل قاعدة بيانات سيكوال سيرف momani33 5 280 21-08-21, 02:14 PM
آخر رد: momani33
  نقل بيانات من جدولين متشابهيين DOX.1 2 260 15-08-21, 01:16 PM
آخر رد: DOX.1
  هل من مساعده فى تصدير بيانات الى الpdf خالد كامل1 1 214 15-08-21, 12:36 PM
آخر رد: ابراهيم ايبو
Star [SQL] الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 7 474 14-08-21, 10:05 AM
آخر رد: mmaalmesry
  كيفية جلب بيانات جدول داخل موقع إلى الداتاجريدفيو باستخدام مكتبة cefsharp bahnay0 0 223 12-08-21, 01:49 AM
آخر رد: bahnay0
  [VB.NET] محتاج كود دمج بيانات مكررة amtkurdi 2 343 29-07-21, 07:23 AM
آخر رد: amtkurdi
  تصدير بيانات DataGridView1 الى ملف Excel mr_hso 7 1,038 22-07-21, 04:55 PM
آخر رد: atefkhalf2004
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 2 1,381 16-07-21, 02:12 PM
آخر رد: إليسار

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


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