Hello sobat blogger, Bagaimana Hari harimu?
masih pusing karena ngoding? jika iya, saya ingin membantu untuk mencoba Cara Menampilkan Tabel Database pada Visual Basic
jika sebelumnya kita sudah mencoba untuk mengkoneksikan databse dengan visual basic, sekarang kita akan menampilkan tabel nya pada aplikasi yang kita buat dengan Visual Basic
apakah sudah membaca artikel sebelumnya? jika belum silahkan terlebih dahulu membaca
Cara mengkoneksikan Visual Basic dengan Database MySQL
baiklah lasngsung saja karena sudah membaca berarti sudah paham cara mengkoneksikanya,
pertama buatlah tabel database seperti pada gambar dibawah ini
 |
|
Cara Menampilkan Tabel Database pada Visual Basic
|
jika sobat belum bisa membuat tabel database silahkan terlebih dahulu membaca artikel Cara Membuat Tabel Database dengan XAMPP
 |
| Cara Menampilkan Tabel Database pada Visual Basic |
Selanjutnya buatlah Form seperti pada gambar diatas, untuk Kotak diabawah tombol refresh namanya Datagridview,
 |
| Cara Menampilkan Tabel Database pada Visual Basic |
 |
| Cara Menampilkan Tabel Database pada Visual Basic |
isilah kolom nama tanpa menggunakan spasi, atau samakan dengan nama yang ada di tabel database sehingga lebih gampang di ingat
sedangkan untuk Header text bisa di isi seuai keinginan kita karena hanya untuk ditampilan tabel nya saja
 |
| Cara Menampilkan Tabel Database pada Visual Basic |
jika sudah selesai maka hasilnya seperti gambar diatas, kemudian klik Close.
selanjutnya yang harus kita lakukan adalah membuat program untuk aplikasi ini,
Imports System.Data.Odbc
Public Class Form1
Dim conn As OdbcConnection
Dim cmd As OdbcCommand
Dim str As String
Dim ds As DataSet
Dim dt As DataTable
Dim dr As OdbcDataReader
Dim da As OdbcDataAdapter
Sub koneksi()
conn = New OdbcConnection()
conn.ConnectionString = “dsn=kendali-elektro”
conn.Open()
End Sub
Sub tampil()
DataGridView1.Rows.clear()
Try
koneksi()
da = New OdbcDataAdapter(“select * from data_sensor order by waktu asc”, conn)
dt = New DataTable
da.Fill(dt)
For Each row In dt.Rows
DataGridView1.Rows.Add(row(0), row(1), row(2), row(3), row(4))
Next
dt.Rows.Clear()
Catch ex As Exception
MsgBox(“Menampilkan Data Gagal”)
End Try
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
tampil()
End Sub
Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
sender = MsgBox(“www.kendali-elektro.xyz”, , “Created By”)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
tampil()
End Sub
End Class
jika sudah selesai maka outputnya akan tampil seperti ini
 |
| Cara Menampilkan Tabel Database pada Visual Basic |
 |
| Cara Menampilkan Tabel Database pada Visual Basic |
Mungkin cukup sekian Artikel kali ini semoga bermanfaat, jika ada kritik, saran ataupun pertanyaan silahkan dikolom komentar !
Keyword :
Cara Menampilkan Tabel Database Visual Basic
Cara menampilkan Databse di Datagridview
menampilkan database di Datagridview VB
Visual Basic database
anak kendali VB
visual studio 2015
anak kendali database