لدى قاعدة بيانات اسمها bass1 بها جدول اسمه table1 مكون من تسعة صفوف وأربعة أعمدة
وأريد باستخدام الado عمل مصفوفة أزواج مرتية على الصورة xa(i,j)
بمعنى اذا كان السجل الثالث فى الحقل الثانى مثلآ قيمته=588 أريد كودآ يجعل xa(2,3)= 588
ولكم ألف شكر
من قاعدة البانات الى مصفوفة أزواج مرتبة
كتبت هذا الكود فقام بالمطلوب والحمد لله
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 مثلآ)
ثم كتابة الكود السابق مرة واحدة ؟
ولكم ألف شكر
كتبت هذا الكود فقام بالمطلوب والحمد لله
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
كيف يمكن ذلك؟ أم لابد من اعادة كتابة هذا الكود عشر مرات؟
ولكم ألف شكر
عرفت الحل والحمد لله
من أراد معرفة الحل فليفتح هذا الرابط
http://vb4arb.com/vb/thread-15515.html