[Ahmed_Mansoor]

أهلا أخي الكريم , إستخدم هذه الدالة :

PHP كود :

Private Function Prepar_Array(zTableName As String, zArray() As String)

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

If RA.State = 1 Then RA.Close

RA.Open "Select * From " & zTableName, DB, adOpenStatic, adLockPessimistic

If RA.RecordCount > 0 Then

   RA.MoveFirst
   
   ReDim aArray(RA.RecordCount, RA.Fields.Count) As String
      
   Do While Not RA.EOF
   
      zCol1 = zCol1 + 1
      
      For zCol2 = 1 To RA.Fields.Count
          aArray(zCol1, zCol2) = 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
..........
..........
إلى آخر المصفوفات