[RaggiTech]

كاتب الموضوع : BADRMEDIA

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

لقد سرني جدا عودة منتداي الحبيب والله أعلم كم بذلت من جهد لعودة هذا المنتدى
ونتقدم بخالص الشكر لأخونا الحبيب الأستاذ عبد الله العتيق بمنحه عودة المنتدى من جديد

وندعو جميع الأخوة القدامى والجدد للرفع بشأن المنتدى فى وقت قصير بمشيئة الله


لهذا سنفرد موضوع خاص بتلميحات برمجية كنت اعتدت على كتابتها في المنتدى السابق ولما وجدنا لما لها من فائدة قررت إعادة كتابتها من جديد والله المستعان


=============================================
التلميحة الأولي :

عندما يريد المبرمج أن يجهز أداة البيانات لتكون فارغة كان يقوم بعمل بحث عن قيمة وهمية بحيث يعود المحرك ليحمل اداة البيانات بقيمة فارغة وذلك يكون قد جهز أداة البيانات للادخال الجديد

كمثال

كود :

SQL = Select * From Tab Where ID = 999999999

حيث ( 999999999 ) قيمة لم ولن تكون موجودة للحقل ID

ربما لم يشكو أحد من هذا ولكن ماذا لو كان برنامجك يعمل على سيرفر خارجي

وكان الجدول به ملايين السجلات

معني ذلك أن السيرفر سيبحث فيهم كلهم سجل سجل ثم يعود بلا شئ مما سيسبب بطئ فى الأداء

لتفادي ذلك

أنت تستخدم اداة قطعة البيانات DataSet

ولكي تحمل البيانات فيها تقوم بعملية ملئ لها

كود :

da.Fill(ds, "Table_Name")

بدلا من ذلك


اجعل جملة الاستعلام التى تربطها بمحول البيانات DataAdapter
جملة عادية لمعرفة مكان البيانات

كود :

strSQL = "SELECT * FROM Table"

ثم فى عملية الملئ لقطعة البيانات DataSet استخدم

FillSchema

ويكون الكود هكذا

كود :

strSQL = "SELECT * FROM Table "
Dim cmd As New SqlCommand(strSQL, DBConn)
ds = New DataSet
da = New SqlDataAdapter(cmd)
da.FillSchema(ds, SchemaType.Mapped, "Table")