1/31/2022

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

1 comment: