TableDataAdapter.update() and TableDataAdapter.Fill() it take long time - mysql

Question

have table with 200 columns, and when try to fill or update apporx. (15000) rows using the following:-
TableDataAdapter.update(DataTable)
TableDataAdapter.Fill(Datatable)
it take around 8 mins and some cases stacked and not complete the process
then tried to use the below code for select command to fill
Dim My_Trans as SQLTransaction
Dim My_Table as new DataTable
Dim My_SQLDataAdapter as new SqlDataAdapter
Dim My_BindingSource as new BindingSource
conn.Open()
My_Trans = conn.BeginTransaction()
myqry = "Select * From My_Table"
My_SQLDataAdapter = New SqlDataAdapter(myqry, conn)
Try
My_SQLDataAdapter.SelectCommand.Transaction = My_Trans
My_BindingSource.DataSource = My_Table
DataGridView1.DataSource = My_BindingSource '(<----- her is take long time)
My_Trans.Commit()
Catch ex As Exception
My_Trans.Rollback()
End Try
conn.Close()
but still take the same time , even for update command too, when tracking found the time taking in (DataGridView1.DataSource = My_BindingSource)
any advise please how speed up fill and update process?
many thanks in advance

Answer 1

I have tried as follow:-
1- Adding Class
Namespace DataSet1TableAdapters
Partial Public Class Table1TableAdapter
Public Function CreartTransaction() As Data.IDbTransaction
Try
Dim cmd As SqlCommand
Dim oConnection = me.CommandCollection(0).Connection
if oConnection.State = ConnectionState.Open
Else
oConnection.Open()
End If
Dim oTrans As SqlTransaction = oConnection.BeginTransaction()
For Each cmd In me.CommandCollection
cmd.Connection = oConnection
cmd.Transaction = oTrans
Next
Return oTrans
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Function
End Class
End Namespace
2- then on from added this code to save changes (Delete/Add/Modified):-
Dim oTrans As SqlTransaction = Table1TableAdapter.CreartTransaction
me.Table1TableAdapter.Transaction = oTrans
try
me.Table1TableAdapter.Update(me.DataSet1.Table1) (<----- Here when Have new rows not work and stop process without any error message)
oTrans.Commit
Catch ex As Exception
oTrans.Rollback
End Try
if Modified or deleted rows everything works fine, but if new rows added stacked and stop process without error message,
any explanation why ?
many thanks