Pages

Menampilkan Data Dari Form Lain Bag 1

Menampilkan Data Dari Form Lain

Saya akan berbagi sebuah tulisan cara menampilkan data dari form lain. Ilustrasinya begini misalkan kita ingin menampilkan beberapa data dari form lain dengan cara klik sebuah tombol command button maka akan muncul sebuah jendela baru atau sebuah form baru (form2) lalu kita double klik datanya maka akan tampil data tersebut di form pertama. Alur Menampilkan Data Dari Form Lain sudah pahamkan..? Jika anda belum bisa silahkan simak terus sampai akhir tulisan ini

Pada bagian pertama ini saya akan menggunakan MsFlexGrid pada form ke dua dalam menampilkan datanya. Untuk membuatnya kita memerlukan dua buah form, form pertama berfungsi menampilkan data yang di pilih dari form kedua. Form kedua berfungsi menampilkan data-data yang akan digunakan dalam form pertama.

Bagaimana Langkah-Langkah Menampilkan Data Dari Form Lain ? Langkah pertama silahkan buat dua buah form seperti tampilan berikut ini :

Tampilkan Gambar




Pada form dua dapat anda tambahkan sebuah textbox untuk pencarian, untuk kode pencariannya silahkan buka tuturial sebelumnya.


Saya menggunakan database Access dengan nama db_mhs.mdb dengan nama tabel tbl_mhs, struktur tabelnya seperti gambar berikut ini yang nantinya datanya di tampilkan di form2.


Selanjutkan kita buat kodingnya, buka form pertama ( form1 ) ketikan kode pada command button ( cmdBuka ). silahkan double klik kemudian ketikan kode berikut ini yang berguna untuk menampilkan atau memanggil form2 :

Private Sub CmdBuka_Click()
    Form2.Show vbModal
End Sub

Selajutnya buka form ke dua ( form2 ) kemudian ketik kode berikut ini di event double klik pada MsFlexgrid ( MsFlexGrid_DblClick ). Berikut kodenya yang berfungsi  untuk menampilkan data pada form pertama ( form1 ) :

Private Sub MSFlexGrid1_DblClick()
    Baris = MSFlexGrid1.Row
    If MSFlexGrid1.Rows <> 1 Then
        Form1.TxtNim.Text = MSFlexGrid1.TextMatrix(Baris, 1)
        Form1.TxtNama.Text = MSFlexGrid1.TextMatrix(Baris, 2)
        Form1.TxtAlamat.Text = MSFlexGrid1.TextMatrix(Baris, 3)
        Form1.TxtJurusan.Text = MSFlexGrid1.TextMatrix(Baris, 4)
    Else
        Exit Sub
    End If
    Unload Me
End Sub

Saya tidak menjelaskan cara menampilkan pada form2 dari database ke msfllexgrid saya anggap semua sudah bisa cara menampilkannya, jika belum bisa silahkan download source codenya. Untuk mendapatkan source code Menampilkan Data Dari Form Lain Bag 1 silahkan download linknya pada akhir tulisan ini.

Jika anda berhasil maka akan mampak seperti gambar animasi berikut ini :




Jika ada yang kurang jelas atau ada yang perlu ditanyakan silahkan kasih komentar, semoga tulisan ini dapat bermanfaat. Silahkan download source codenya di link berikut ini



Tags :
Menampilkan Data Dari Form Lain di VB, Menampilkan Data di VB, Menampilkan Data Dari Form Lain Dengan Grid, Menampilkan Data Dari Form Lain Dengan MsFlexGrid, Trik Menampilkan Data,Menampilkan Data Form1 di Form2, Memunculkan Data dari Satu Form ke Form Lain, Mengambil Data Dari Form Lain

 

Menampilkan Data Dari Listview Ke Textbox

Menampilkan Data Dari Listview Ke Textbox.
Pada kesempatan sebelumnya saya pernah membahas cara menampilkan data dari grid ke textbox, pada kali ini saya akan membahas cara menampilkan data yang ada di dalam list view ke textbox. Misalnya kita menginginkan data tampil ke textbox pada saat data dalam list view kita double klik atau klik.

Menampilkan data dari listview ke textbox sebenarnya cukup mudah dengan menambahkan sedikit listing program, jika anda belum bisa silahkan simak tulisan ini sampai selesai.
Di sini saya tidak akan menjelaskan cara menampilkan data dari database ke listview jika anda belum bisa silahkan buka tutorial saya sebelumnya tentang cara menampilkan data ke listview atau silahkan download source code tutorial ini di akhir tulisan.

Sebagai contoh buatlah sebuah form seperti pada gambar berikut ini

Tampilkan Gambar



Langkah selanjutnya adalah membuat koding. Saya asumsikan semua sudah bisa cara menampilkan data ke List View karena saya tidak akan menjelaskan koding untuk menampilkan data dari database ke List View.

Berikut koding untuk menampilkan data dari Listview ke textbox

Private Sub ListView1_DblClick()
 If ListView1.SelectedItem.Text <> "" Then
    TxtNim.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(1)
    TxtNama.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(2)
    TxtAlamat.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(3)
    TxtJurusan.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(4)
 End If
End Sub

Koding di atas menggunakan event double klik untuk menampilkan datanya, jika menginginkan pada event klik silahkan tulis kodenya pada event klik atau yang dinginkan.

Jika sudah silahkan klik save kemudian dijalankan, lalu silahkan double klik data yang ada dalam list view maka datanya akan tampil di textbox. Jika berhasil maka akan nampak pada gambar animasi berikut ini.





Jika ada yang kurang jelas atau ada yang perlu ditanyakan silahkan kasih komentar. Bila anda menginginkan source codenya silahkan download link di bawah ini semoga bermanfaat.

 
Tags:
Menampilkan Data Dari Listview Ke Textbox,Menampilkan Data ke Textbox,Data Dalam Listview, Trik Data Pada Listview

Pencarian Data Pada Listview Di VB Bag 2

Pada pencarian data pada listview bagian ke dua ini saya tidak akan menggunkan option button untuk opsi pencariaannya seperti yang terdapat pada bagian pertama.
Pada bagian ke dua ini mirip dengan pencarian data  pada grid bag 2 yang telah saya posting sebelumnya. 

Apakah anda sudah bisa membuat Pencarian Data Pada Listview Di VB? Jika sudah tidak usah diplototin tulisan ini, bagi yang belum bisa silahkan disimak sampai akhir tulisan ini.

Pada postinga ini saya tidak akan memakai option button untuk opsi pencariannya tapi nanti hasilnya sama dengan memakai option. Kita akan rubah koding pencariaannya sehingga menghasilkan pencarian yang sama seperti pada tutorial pertama dengan hanya memasukan kata kunci pada text box pencariaannya tanpa perlu susah-susah memilih dulu opsi pencariaannya.

Disini akan menggunakan perintah LIKE dalam bahasa SQL, misalnya kita ingin mencari nama agus ketika mengetikan nama agus pada pencarian maka akan tampil semua nama yang mengandung nama agus.Itulah salah satu kelebihan perintah LIKE.

Sebagai contoh buatlah sebuah form dalam vb 6 seperti yang nampak pada gambar berikut ini

Tampilkan Gambar



Saya masih menggunakan database yang sama seperti pada tutorial bagian pertama.
Kodingnya sama seperti pada tutorial bag 1 hanya yang membedakan pada bagian Text1_Change.
Disini saya hanya akan menjelaskan  koding untuk pencariannya saja, untuk koding lengkapnya silahkan download source codenya di akhir tulisan ini.

Berikut koding pencariannya silahkan tulis pada bagian Text1_Change


Private Sub Text1_Change()
    Call Buka
    Set RsMhs = New ADODB.Recordset
    RsMhs.Open "SELECT * FROM Tbl_Mhs " _
             & "WHERE nim LIKE '%" & Text1.Text & "%' " _
             & "OR nama LIKE '%" & Text1.Text & "%' " _
             & "OR alamat LIKE '%" & Text1.Text & "%' " _
             & "OR jurusan LIKE '%" & Text1.Text & "%'", _
    Conn, adOpenDynamic, adLockOptimistic
    
    ' menampilkan hasil ke list view
    With RsMhs
    If Not .EOF Then
        i = 1
        ListView1.ListItems.Clear
        While Not .EOF
          Set View = ListView1.ListItems.Add
          View.Text = i          'nomor urut
          View.SubItems(1) = !Nim
          View.SubItems(2) = !Nama
          View.SubItems(3) = !alamat
          View.SubItems(4) = !jurusan
          i = i + 1
          .MoveNext
        Wend
    End If
    End With
    RsMhs.Close
End Sub

Jika sudah silahkan di simpan dan jalankan, jika berhasil maka akan nampak seperti gambar animasi berikut ini.



Contoh atau tutorial Pencarian Data Pada Listview Di VB Bag 2 ini dapat anda terapkan dengan database selain Ms Access seperti MySQL, SQL Server dan lain lain. Jika anda menginginkan koding ( source code ) lengkapnya silahkan download link di bawah ini.







Tags:
Pencarian Data Pada Listview Di VB Bag 2, Pencarian data di listview dengan perintah LIKE, Filter data pada listview dengan perintah SQL, penyaringan data pada listview,Pencarian Data Pada Listview Di VB 6,Pencarian Data Pada Listview Di VB 6.0,Pencarian Data Pada Listview Di VB6

Pencarian Data Pada Listview Di VB Bag 1

Sudahkah anda bisa menampilkan data dari database ke sebuah listview...? Jika belum silahkan buka pastingan saya sebelumnya karena untuk tutorial ini saya tidak akan menjelaskan cara menampilkan datanya.

Saya akan langsung menjelaskan pencarian data pada listview di visual basic. Apakah anda sudah bisa melakukan pencarian data yang datanya tampil dalam sebuah listview...? Jika sudah bisa tidak usah di baca postingan Pencarian Data Pada Listview Di VB Bag 1 ini, jika belum bisa silahkan simak baik-baik tutorial ini.

Pada tutorial Pencarian Data Pada Listview Di VB Bag 1 ini saya menggunakan option button untuk memilih kategori pencarian datanya, seperti pada tutorial pencarian data pada msflexgrid bag 1.
Buatlah  atau desainlah sebuah form seperti gambar berikut ini

Tampilkan Gambar



Pada postingan ini saya memakai database Ms Access dengan nama database DB_MHS.mdb, dengan nama tabel Tbl_Mhs desain tabelnya seperti yang nampak pada gambar berikut ini :

Tampilkan Gambar



Jika sudah kita lanjutkan menulis koding untuk pencariannya, untuk koding menampilkan datanya tidak akan saya bahas di sini silahkan lihat tutorial sebelumnya disini atau download koding lengkapnya di akhir tulisan ini.

Tulislah koding berikut ini pada bagian Text1_Change

Private Sub Text1_Change()
    If Option1.Value = False And Option2.Value = False _
        And Option3.Value = False And Option4.Value = False Then
        
        MsgBox "Silahkan Pilih Salah Satu Opsi Terlebih Dulu!", vbExclamation, "Perhatian"
        Text1.Text = ""
        Exit Sub
    End If
    
    Call Buka
    Set RsMhs = New ADODB.Recordset
    'Option 1
    If Option1.Value = True Then
        RsMhs.Open "SELECT * FROM Tbl_Mhs " _
                 & "WHERE nim LIKE '%" & Text1.Text & "%'", _
        Conn, adOpenDynamic, adLockOptimistic
    'Option 2
    ElseIf Option2.Value = True Then
        RsMhs.Open "SELECT * FROM Tbl_Mhs " _
                 & "WHERE nama LIKE '%" & Text1.Text & "%'", _
        Conn, adOpenDynamic, adLockOptimistic
    'Option 3
    ElseIf Option3.Value = True Then
        RsMhs.Open "SELECT * FROM Tbl_Mhs " _
                 & "WHERE alamat LIKE '%" & Text1.Text & "%'", _
        Conn, adOpenDynamic, adLockOptimistic
    'Option 4
    ElseIf Option4.Value = True Then
        RsMhs.Open "SELECT * FROM Tbl_Mhs " _
                 & "WHERE jurusan LIKE '%" & Text1.Text & "%'", _
        Conn, adOpenDynamic, adLockOptimistic
    End If
    
    'menampilkan hasil ke list view
    If Not RsMhs.EOF Then
        i = 1
        ListView1.ListItems.Clear
        While Not RsMhs.EOF
          Set View = ListView1.ListItems.Add
          View.Text = i  'nomor urut
          View.SubItems(1) = RsMhs!Nim
          View.SubItems(2) = RsMhs!Nama
          View.SubItems(3) = RsMhs!alamat
          View.SubItems(4) = RsMhs!jurusan
          i = i + 1
          RsMhs.MoveNext
        Wend
    End If
    RsMhs.Close
End Sub


Jika sudah silahkan simpan dan jalankan jika berhasil maka akan tampil seperti gambar animasi berikut ini.


Contoh atau tutorial Pencarian Data Pada Listview Di VB Bag 1 ini dapat anda terapkan dengan database selain Ms Access seperti MySQL,SQL Server dan lain lain. Jika anda menginginkan koding ( source code ) lengkapnya silahkan download link di bawah ini.








Tags:
Pencarian Data Pada Listview Di VB,Pencarian data di listview,Filter data pada listview,penyaringan data pada listview,Pencarian Data Pada Listview Di VB 6,Pencarian Data Pada Listview Di VB 6.0,Pencarian Data Pada Listview Di VB6

Menampilkan Data Dari Grid Ke Textbox

Anda pasti sudah bisa menampilkan data dari database ke grid. lalu bagaimana menampilkan data yang ada dalam grid ke textbox? Misalnya kita menginginkan data yang ada dalam grid bisa tampil pada textbox dengan cara klik maupun double klik.

Menampilkan Data Dari Grid Ke Textbox sangat mudah kok, kalau anda belum bisa silahkan ikuti caranya sebagai berikut.
Sebagai contoh silahkan buat sebuah form dengan desain sebagai berikut ini,

Tampilkan Gambar



Langkah selanjutnya adalah membuat koding. Saya asumsikan semua sudah bisa cara menampilkan data ke grid karena saya tidak akan menjelaskan koding untuk menampilkan data dari database ke grid, tapi jangan kawatir karena saya akan menyertakan source codenya silahkan di download di akhir tulisan ini.
Sebagai catatan saya menggunakan MsFlexgrid

Berikut koding untuk menampilkan data dari grid ke textbox

Private Sub MSFlexGrid1_DblClick()
    Dim A As Integer
    A = MSFlexGrid1.Row
    If MSFlexGrid1.Rows <> 1 Then
        TxtNim.Text = MSFlexGrid1.TextMatrix(A, 1)
        TxtNama.Text = MSFlexGrid1.TextMatrix(A, 2)
        TxtAlamat.Text = MSFlexGrid1.TextMatrix(A, 3)
        TxtJurusan.Text = MSFlexGrid1.TextMatrix(A, 4)
    Else
        Exit Sub
    End If
End Sub

Koding di atas menggunakan event double klik untuk menampilkan datanya, jika menginginkan pada event klik silahkan nulis kodenya pada event klik atau yang dinginkan.
Jika sudah silahkan di run sebelumnnya silahkan di simpan dulu, jika berhasil maka akan nampak pada gambar animasi berikut ini



Jika anda yang kurang jelas silahkan kasih komentar.Jika anda menginginkan source codenya silahkan download link di bawah ini.






Tags:
Menampilkan Data Dari Grid Ke Textbox,Menampilkan Data ke Textbox,Data Dalam Grid,

Perbedaan Arti BOF dan EOF Dalam VB

Pengertian BOF dan EOF

Dengan menggunakan properti ini maka data dapat dimanipulasi dengan menggunakan mouse, berpindah dari satu record yang satu ke record lainya dari record pertama ke record terahir.

a. EOF

EOF=End of File ini merupakan proses perpindahan data dari record pertama ke record terakhir. Untuk itu melakukan perpindahan EOF ini maka disediakan beberapa properti diantaranya:

  • Metode MoveLast untuk menetapkan pointer pada record terakhir
  • Flag dari metode ini adalah bernilai true atau false.
  • Metode Addnew untuk menetapkan penambahan record baru

b.BOF

BOF=Begin Of File merupakan proses perpindahan data dari record terahir ke record pertama. Untuk melakukan perpindaha BOF ini maka disediakan beberapa properti diantaranya:

  •  Metode MoveFirst untuk menetapkan pointer pada record pertama.
  •  Flag dari metode ini adalah bernilai true dan false.

Penggunaan properti ini biasanya digunakan dalam pengolaha data yang ada didatabase, pengaksesan database dapat menggunakan OLEDB,ADO,DAO dan lain lain....





Tags:
Perbedaan Arti BOF dan EOF Dalam VB,Pengertian BOF dan EOF, Apa Fungsi BOF dan EOF Dalam VB,Fungsi BOF dan EOF Dalam VB

Menampilkan Nama dengan Cara Input NIM

Manampilkan Nama dengan Cara Input NIM, Gimana maksudnya ? Maksud saya adalah dengan memasukan atau mengetikan sebuah nim ke dalam sebuah  textbox lalu kita tekan enter maka jika data yang kita masukan ada maka  nama,alamat dll akan muncul pada textbox yang lain sesuai dengan data yang ada dalam tabel.

Jika sudah muncul datanya terserah anda mau diapakan data tersebut misalnya di hapus,di update atau di simpan ke tabel yang lain sesuaikan dengan kebutuhan anda. Cara ini sangat berguna saat membuat aplikasi pada proses transaksi.

Jika anda belum bisa dan belum tahu caranya silahkan simak postingan saya ini. Langkah-langkahnya sebagai berikut ini. Siapkan sebuah form seperti gambar berikut ini

Tampilkan Gambar





Sebagai contoh saya memakai database DB_MHS.mdb dengan tabel Tbl_Mhs desain tabelnya seperti yang nampak pada gambar berikut ini :

Tampilkan Gambar



Untuk selanjutnya yaitu membuat kodingnya.  Tambahkan sebuah modul dengan cara klik menu Project-Add Modul dan ketikan koding berikut ini pada modul tersebut.

Public Conn As New ADODB.Connection
Public RsMhs As ADODB.Recordset

Public Sub KonekDB()
    Set Conn = New ADODB.Connection
    Conn.CursorLocation = adUseClient
    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
            & "Data Source=" & App.Path & "\DB_MHS.mdb"
End Sub


Jika sudah simpan, kemudian kembali ke form lalu double klik TxtNim kemudian ketikan koding berikut ini pada event Keypress (TxtNim_Keypress)

Private Sub TxtNim_KeyPress(KeyAscii As Integer)
'Jika di tekan enter (KeyAscii = 13)
If KeyAscii = 13 Then
    Call KonekDB
    Set RsMhs = New ADODB.Recordset
    RsMhs.Open "SELECT * FROM Tbl_Mhs " _
             & "WHERE nim='" & TxtNim.Text & "'", _
             Conn, adOpenDynamic, adLockOptimistic
             
    'Jika  di temukan datanya
    If Not RsMhs.EOF Then
        'tampilkan nama,alamat,jurusan pada textbox
        TxtNama.Text = RsMhs!nama
        TxtAlamat.Text = RsMhs!alamat
        TxtJurusan.Text = RsMhs!jurusan
        
    'jika tidak di temukan
    Else
        MsgBox "Data Yang Anda Cari Tidak Data...", vbInformation, "Informasi"
        TxtNama.Text = ""
        TxtAlamat.Text = ""
        TxtJurusan.Text = ""
        TxtNim.SetFocus
        Exit Sub
    End If
End If
End Sub

Silahkan di save selanjutkan silahkan dijalankan. jika berhasil maka akan tampil seperti gambar animasi seperti berikut ini.


Selesai jika anda masih kurang jelas atau kendala silahkan kasih komentar. Jika anda menginginkan source codenya silahkan download di link di akhir tulisan ini.






Tags:
Menampilkan Nama dengan Cara Input NIM, Menampilkan nama dengan cara input no anggota, cara menampilkan data, menampilkan data dengan input kata kunci, Menampilkan data yang sudah ada dengan input nim,no anggota, no transaksi,no pinjam, kode

Pencarian Data Pada MsFlexGrid Di VB Bag 2

Pada postingan sebelumnya saya pernah membahas pencarian pada MsFlexGrid dengan menggunakan option button sebagai opsi pencariannya.

Pada postinga ini saya tidak akan memakai option button untuk opsi pencariannya tapi nanti hasilnya sama dengan memakai option. Kita akan rubah koding pencariaannya sehingga menghasilkan pencarian yang sama seperti pada tutorial pertama dengan hanya memasukan kata kunci pada text box pencariaannya tanpa perlu susah-susah memilih dulu opsi pencariaannya.

Silahkan buat form seperti pada tampilan berikut ini saya menggunakan database yang sama seperti pada bag 1
 
Tampilkan Gambar



Kodingnya sama seperti pada tutorial bag 1 hanya yang membedakan pada bagian Text1_Change. Berikut kodingnya

Private Sub Text1_Change()
MSFlexGrid.Clear
Call AktifGrid

MSFlexGrid.Rows = 2
Baris = 0
'memmanggil koneksi database
Call KonekDB
Set RsMhs = New ADODB.Recordset
'Pencarian berdasarkan nim,nama,alamat dan jurusan
RsMhs.Open "SELECT * FROM Tbl_Mhs " _
         & "WHERE nim LIKE '%" & Text1.Text & "%' " _
         & "OR nama LIKE '%" & Text1.Text & "%' " _
         & "OR alamat LIKE '%" & Text1.Text & "%' " _
         & "OR jurusan LIKE '%" & Text1.Text & "%'", _
Conn, adOpenDynamic, adLockOptimistic
'---------------------
If RsMhs.BOF Then
    Exit Sub
Else
    With RsMhs
        .MoveFirst
        Do While Not .EOF
            Baris = Baris + 1           'no urut
            MSFlexGrid.Rows = Baris + 1
            MSFlexGrid.TextMatrix(Baris, 0) = Baris
            MSFlexGrid.TextMatrix(Baris, 1) = !nim
            MSFlexGrid.TextMatrix(Baris, 2) = !nama
            MSFlexGrid.TextMatrix(Baris, 3) = !alamat
            MSFlexGrid.TextMatrix(Baris, 4) = !jurusan
            .MoveNext
        Loop
    End With
End If
RsMhs.Close
End Sub

Untuk koding menampilkan data dan lainnya silahkan download source codenya, karena pada postingan ini tidak asaya jelaskan karena sudah saya jelaskan pada bagian 1 yang membedakan hanya pada bagian pencariannya saya yaitu Text1_Change.

Jika berhasil maka akan tampak seperti gambar animasi berikut ini



Kalau anda menginginkan source codenya silahkan download source codenya di link berikut ini.







Tags:
 Pencarian Data Pada MsFlexGrid,Pencarian Data, Trik Pencarian Data, Filter data pada vb,Penyaringan Data pada VB,Pencarian Data Pada MsFlexGrid Di VB,Pencarian Data Pada Grid,Pencarian Data Di Grid

Komponen KButton (KxButton.ocx)

Saya akan berbagi sebuah komponen ocx, dengan komponen ini bisa menambah apik tampilan aplikasi yang kita buat. Nama komponen ocx nya adalah KButton.

Komponen ocx KButton ini adalah sebuah tombol button yang tampilannya berbentuk flat. Jika anda ingin membuat tombol flat pada form vb silahkan pakai komponen KButton. Berikut gambar screenshot nya




Menarik bukan..? :) silahkan download komponen KButton.ocx di link di bawah ini :






Tags :
Download KxButton.ocx,Komponen KButton (KxButton.ocx), Tombol Flat Di VB,Komponen Tambahan,Memperindah Tampilam Form