Executenonquery is very slow

EDN Admin

EDN Admin

Well-known member
Joined
Aug 7, 2010
Messages
12,794
Location
In the Machine
Hi all,
i have txt delimited file which i need to export into dbf file. All work well, but it is very very slow.
Here is my code:Dim conn As New OleDbConnection("Provider=VFPOLEDB.1;Data Source=" & Application.StartupPath)
Dim sw As New StreamReader(Application.StartupPath)
conn.Open()
While sw.Peek <> -1
Dim comm_insert As New OleDbCommand("INSERT INTO " & nazov & ".dbf (pole0, pole1, pole2, pole3, pole4, pole5, pole6, pole7, pole8, pole9, pole10, pole11, pole12, pole13, pole14, pole15, pole16, pole17, pole18, pole19, pole20, pole21, pole22, pole23, pole24, pole25) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)",conn)
Dim riadok() As String = sw.ReadLine().Split(vbTab)
comm_insert.Parameters.Add("@pole0",OleDbType.Char).Value = riadok(0)
comm_insert.Parameters.Add("@pole1",OleDbType.Char).Value = riadok(1)
comm_insert.Parameters.Add("@pole2",OleDbType.Char).Value = riadok(2)
comm_insert.Parameters.Add("@pole3",OleDbType.Char).Value = riadok(3)
comm_insert.Parameters.Add("@pole4",OleDbType.Char).Value = riadok(4)
comm_insert.Parameters.Add("@pole5",OleDbType.Char).Value = riadok(5)
.
.
.
comm_insert.ExecuteNonQuery()
End While
conn.Close()
Is there any faster way how to do this? Because now its useless
Thanks for help.

View the full article
 
Back
Top