VB : VB Read Data To Array And Extract To Use Data. To Read Data Again

 

VB : VB Read Data To Array And Extract To Use Data. To Read Data Again
Example :

1.  
2.             Dim ArrayBarCode As ArrayList
3.             ArrayBarCode = New ArrayList
4.             .
5.             .
6.             .
   
7.             While myReader.Read()
8.                 FirstCode = myReader.Item("FirstCode").ToString()
9.                 AccountCode = myReader.Item("AccountCode").ToString()
10.                 TypeCode = myReader.Item("TypeCode").ToString()
11.                 SubTypeCode = myReader.Item("SubTypeCode").ToString()
12.                 RunNo = myReader.Item("RunNo").ToString()
13.  
14.                 If CheckBox_LastTransaction.Checked = True Then
15.                     ArrayBarCode.Add(BarCode) '###### Add BarCode เข้า Array เพื่อไป Loop ออกรายงานอีกรอบ เพราะ Reader ซ่อน Loop ไม่ได้
16.                 End If
17.             End While
18.             myReader.Close()
19.             Dim m As Long
20.             line = 5
21.             If CheckBox_LastTransaction.Checked = True Then
22.                 firstSheet.getCellByPosition(8, 4).String = "ประวัติการโอนย้ายครั้งล่าสุด"
23.                 For m = 0 To ArrayBarCode.Count - 1
24.                     '########## Select Data From Other Table Again #############'
25.                     SQLTmp = "SELECT OldUser,Reason,EmpName FROM sci_ams.asset_move " _
26.                     & " LEFT JOIN sci._employees ON _employees.EmpID= asset_move.OldUser " _
27.                     & " WHERE BarCode = '" & ArrayBarCode(m) & "' AND End = 'Y' " _
28.                     & " ORDER BY Id DESC"
29.  
30.                     myCommand.CommandText = SQLTmp
31.                     myAdapter.SelectCommand = myCommand
32.                     myReader = myCommand.ExecuteReader
33.                     If (myReader.Read()) Then
34.                         LastTransaction = myReader.Item("OldUser").ToString() & ":" & myReader.Item("EmpName").ToString() & " : " & myReader.Item("Reason").ToString()
35.                     End If
36.  
37.                     line = line + 1
38.                     myReader.Close() '###### ต้อง Close ไม่อย่างนั้น ERROR เพราะอยู่ใน Loop อ่านจาก DB หลายรอบ
39.                 Next

End If