اسلام الكبابى

من قاعدة البانات الى مصفوفة أزواج مرتبة

4 ردود في هذا الموضوع

لدى قاعدة بيانات اسمها bass1 بها جدول اسمه table1 مكون من تسعة صفوف وأربعة أعمدة

وأريد باستخدام الado عمل مصفوفة أزواج مرتية على الصورة xa(i,j)

بمعنى اذا كان السجل الثالث فى الحقل الثانى مثلآ قيمته=588  أريد كودآ يجعل   xa(2,3)= 588

ولكم ألف شكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

PHP كود :
Set RS = New ADODB.Recordset
       
       RS
.Open "select * from table1"dbadOpenStaticadLockReadOnly
 NFieldS 
4
 RS
.MoveFirst
   
For 1 To RS.RecordCount
     
For 1 To NFieldS
     XA
(IJ) = 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 مثلآ)
ثم كتابة الكود السابق مرة واحدة ؟
ولكم ألف شكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

PHP كود :
Set RS = New ADODB.Recordset
       
       RS
.Open "select * from table1"dbadOpenStaticadLockReadOnly
 NFieldS 
4
 RS
.MoveFirst
   
For 1 To RS.RecordCount
     
For 1 To NFieldS
     XA
(IJ) = 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
كيف يمكن ذلك؟   أم لابد من اعادة كتابة هذا الكود عشر مرات؟

ولكم ألف شكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .