Menampilkan Data dari MySQL pada VB
Menampilkan Data dari MySQL pada VB >>
Menampilkan Data dari MySQL pada VB merupakan perrmintaan beberapa temen mahasiswa, kali ini saya tuliskan tentang bagaimana menampilkan data dari database MySQL dalam VB. Untuk menampilkan data, kali ini saya menggunakan komponen Microsoft FlexGrid Control 6.0. Komponen ini saya pilih karena dalam pengaturannya lebih mudah dan tentunya lebih fleksible.
Untuk menambahkan komponen caranya dengan memilih Project –> Components atau tekan “Ctrl + T”. Kemudian beri tanda centang (v) pada Microsoft FlexGrid Control 6.0. OK, sekarang langsung ke desain form dan sourcenya. π
Desain Form untuk menampilkan data seperti gambar berikut ini:
Keterangan:
Keterangan Gambar (Sesuai nomer warna merah):
- MSFlexgridβ > Name : MsFlexgrid1
- Command Buttonβ > Name : CmdLihat
Setelah design Form selesai silahkan lengkapi source codenya seperti berikut ini:
Dim koneksi As New MYSQL_CONNECTION Dim rs As New MYSQL_RS Private Sub CmdLihat_Click() rs.CloseRecordset rs.OpenRs "select * from theanimals", koneksi With rs MSFlexGrid1.Rows = .RecordCount + 1 MSFlexGrid1.Cols = .FieldCount + 1 .MoveFirst Do baris = baris + 1 MSFlexGrid1.Row = baris MSFlexGrid1.TextMatrix(baris, 0) = baris For kolom = 1 To .FieldCount MSFlexGrid1.TextMatrix(0, kolom) = .Fields(kolom - 1).Name MSFlexGrid1.TextMatrix(baris, kolom) = .Fields(kolom - 1) Next .MoveNext Loop Until .EOF End With End Sub Private Sub Form_Load() koneksi.OpenConnection "localhost", "root", "root", "dbzoo", 3306 End Sub
Selamat mencoba bagaimana cara menampilkan data pada tulisan ini.Β Semoga bermanfaat.
Jangan lupa kasih comment
Free Email Newsletter
And then confirm your email subcription
11 Comments to “Menampilkan Data dari MySQL pada VB”
Assalamu’alaikum pak Bozz.., ini yg :
MSFlexGrid1.TextMatrix(0, kolom) = .Fields(kolom β 1).Name
MSFlexGrid1.TextMatrix(baris, kolom) = .Fields(kolom β 1)
Koq ada error y..? apa ada perlu setting di flexgridnya..? klo bs ksh contoh jg yg view ke datagrid y.. π sm jelasin dunk maksut syntax yg diatas tsb.. π makasih.. π
sintax :
MSFlexGrid1.TextMatrix(0, kolom) = .Fields(kolom β 1).Name
fungsinya untuk menampilkan nama fileds database sebagai header flexgridnya, sedangkan
sintax :
MSFlexGrid1.TextMatrix(baris, kolom) = .Fields(kolom β 1)
fungsinya untuk menampilkan isi dari tabel database yang sudah dibuka melalui SQL pada rs…
Owww.., seeepp makasih bozz.., eh ternyata errornya yg (kolom -1) itu.., stlh tak coba2.., tak tes ketik ulang trs gk error.. :), makasih bozz.., klo bs minta contoh yg viewnya datagrid dunk.. π ato yg DBGrid .. π
Mas, aq mw tanya ni aq coba syntax diatas cuma pas baris
baris = baris + 1
error “invalid row value”
apakah variabel baris itu harus dideklarasikan dulu atau diberi default value misal
baris=0?
Mohon pencerahannya ya., terimakasih π
@fitri : tidak harus dideklarsikan dahulu, punya saya kok tidak ada masalah ya
ini code saya, siapa tau memang ada yang salah,
Set rec = Nothing
rec.Open “select * from Pegawai”, conn, adOpenDynamic, adLockOptimistic
With rec
fxpegawai.Rows = .RecordCount + 1
fxpegawai.Cols = .Fields.Count + 1
.MoveFirst
Do
rowP = rowP + 1
fxpegawai.Row = rowP
fxpegawai.TextMatrix(rowP, 0) = rowP
For colP = 1 To .Fields.Count
fxpegawai.TextMatrix(0, colP) = .Fields(colP – 1).Name
fxpegawai.TextMatrix(rowP, colP) = .Fields(colP – 1)
Next
.MoveNext
Loop Until .EOF
End With
maaf errornya pada fxpegawai.Row = rowP
invalid row value errornya.,
coba dideklarasikan dulu variabelnya “rowp” ngefek atau tidak?
sudah saya coba, Dim rowP As Integer
tapi tetep error ditempat yang sama
value fxpegawai.Row -1, harusnya 1 ya boss?
Coba ganti sintaks : fxpegawai.Rows = .RecordCount + 1
jadi : fxpegawai.Rows = .GetRows + 1
kalau sintaks untuk membuat diagram batang dan datanya di MYSQL menggunakan VB gimana ya pak???
Gunakan saja Komponen MsChartdi VBnya