[اسلام الكبابى]

كتبت هذا الكود فقام بالمطلوب والحمد لله

PHP كود :

Set RS = New ADODB.Recordset
       
       RS.Open "select * from table1", db, adOpenStatic, adLockReadOnly
 NFieldS = 4
 RS.MoveFirst
   For I = 1 To RS.RecordCount
     For J = 1 To NFieldS
     XA(I, J) = RS.Fields(J)
     Next J
    RS.MoveNext
  Next I 


ولكن مشكلتى أن هذه العملية أريد عملها على عشرة جداول لا على الجدول table1  فقط
وطبعآ اسم المصفوفة المطلوبة مختلف من مرة لأخرى
 أى أنى أريد عمل عشرة مصفوفات من عشرة جداول
فاذا كنت فى المرة الأولى قمت بعمل المصفوفة  xa(I,J) من الجدول table1
         فأريد فى المرة الثانية عمل المصفوفة EGRA(I,J) من الجدول table2
         وأريد فى المرة الثانية عمل المصفوفة TEMP(I,J) من الجدول table3
         وأريد فى المرة الثانية عمل المصفوفة WAIT(I,J) من الجدول table4
وهكذا بعشرة أسماء مختلفة
فكيف يمكن ذلك دون اعادة الكود السابق عشر مرات؟
أى هل يمكن أن نجعل اسم الجدول كمتغير( TBLL مثلآ) واسم المصفوفة كمتغير(MASFF مثلآ)
ثم كتابة الكود السابق مرة واحدة ؟
طبعآ مع كتابة سطر فى كل مرة قبل التوجه لتنفيذ هذا الكود لتحديد قيم هذه المتغيرات
ففى المرة الثانية مثلآ نكتب قبل التوجه لتنفيذ هذا الكود TBLL=table2: MASFF=EGRA
وفى المرة الثالثة مثلآ نكتب قبل التوجه لتنفيذ هذا الكود TBLL=table3: MASFF=TEMP
كيف يمكن ذلك؟   أم لابد من اعادة كتابة هذا الكود عشر مرات؟
ولكم ألف شكر