تقييم الموضوع :
  • 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 11 22,053 21-02-24, 08:29 PM
آخر رد: Nasa_use
  ربط قاعدة البيانات بالانترنت abu jana 7 3,462 26-03-23, 04:17 PM
آخر رد: sanyor77
  عرض الصور من قاعدة بيانات اكسس داخل الداتا ريبورت mohammed_atallah 0 689 01-09-22, 01:25 PM
آخر رد: mohammed_atallah
  كيفية منع تكرار التاريخ فى قاعدة البيانات ؟ gedo 7 5,692 19-06-21, 09:31 PM
آخر رد: khaled201349
  طلب طريقة نقل البيانات من جدول الي جدول اخر في قاعدة بيانات اخر ahmed201 2 2,340 01-03-21, 12:14 AM
آخر رد: ahmed201
  فورم vb6 لنقل بيانات من جدول لآخر بنفس قاعدة بيانات اكسيس محمد تريكه 5 3,712 24-02-21, 08:10 PM
آخر رد: ahmed201
  [سؤال] البرنامج لا يقرأ من قاعدة البيانات بعد تنصيب البرنامج على ويندوز 10 aboezzat84 4 2,210 03-01-21, 02:58 AM
آخر رد: aboezzat84
  [سؤال] هل من الممكن انشاء قاعدة بيانات برمجيا haider kh 3 2,593 07-04-19, 07:23 PM
آخر رد: haider kh
  [سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه aboezzat84 3 2,613 24-01-19, 03:30 PM
آخر رد: sendbad100
Heart [مشروع] قاعدة بيانات على الشبكة vbprogrammer 3 3,176 13-08-18, 06:05 AM
آخر رد: elgokr

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


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