Rabu, 29 November 2017

Pembacaan Data dengan Label dan Progress Bar pada Visual Basic .Net

Tidak ada komentar:
Dalam membangun sebuah aplikasi diperlukan tampilan yang menarik agar terkesan tidak kaku dan monoton. Ketika aplikasi membaca baris data, kita bisa memanfaatkan kombinasi antara objek Label dan Progress Bar untuk mengetahui proses pembacaan data. Adapun Label berfungsi untuk menampilkan isi data, sedangkan Progress Bar digunakan untuk membaca progres jumlah data yang diproses. Buatlah sebuah project dengan nama LabelProgressBar dan desain tampilan form seperti ini
Klik dua kali pada tombol Proses, kemudian ketikkan listing dibawah ini
Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
  Dim cnnDB As New OleDbConnection(My.Settings.Koneksi)
  cnnDB.Open()
  Dim adp As New OleDbDataAdapter(
  "Select od.OrderID,pd.ProductName From [Order Details] od " & _
  "Left Join Products pd On pd.ProductId=od.ProductId " & _
  "Order By od.OrderID", cnnDB)
  Dim dt As New DataTable
  adp.Fill(dt)
  Me.prgBar.Value = 0
  Me.prgBar.Maximum = dt.Rows.Count - 1
  For i As Integer = 0 To dt.Rows.Count - 1
      Me.lblProses.Text = dt.Rows(i)("ProductName")
      Me.lblProses.Update()
      Me.lblRecord.Text = i.ToString & " Record."
      Me.lblRecord.Update()
      Me.prgBar.Value = i
  Next
End Sub
Setelah project dijalankan terlihat hasilnya seperti dibawah ini
Demikian tutorial tentang pembacaan data menggunakan objek label dan progress bar. ,

Tidak ada komentar:

Posting Komentar