03-10-12, 11:04 AM
كاتب الموضوع : BADRMEDIA
بسم الله الرحمن الرحيمالسلام عليكم ورحمة الله وبركاته
لقد سرني جدا عودة منتداي الحبيب والله أعلم كم بذلت من جهد لعودة هذا المنتدى
ونتقدم بخالص الشكر لأخونا الحبيب الأستاذ عبد الله العتيق بمنحه عودة المنتدى من جديد
وندعو جميع الأخوة القدامى والجدد للرفع بشأن المنتدى فى وقت قصير بمشيئة الله
لهذا سنفرد موضوع خاص بتلميحات برمجية كنت اعتدت على كتابتها في المنتدى السابق ولما وجدنا لما لها من فائدة قررت إعادة كتابتها من جديد والله المستعان
=============================================
التلميحة الأولي :
عندما يريد المبرمج أن يجهز أداة البيانات لتكون فارغة كان يقوم بعمل بحث عن قيمة وهمية بحيث يعود المحرك ليحمل اداة البيانات بقيمة فارغة وذلك يكون قد جهز أداة البيانات للادخال الجديد
كمثال
كود :
SQL = Select * From Tab Where ID = 999999999
ربما لم يشكو أحد من هذا ولكن ماذا لو كان برنامجك يعمل على سيرفر خارجي
وكان الجدول به ملايين السجلات
معني ذلك أن السيرفر سيبحث فيهم كلهم سجل سجل ثم يعود بلا شئ مما سيسبب بطئ فى الأداء
لتفادي ذلك
أنت تستخدم اداة قطعة البيانات DataSet
ولكي تحمل البيانات فيها تقوم بعملية ملئ لها
كود :
da.Fill(ds, "Table_Name")
اجعل جملة الاستعلام التى تربطها بمحول البيانات DataAdapter
جملة عادية لمعرفة مكان البيانات
كود :
strSQL = "SELECT * FROM Table"
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")