Tolong pilih kategori sesuai, jenis posting (diskusi atau bukan) dan sertakan tag/topik yang sesuai seperti komputer, java, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus!
- Bagi Anda yang ingin mendaftar, baca link berikut:
http://diskusiweb.com/discussion/50491/how-to-registrasi-diskusiweb-com-baca-ini-terlebih-dahulu
- Cara menyisipkan kode program supaya tampil rapi dan terformat dengan baik di diskusiweb.com: http://www.diskusiweb.com/discussion/50415/cara-menyisipkan-kode-program-di-diskusiweb-com
- Cara posting gambar/image di post Anda: http://www.diskusiweb.com/discussion/47345/cara-menyisipkan-menyertakan-image-pada-posting/p1

MsFlexGrid DAN CARA MENAMPILKAN DATA

MsFlexGrid adalah salah satu komponen grid yang dimiliki oleh Visual Basic 6.0, Kita bisa menggunakan objek ini untuk menampilkan data. Ada yang bisa?

Comments

  • edited November 2012
    INI CONTOHNYA, MAAF JIKA DALAM MENULIS ARTIKEL MASIH ACAK2AN.KARNA MASIH PEMULA DI WEB INI.

    Sub TampilData()
    Dim BarisData As Integer
    Dim Rs_Supplier As Recordset

    GridSuplayer.Clear

    AktifGrid

    GridSuplayer.Rows = 2
    BarisData = 0

    Set Rs_Supplier = New ADODB.Recordset

    Dim SqlSupplier As String
    SqlSupplier = "SELECT * FROM Suplayer"
    Set Rs_Supplier = koneksi.Execute(SqlSupplier)

    If Rs_Supplier.BOF Then
    Exit Sub
    Else
    Rs_Supplier.MoveFirst
    Do While Not Rs_Supplier.EOF
    BarisData = BarisData + 1
    GridSuplayer.Rows = BarisData + 1
    GridSuplayer.TextMatrix(BarisData, 0) = BarisData
    GridSuplayer.TextMatrix(BarisData, 1) = Rs_Supplier!Kd_splyr
    GridSuplayer.TextMatrix(BarisData, 2) = Rs_Supplier!Nm_Splyr
    GridSuplayer.TextMatrix(BarisData, 3) = Rs_Supplier!Alamat
    GridSuplayer.TextMatrix(BarisData, 4) = Rs_Supplier!Kota
    GridSuplayer.TextMatrix(BarisData, 5) = Rs_Supplier!No_Telp

    Rs_Supplier.MoveNext

    Loop
    End If
    End Sub

    Catatan:
    Rs_Suplier = adalah recordset yang berasal dari tabel suplier
    GridSuplier = adalah nama grid-nya
  • edited November 2012
    Ini kukasih contoh desain dalam bentukskrip:


    Sub AktifGrid()
    With GridSuplayer
    .Cols = 6

    .Col = 0
    .Row = 0
    .Text = "No"
    .CellFontBold = True
    .ColWidth(0) = 400
    .CellAlignment = flexAlignCenterCenter

    .Col = 1
    .Row = 0
    .Text = "Kode Suplayer"
    .CellFontBold = True
    .ColWidth(1) = 2000
    .CellAlignment = flexAlignCenterCenter

    .Col = 2
    .Row = 0
    .Text = "Nama Suplayer"
    .CellFontBold = True
    .ColWidth(2) = 2500
    .CellAlignment = flexAlignCenterCenter

    .Col = 3
    .Row = 0
    .Text = "Alamat"
    .CellFontBold = True
    .ColWidth(3) = 3000
    .CellAlignment = flexAlignCenterCenter

    .Col = 4
    .Row = 0
    .Text = "Kota"
    .CellFontBold = True
    .ColWidth(4) = 2000
    .CellAlignment = flexAlignCenterCenter

    .Col = 5
    .Row = 0
    .Text = "No.Telp"
    .CellFontBold = True
    .ColWidth(5) = 1500
    .CellAlignment = flexAlignCenterCenter
    End With
    End Sub
Sign In or Register to comment.