'SQLstr = "SELECT Beda_id,Beda_Name,Mabie_Price,shra_Price,(Mabie_Price-shra_Price) as rabh,Beda_Note From Beda Where [Beda_id]>29 and [Mabie_Price]<>0 and [shra_Price]<>0 ORDER BY Beda_Name"
'LoadData(SQLstr)
القديم -----
استبدله بالجديد------
كود :
DataConnection()
Dim dp As New OleDbDataAdapter("SELECT Beda_id,Beda_Name,Mabie_Price,shra_Price,(Mabie_Price-shra_Price) as الربح,Beda_Note From Beda Where [Beda_id]>29 and [Mabie_Price]<>0 and [shra_Price]<>0 ORDER BY Beda_Name", Conn)
Dim ds22 As New DataSet
16-07-13, 08:40 PM (آخر تعديل لهذه المشاركة : 16-07-13, 08:43 PM {2} بواسطة salim5d.)
السلام عليكم
الف شكر اخي
حريف برمجة
من خلال الاطلاع على الاكواد التي تفضلت بها، شعرت مباشرة كانك تستخدم الاستعلام بصيغة SQl
فخطر ببالي، طريقة اسهل وهي ان اقوم بانشاء استعلام ( يعمل على اظهار الربح ) ضمن قاعدة البيانات
واعطيه اسم Beda_Q1 وجعلت كافة الكودات تستخدم Beda_Q1 بدلا من Beda
وقد جربت الامر ونجح معي مائة بالمائة
ثانياً :
ما قصدته بسؤالي عدم اظهار القيم ذات الصفر، هو عدم عرض الصفر ضمن خلايا الجريد فيو بمعنى اخر
باذنجان 200 300
بندورة 0 0
فليفلة 400 600
ما اريده
باذنجان 200 300
بندورة
فليفلة 400 600
[b]اي ان السجل الخاص ببندورة يظل يظهر، بينما الاصفار لا تظهر[/b]
ارجو توضيح ان كان بالامكان جعل الداتا جريد فيو، في بعض من خلاياها لا تظهر قيمة معينة وفق ماشرحت اعلاه
والف شكر
والسلام عليكم
طيب : أنا رايح انصحك نصيحه خذها من أخ كبير لك :
فكرة المشروع جميلة وعجبتني
لكن لو انت لو مشيت على طريقتك هذة راح تتعب كثير كثير
أنا بقول :
أستخدم أسلوب أحترافي حتى ترتاح
بمعنى :
LINQ TO SQL N-Tire
SQL Database
Microsoft Reports Engine
Metro Forms
Dev Compnent DotNetBar
وكل الكلام هذا عبارة عن Classes
16-07-13, 11:47 PM (آخر تعديل لهذه المشاركة : 17-07-13, 12:16 AM {2} بواسطة salim5d.)
الف شكر اخي
Abu Ehab
على مداخلتك
بارك الله فيك
إقتباس :LINQ TO SQL N-Tire
ارى انك تشجع بكثرة على استخدام LinQ
وانا بصراحة صار لي الكثير، فيما قرات عن الفيجوال بيسك دوت نت ، واصعب شي هو قواعد البيانات...... وما صدقت حتى بدات اضع اول رجل لي على هذا الطريق
وانا بصراحة بصدد انشاء برنامج محاسبة ومستودعات مشابه تماما لبرنامج كنت قد عملته بالاكسس وهو برنامج تجاري مطروح بالسوق حاليا تحت اسم الكافي للمحاسبة والمستودعات
وانا اريد ان اقلد ذلك البرنامج بحيث اعيد تصميمه بالكامل على الفيجوال بيسك دوت نت
[COLOR="#0000CD"]سوف اخذ بنصحيتك، وسوف اقوم بايقاف العمل مؤقتاً بمشروعي الذي بدأت به، وسوف اركز في القراءة وتتبع المنتديات على LinQ[/COLOR] [COLOR="#B22222"]وحبذا لو تضع لي بعض الروابط لمواقع مفيدة في هذا المجال، وكذلك حبذا لو تضع لنا مثال واحد فيه مادكرت ( واجهات مترو - Linq)[/COLOR]
أليست الـ LINQ أبطى من الـ ADO.Net؟
و ذلك حسب إعتقادي فأجوا منك تصحيحي لو سمحت.
الله أكبر ...
أنت عكست الموضوع خالص ...
هي من ناحية السرعه بتقدر تقول :
LINQ = طائرة حربيه مقاتلة من طراز F32 و ADO.Net = سيارة فيات مكركعه موديل 1980 ,
إقتباس :
بالإضافة إلى, ما قصدك بإستخدام الـ Classes؟
كل ملفاتك عبارة عن ملفات Dll يعني أستخدم Class Library
20-07-13, 10:04 PM (آخر تعديل لهذه المشاركة : 20-07-13, 10:06 PM {2} بواسطة salim5d.)
السلام عليكم
[COLOR="#2F4F4F"][COLOR="#B22222"]حبذا اخي ابو ايهاب
ان يتم برمجة ذات الشي ( اسماء المواد) وبذات الطريقة ( شاشة عليها جريد فيو، تستعرض اسماء المواد، وعليها ازرار اضافة - حذف - تعديل )
ب LinQ to SQl[/COLOR]
[/COLOR]
وخصوصاً ان اسماء المواد عبارة عن جدول وحيد فيه عدة حقول بسيطة، ويمكن ان يكون هدا المثال فيه فائدة كثيرة لي وللاخوة في حال تم برمجته باستخدام
LinQ to SQl
فانا ما زلت اقرا وابحث بالموضوع، ومعظم الشروحات تكون على مشروع كبير ( عدة جداول)، الامر الذي يحدث ضياع.
اخي ابو ايهاب
سمعت نصيحتك وقرأت الكثيرعن كيفية استخدام LinQ
قمت بإعادة ذات المشروع البسيط ( اسماء المواد ) باستخدام تقنية LINQ
وقمت بمحاولة كتابة اول كود وهو المتعلق بالاضافة
[HTML]
Dim beda As New DB.Beda()
beda.Beda_Name = txt_beda.Text
beda.Shra_Price = txt_shra.Text
beda.Mabee_Price = txt_Mabee.Text
beda.Beda_Note = txt_Note.Text