TheMSsForum.com >> PocketPC Developer >> How can i import text File faster than this code ?

This is a multi-part message in MIME format.

------=_NextPart_000_00B3_01C4653C.BD93F510
Content-Type: text/plain;
charset="windows-874"
Content-Transfer-Encoding: quoted-printable

Dear all=20

I use it - 6000 and i import text file about 300 rec but it use 20 =
sec. how can i develop fast than this code . help me too.

Best Reg.
TingNong

Private Sub cmdImport_Click(ByVal sender As System.Object, ByVal e As =
System.EventArgs) Handles cmdImport.Click

Dim FileName As String

Dim FullFileName As String

On Error GoTo Err

OpenFileDialog1.Filter =3D "Text File|*.txt"

OpenFileDialog1.ShowDialog()

Application.DoEvents()

If Trim(OpenFileDialog1.FileName) =3D "" Then

Exit Sub

End If

FileName =3D System.IO.Path.GetFileName(OpenFileDialog1.FileName)

FullFileName =3D OpenFileDialog1.FileName

ShopId =3D Mid(FileName.Trim, 2, 4)

Dim Sr As New System.IO.StreamReader(FullFileName)

Dim line As String

Dim Da As SqlCeCommand =3D New SqlCeCommand

Dim Strsql As String

Dim Barcode As String

Dim Pro_Name As String

Dim Pro_Code As String

Dim Size As String

Dim Color As String

Dim Qty As Integer

Dim Point As Integer

Dim Col As Integer

Dim Rec As Single

Dim mRec As Single

' Read and display the lines from the file until the end=20

' of the file is reached.

' Delete All Data

Strsql =3D "Delete From MasterBC Where ShopId =3D '" & Trim(ShopId) & =
"'"

Da.Connection =3D Conn

Da.CommandText =3D Strsql

Da.ExecuteNonQuery()

Strsql =3D "Delete From SubMaster Where ShopId =3D '" & Trim(ShopId) & =
"'"

Da.Connection =3D Conn

Da.CommandText =3D Strsql

Da.ExecuteNonQuery()

Rec =3D 0

recProcess =3D 0

Timer1.Enabled =3D True

lblProcess.Visible =3D True

lblRec.Visible =3D True

Do While Sr.Peek() >=3D 0

line =3D Sr.ReadLine()

Col =3D 0

Do Until InStr(line, ",") =3D 0

Point =3D InStr(line, ",")

If Point =3D 0 Then

Qty =3D line

Else

Col =3D Col + 1

Select Case Col

Case 1

Barcode =3D Mid(line, 1, Point - 1)

Case 2

Pro_Name =3D Mid(line, 1, Point - 1)

Case 3

Pro_Code =3D Mid(line, 1, Point - 1)

Case 4

Size =3D Mid(line, 1, Point - 1)

Case 5

Color =3D Mid(line, 1, Point - 1)

End Select

line =3D Mid(line, Point + 1, Len(line))

If InStr(line, ",") =3D 0 Then

Qty =3D line

End If

End If

Sr.Peek()

Loop

' =E0=BE=D4=E8=C1=A2=E9=CD=C1=D9=C5=E3=B9 Table Master

Strsql =3D "Insert Into =
MasterBC(ShopId,Barcode,ProductName,ProductCode,Size,Color,Qty) " & _

" Values('" & ShopId & "','" & Trim(Barcode) & "','" & Trim(Pro_Name) & =
"'," & _

" '" & Trim(Pro_Code) & "','" & Trim(Size) & "','" & Trim(Color) & "'," =
& _

" " & Qty & ")"

Da.Connection =3D Conn

Da.CommandText =3D Strsql

Da.ExecuteNonQuery()

Strsql =3D "Insert Into SubMaster(ShopId,Barcode,Qty) " & _

" Values('" & Trim(ShopId) & "','" & Trim(Barcode) & "',0)"

Da.Connection =3D Conn

Da.CommandText =3D Strsql

Da.ExecuteNonQuery()

'Rec =3D Rec + 1

recProcess =3D recProcess + 1

Application.DoEvents()

Loop

lblProcess.Text =3D ""

lblRec.Text =3D ""

lblProcess.Visible =3D False

lblRec.Visible =3D False

Timer1.Enabled =3D False

Sr.Close()

MessageBox.Show("Import Complete")

Exit Sub

Err:

MessageBox.Show(Err.Number & " " & Err.Description)

End Sub

------=_NextPart_000_00B3_01C4653C.BD93F510
Content-Type: text/html;
charset="windows-874"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-874">
<META content=3D"MSHTML 6.00.3790.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV>Dear all </DIV>
<DIV> </DIV>
<DIV>    I use it - 6000 and =
i import=20
text file about 300 rec but it use 20 sec. how can i develop fast =
than =20
this code . help me too.</DIV>
<DIV> </DIV>
<DIV>Best Reg.</DIV>
<DIV>TingNong</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>
Private Sub cmdImport_Click(ByVal sender =
As=20
System.Object, ByVal e As System.EventArgs) Handles =
cmdImport.Click
Dim FileName As String
Dim FullFileName As String
On Error GoTo Err
OpenFileDialog1.Filter =3D "Text =
File|*.txt"
OpenFileDialog1.ShowDialog()
Application.DoEvents()
If Trim(OpenFileDialog1.FileName) =3D ""=20
Then
Exit Sub
End If
FileName =3D=20
System.IO.Path.GetFileName(OpenFileDialog1.FileName)
FullFileName =3D =
OpenFileDialog1.FileName
ShopId =3D Mid(FileName.Trim, 2, =
4)
Dim Sr As New=20
System.IO.StreamReader(FullFileName)
Dim line As String
Dim Da As SqlCeCommand =3D New =
SqlCeCommand
Dim Strsql As String
Dim Barcode As String
Dim Pro_Name As String
Dim Pro_Code As String
Dim Size As String
Dim Color As String
Dim Qty As Integer
Dim Point As Integer
Dim Col As Integer
Dim Rec As Single
Dim mRec As Single
' Read and display the lines from the =
file until the=20
end 
' of the file is reached.
' Delete All Data
Strsql =3D "Delete From MasterBC Where =
ShopId =3D '"=20
& Trim(ShopId) & "'"
Da.Connection =3D Conn
Da.CommandText =3D Strsql
Da.ExecuteNonQuery()
Strsql =3D "Delete From SubMaster Where =
ShopId =3D '"=20
& Trim(ShopId) & "'"
Da.Connection =3D Conn
Da.CommandText =3D Strsql
Da.ExecuteNonQuery()
Rec =3D 0
recProcess =3D 0
Timer1.Enabled =3D True
lblProcess.Visible =3D True
lblRec.Visible =3D True
Do While Sr.Peek() >=3D 0
line =3D Sr.ReadLine()
Col =3D 0
Do Until InStr(line, ",") =3D =
0
Point =3D InStr(line, ",")
If Point =3D 0 Then
Qty =3D line
Else
Col =3D Col + 1
Select Case Col
Case 1
Barcode =3D Mid(line, 1, Point - =
1)
Case 2
Pro_Name =3D Mid(line, 1, Point - =
1)
Case 3
Pro_Code =3D Mid(line, 1, Point - =
1)
Case 4
Size =3D Mid(line, 1, Point - =
1)
Case 5
Color =3D Mid(line, 1, Point - =
1)
End Select
line =3D Mid(line, Point + 1, =
Len(line))
If InStr(line, ",") =3D 0 Then
Qty =3D line
End If
End If
Sr.Peek()
Loop
' =E0=BE=D4=E8=C1=A2=E9=CD=C1=D9=C5=E3=B9 =
Table Master
Strsql =3D "Insert Into=20
MasterBC(ShopId,Barcode,ProductName,ProductCode,Size,Color,Qty) " &=20
_
" Values('" & ShopId & "','" =
&=20
Trim(Barcode) & "','" & Trim(Pro_Name) & "'," & =
_
" '" & Trim(Pro_Code) & "','" =
&=20
Trim(Size) & "','" & Trim(Color) & "'," & _
" " & Qty & ")"
Da.Connection =3D Conn
Da.CommandText =3D Strsql
Da.ExecuteNonQuery()
Strsql =3D "Insert Into =
SubMaster(ShopId,Barcode,Qty) "=20
& _
" Values('" & Trim(ShopId) & =
"','" &=20
Trim(Barcode) & "',0)"
Da.Connection =3D Conn
Da.CommandText =3D Strsql
Da.ExecuteNonQuery()
'Rec =3D Rec + 1
recProcess =3D recProcess + 1
Application.DoEvents()
Loop
lblProcess.Text =3D ""
lblRec.Text =3D ""
lblProcess.Visible =3D False
lblRec.Visible =3D False
Timer1.Enabled =3D False
Sr.Close()
 
MessageBox.Show("Import =
Complete")
Exit Sub
Err:
MessageBox.Show(Err.Number & " " =
&=20
Err.Description)
End Sub</DIV></BODY></HTML>

------=_NextPart_000_00B3_01C4653C.BD93F510--

Top