+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اضافة بيانات الي جدول (/showthread.php?tid=17318)
اضافة بيانات الي جدول - makky - 15-09-16
1. جدول به بعض الادوية الثابته
2.جدول اخر به حقل لاضافة اسم المريض وكود المريض والتاريخ وحقل يتم فيه اضافة الدواء + تعديل في الاسم باضافة حرف اوماشابه
عند اضافة ادويه للمريض يتم اضافة كل البيانات السابقه مره اخري مع تعديل فقط في اسم الدواء هل هذه الطريق صحيحه
المشكله في الصفوف الفارغه والتي تحدث مشكله عند عمل استعلام او عمل التقارير
. مرفق قاعدة البيانات
http://www.mediafire.com/download/266zhk9kix85q89/mdb.accdb
RE: اضافة بيانات الي جدول - ابو ليلى - 16-09-16
يا مكي اشرح بالكود و كيف هي طريقة الربط
RE: اضافة بيانات الي جدول - makky - 16-09-16
لم افهم ابوليلي اي اكود تريد هل كود التقرير ام كود الادراج
RE: اضافة بيانات الي جدول - ابو ليلى - 16-09-16
المشكلة انا مو فاهم طلبك او مشكلتك فين
بمعنى اخر لو كان في مشكلة عندك بكود ما اطرحه
RE: اضافة بيانات الي جدول - makky - 16-09-16
السؤال هل طريق الاضافه هذه صحيحه تبعا لقاعدة البيانات المرفقه
ثانيا: المشكله تكمن عند عمل استعلام فاجد الصفوف تتكرر في التقرير او حتي في الاستعلام ذاته ويستمر التكرار حتي تتساوي جميع الاعمدة.
RE: اضافة بيانات الي جدول - ابو ليلى - 16-09-16
انت رافع قاعدة بيانات بس , هذا ما جعلني اطلب الكود المسؤول عن الاضافة و عن طريقة الربط
و ماهو الاستعلام المسؤول عن جلب البيانات
RE: اضافة بيانات الي جدول - makky - 16-09-16
كود الاضافه للحق الاول
d.Dataedit(String.Format("insert into ptsense(PT_Name,PT_Date,PT_Code,sample,G,coun,comm,organism,sens)values('{0}',#{1}#,{2},'{3}','{4}','{5}','{6}','{7}','{8}')", txtname.Text, Textdate.Text, Textcode.Text, Comsample.Text, Comstain.Text, Txtcount.Text, Txtcomm.Text, Comorganism.Text, x))
كود الاضافه للحقل الثاني
d.Dataedit(String.Format("insert into ptsense(PT_Name,PT_Date,PT_Code,sample,G,coun,comm,organism,resist)values('{0}',#{1}#,{2},'{3}','{4}','{5}','{6}','{7}','{8}')", txtname.Text, Textdate.Text, Textcode.Text, Comsample.Text, Comstain.Text, Txtcount.Text, Txtcomm.Text, Comorganism.Text, x))
كود التقرير
Dim dt As DataTable = New DAL().selectdatatable(String.Format("SELECT PT.PT_Code, PT.age_sex2, PT.fullname2, Ptsense.PT_Date, DR.Dr_Name, Ptsense.sample, Ptsense.G, Ptsense.coun, Ptsense.comm, Ptsense.organism, Ptsense.sens, Ptsense.resist, labdetails.labnme, labdetails.labspecial, labdetails.labadress, labdetails.labphone, labdetails.labtime, labdetails.lablogo, labdetails.labprint, labdetails.labnameenglish, labdetails.labspecialenglish FROM labdetails, (PT INNER JOIN Ptsense ON PT.PT_Code = Ptsense.PT_Code) INNER JOIN DR ON PT.DR_Code = DR.Dr_Code WHERE (((PT.PT_Code)={0}) AND ((Ptsense.PT_Date)=#{1}#));", Txtcode.Text, DateTimePicker1.Value.ToString("dd/MM/yyyy")))
RE: اضافة بيانات الي جدول - ابو ليلى - 16-09-16
PHP كود :
d.Dataedit(String.Format("insert into ptsense(PT_Name,PT_Date,PT_Code,sample,G,coun,comm,organism,sens)values('{0}',#{1}#,{2},'{3}','{4}','{5}','{6}','{7}','{8}')", txtname.Text, Textdate.Text, Textcode.Text, Comsample.Text, Comstain.Text, Txtcount.Text, Txtcomm.Text, Comorganism.Text, x))
كود الاضافه للحقل الثاني
d.Dataedit(String.Format("insert into ptsense(PT_Name,PT_Date,PT_Code,sample,G,coun,comm,organism,resist)values('{0}',#{1}#,{2},'{3}','{4}','{5}','{6}','{7}','{8}')", txtname.Text, Textdate.Text, Textcode.Text, Comsample.Text, Comstain.Text, Txtcount.Text, Txtcomm.Text, Comorganism.Text, x))
جملتين ادخال على نفس الجدول و بنفس القيم مع اختلاف حقل في الجملة الثانية
ما الغاية من الادخال مرتين لنفس القيم في نفس الجدول ؟؟
RE: اضافة بيانات الي جدول - makky - 16-09-16
لذلك سئلت حضرتك هل هذه الطريق صحيحه . وما البديل
والفكره في انني في الفورم يوجد زرارين واحد لاضافة اشياء الي الحقل الاول والثاني لاضافة اشياء الي الحقل الثاني
فاذا فترضت اني قمت بادخال خمس سجلات الي الجدول في الحقل الاول ثم اردت ادخل ثلاث سجلات الي الحقل الاخر ماذا افعل
لاحظ انني لايمكنني التعديل
RE: اضافة بيانات الي جدول - ابو ليلى - 17-09-16
لماذا هذا السيناريو في الادخال , و ما الذي تنوي الوصول اليه
انا اعتقد ان مشكلتك بسيطة لكن ينقصها الشرح المناسب , او الفهم المناسب من قبلي
الى الان لم استطع فهمك ؟؟؟