คือมันมีปัญหาเรื่องความเร็ว รบกวน ช่วย แนะนำ ด้วยคับ




Private Function Import_to_DB_txt(ByVal Filename As String) As Boolean
Try
Dim FLD As String = Folder & MasterFolder & FolderImport & "\"
Dim Sr As System.IO.StreamReader = New IO.StreamReader(FLD & Filename, System.Text.Encoding.Unicode) 'พอดีมาหลายไฟล์คับ เหอะๆ T_T
Dim Line As String ' เอาไว้อ่านที่ หล่ะ บรรทัด
Dim data As String() ' text file ที่อ่านเข้ามา จะคั่นด้วย | อ่าคับ
Dim Cnt As Integer = 0

'''''''''ตรงนี้เป็นส่วนของการแสดงผลไม่ต้องสนใจก้อได้คัีบ''''''
Me.ListBox.Items.Add("")
Me.ListBox.Items.Add("Processing...[Reading File]")
Me.ListBox.Items.Add("Current File : " & Filename)
Me.ListBox.SelectedIndex = Me.ListBox.Items.Count - 1
Me.Label_ShowDetail.Refresh()
'''''''''''''''''''''''''''''''''''''''''''''''''

DBConn.Update_DB("DELETE FROM " & Filename.Replace(".PC", String.Empty))
DBConn.ReadTbl("Select * From " & Filename.Replace(".PC", String.Empty), Tbl)
Do While Sr.Peek >= 0
Line = Sr.ReadLine
If Line <> String.Empty Then
data = Line.Split("|") ' Split ตรงนี้
Dim Row As DataRow = Tbl.NewRow()
For i As Integer = 0 To UBound(data)
Row.Item(i) = data(i)
Next
Tbl.Rows.Add(Row) ' ยัดใส่ DataTable อ่าคับ แล้วค่อยทยอย อัพลง DataBase
End If
If Cnt Mod 100 = 0 Or Sr.Peek < 0 Then ' อัพเข้า DataBase ที่ละ 100 เรกคอร์ดอ่าคับ
DBConn.Insert_DB(Tbl, Filename.Replace(".PC", String.Empty))
End If
Cnt += 1
Loop

'''''''''ตรงนี้เป็นส่วนของการแสดงผลไม่ต้องสนใจก้อได้คัีบ''''''
Me.ListBox.Items.Add("All Record : " & Tbl.Rows.Count.ToString("#,###,##0") & " Record")
Me.ListBox.Items.Add("[Success]")
Me.ListBox.SelectedIndex = Me.ListBox.Items.Count - 1
Me.ListBox.Refresh()
ntab += 1
Me.Label_ShowDetail.Text = "Show Import Detail " & ntab & "/" & n_HQ
Me.Label_ShowDetail.Refresh()
Min += 1
Me.Pgb.Value = CInt((Min / Max_HQ) * 100)
Me.Pgb.Refresh()
'''''''''''''''''''''''''''''''''''''''''''''''''

Return True
Catch ex As Exception
Application.DoEvents()
MessageBox.Show(ex.Message)
Return False
End Try
End Function

จากคุณ : กัส -[ 14 พ.ค. 51 - 09:59:17 A:192.168.0.16 X:203.146.218.50 ]