Amrul NigthBlue

Amrul NigthBlue

  • NA
  • 23
  • 2.2k

How to make Loading while insert data in database?

Mar 9 2017 10:31 AM
Please help me i want to  proccesing execute data reader  while insert to database with progress bar 
  1. Private Sub Refresh_Click(sender As Object, e As EventArgs) Handles Refresh.Click  
  2.         Dim i As Integer  
  3.         Dim Koneksi As New MySqlConnection("Server=localhost;UID=root;Database=pt_laksana;PWD=;port=3306")  
  4.         Dim adapter As New MySqlDataAdapter("SELECT no as No,nama_barang as 'Nama Barang',jumlah as Jumlah, date as 'Tgl/Bln/Th', saldo as Saldo, keterangan as Keterangan, mengetahui as Mengetahui, diketahui as Diketahui, action as Action  From data_barang;", Koneksi)  
  5.         Dim READER As MySqlDataReader  
  6.         Dim COMMAND As MySqlCommand  
  7.         Dim dt As New DataTable  
  8.         'Menyimpan hasil query  
  9.         adapter.Fill(dt)  
  10.         'data masuk ke datagrid  
  11.         Riwayat_TransaksiDashboard.DataSource = dt  
  12.         Try  
  13.             Koneksi.Open()  
  14.             Dim Query As String  
  15.             Query = "select * From pt_laksana.data_barang"  
  16.             COMMAND = New MySqlCommand(Query, Koneksi)  
  17.             READER = COMMAND.ExecuteReader  
  18.             MsgBox("Refresh Data")  
  19.             While READER.Read  
  20.                 Chart1.Series("Series1").Points.AddY(READER.GetInt32("jumlah"))  
  21.                 Chart1.Series("Series2").Points.AddY(READER.GetInt32("saldo"))  
  22.   
  23.                 For i = 1 To 10  
  24.                     Riwayat_TransaksiDashboard.Refresh()  
  25.                 Next  
  26.             End While  
  27.   
  28.         Finally  
  29.             Koneksi.Close()  
  30.         End Try  
  31.     End Sub  
 

Answers (5)