rizaarifudin[dot]com

Berbagi ilmu, pengalaman, tips dan trik, software

You are here: » Menampilkan Data dari MySQL pada VB

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:

Menampilkan Data

Keterangan:

Keterangan Gambar (Sesuai nomer warna merah):

  1. MSFlexgridβ€” > Name : MsFlexgrid1
  2. 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 :)

Posted by 11 Responses
 

Free Email Newsletter

Stay Updates with this Blog. Get Free email newsletter updates..

And then confirm your email subcription

   

11 Comments to “Menampilkan Data dari MySQL pada VB”

  1. Semot Ireng says:

    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.. πŸ™‚

  2. riza says:

    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…

  3. Semot Ireng says:

    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 .. πŸ™‚

  4. fitri says:

    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 πŸ™‚

  5. riza says:

    @fitri : tidak harus dideklarsikan dahulu, punya saya kok tidak ada masalah ya

  6. fitri says:

    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.,

  7. riza says:

    coba dideklarasikan dulu variabelnya “rowp” ngefek atau tidak?

  8. fitri says:

    sudah saya coba, Dim rowP As Integer
    tapi tetep error ditempat yang sama
    value fxpegawai.Row -1, harusnya 1 ya boss?

  9. Yafiz says:

    Coba ganti sintaks : fxpegawai.Rows = .RecordCount + 1
    jadi : fxpegawai.Rows = .GetRows + 1

  10. Rojab says:

    kalau sintaks untuk membuat diagram batang dan datanya di MYSQL menggunakan VB gimana ya pak???

  11. riza says:

    Gunakan saja Komponen MsChartdi VBnya

Leave your comment here:

*

Jun
9
2011
 
Archives
Chat
Name:
Email:
For:  
Mail will not be published
(but it's required)