تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
من قاعدة البانات الى مصفوفة أزواج مرتبة
#1
لدى قاعدة بيانات اسمها bass1 بها جدول اسمه table1 مكون من تسعة صفوف وأربعة أعمدة
وأريد باستخدام الado عمل مصفوفة أزواج مرتبة على الصورة xa(i,j)
بمعنى اذا كان السجل الثالث فى الحقل الثانى مثلآ قيمته=588  أريد كودآ يجعل   xa(2,3)= 588
ولكم ألف شكر
الرد }}}}
تم الشكر بواسطة:
#2
كتبت هذا الكود فقام بالمطلوب والحمد لله

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
كيف يمكن ذلك؟   أم لابد من اعادة كتابة هذا الكود عشر مرات؟
ولكم ألف شكر
الرد }}}}
تم الشكر بواسطة:
#3
أهلا أخي الكريم , إستخدم هذه الدالة :

PHP كود :
Private Function Prepar_Array(zTableName As StringzArray() As String)

Dim RA As New ADODB.Recordset
Dim aArray
() As String
Dim zCol1 
As IntegerzCol2 As Integer

If RA.State 1 Then RA.Close

RA
.Open "Select * From " zTableNameDBadOpenStaticadLockPessimistic

If RA.RecordCount 0 Then

   RA
.MoveFirst
   
   ReDim aArray
(RA.RecordCountRA.Fields.Count) As String
      
   
Do While Not RA.EOF
   
      zCol1 
zCol1 1
      
      
For zCol2 1 To RA.Fields.Count
          aArray
(zCol1zCol2) = RA.Fields(zCol2 1).Value
      Next
            
      RA
.MoveNext
    
   Loop
   
   zArray
() = aArray()
   
End If

If 
RA.State 1 Then RA.Close

Set RA 
Nothing

End 
Function 

وطريقة إستدعائها كالتالي :

PHP كود :
Prepar_Array "Table1"xa() 

حيث Table1 هو إسم الجدول و xa هو إسم المصفوفه ويجب أن تعرف جميع المصفوفات العشر كمصفوفه نصيه كالتالي :

PHP كود :
Dim xa() As String
Dim EGRA
() As String
Dim TEMP
() As String
Dim WAIT
() As String
..........
..........
إلى آخر المصفوفات 
الرد }}}}
تم الشكر بواسطة: اسلام الكبابى
#4
أستاااااااااذ  طول عمرك

ألف ألف شكر
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor
#5
أهلا أخي الكريم , شكرا جزيلا لك , حياك الله .
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة التعامل مع قاعدة البيانات وربطها بالفيجوال بيسك 6 ENG.MPROG 8 4,140 22-11-16, 09:38 AM
آخر رد: مزنة
  كيفية منع تكرار التاريخ فى قاعدة البيانات ؟ gedo 6 890 25-10-16, 10:10 AM
آخر رد: abulayth
  انشاء علاقة بين الجداول في قاعدة بيانات SQL aiman 1 85 14-10-16, 09:24 PM
آخر رد: aiman
  كيف رفع قاعدة بيانات اكسس 2003 على النيت abosara 2 177 26-08-16, 11:34 AM
آخر رد: Amir_alzubidy
  مطلوب كود لكسر باسورد قاعدة بيانات اكسس 2003 abosara 1 113 23-08-16, 05:35 PM
آخر رد: abulayth
  كيفية نسخ جدول من قاعدة بيانات الى قاعدة أخرى علما بأن القاعدتين لهم باسورد abosara 3 197 23-08-16, 01:02 AM
آخر رد: Ahmed_Mansoor
  حفظ الصورة بعد عمل سحبها من السكانر(الماسح الضوئي) في قاعدة البيانات haniblack 8 401 09-08-16, 11:03 AM
آخر رد: naseef
  سؤال حول حماية ملف قاعدة البيانات VAVABEL 2 227 10-07-16, 04:00 PM
آخر رد: VAVABEL
  [vb6.0] سوال حول جلب بيانات من قاعدة بيانات sql server+vb6 صدق 5 929 03-11-15, 02:45 AM
آخر رد: Ahmed_Mansoor
  اريد قاعدة بيانات the viper 3 785 28-08-15, 05:34 PM
آخر رد: أبوبكر سويدان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم