este codigo me carga una tabla y la guardo en otra, el problema es que tarda de 4 a 5seg, en ejecutar el script quisiera saber si se puede optimizar
Código:Try consulta = "SELECT * FROM ventas_cajas" dapter.SelectCommand = New OdbcCommand(consulta, conexion) ventas_local = New DataTable ventas_local = daset.Tables.Add("ventas_local") dapter.Fill(ventas_local) ventas_local.Clear() For Each row As DataRow In cventas_local.Rows If row(0) > venta Then fila = ventas_local.NewRow venta = row(0) CEDULA = row(2) codigo = row(7) If row(1) = 11 Then signo = "+" Else If row(1) = 12 Then signo = "-" End If End If cantidad = row(6) fecha = row(3).ToString hora = row(4).ToString vendedor = row(5) fila("venta") = Convert.ToString(venta) fila("cedula") = CEDULA fila("codigo_rubro") = codigo fila("signo") = signo fila("cantidad") = cantidad cant = Convert.ToString(cantidad) fila("fecha") = fecha fila("hora") = hora fila("vendedor") = vendedor ventas_local.Rows.Add(fila) If (Not IsNumeric(venta)) Then MessageBox.Show("Ingres un Valor Numerico...") Else If (Not Existe(Convert.ToInt32(venta))) Then dapter.InsertCommand = New OdbcCommand dapter.InsertCommand.CommandText = "insert into ventas_cajas (venta,cedula,codigo_rubro,signo,cantidad, fecha, hora, vendedor) VALUES ('" + Convert.ToString(venta) + "', '" + CEDULA + "', '" + codigo + "', '" + signo + "', '" + cant + "', '" + fecha + "', '" + hora + "', '" + vendedor + "')" dapter.InsertCommand.Connection = conexion dapter.Update(ventas_local) 'data.DataSource = ventas_local 'Else ' MessageBox.Show("Registro Ya Existe...") End If End If End If Next