Pages

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

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

Membuat Laporan Dengan Crystal Report Yang Databasenya Diberi Password

Pada postingan sebelumnya saya sudah membahas cara koneksi vb dengan database berpassword. Jika belum baca silahkan baca terlebih dulu postingan saya sebelumnya. Terus bagaimana membuat laporan Crystal Report dengan database access berpassword ? Tentunya jika kita membuat laporan crystal report dengan cara biasa pastinya tidak bisa jalan ketika di run.

Supaya laporannya bisa jalan dan datanya bisa tampil kita memerlukan sedikit tambahan kode, cuma satu baris kode saja gak usah banyak-banyak. Ingin tahu caranya silahkan ikuti langkah-langkah berikut ini :


  • Buka crystal reportnya
  • Buatlah laporan dari salah satu tabel yang anda inginkan
  • Pada tahapan tertentu akan di minta memasukan password khususnya pada saat memilih database dan tabel, silahkan di masukan password databasenya
  • Jika membuat laporannya sudah selesai silahkan simpan laporannya
  • Buka VB
  • Kemudian desainlah sebuah form tambahkan komponen ke dalam form sebuah command button dan crystal report control seperti gambar berikut ini :


  • Kemudian gantilah komponen crystal report controlnya menjadi CR supaya dalam penulisan kode program menjadi lebih simple
  • Kemudian double klik command button nya lalu ketikan koding berikut ini :
 
Private Sub Command1_Click()
CR.ReportFileName = App.Path & "\report1.rpt"
CR.Password = Chr(10) & "12345678" '(ketik password database anda)
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.Action = 0
End Sub

Jika sudah simpan dan silahkan di run programnya, semoga berhasil dan bermanfaat. Jika ada yang kurang jelas silahkan kasih komentar.

Silahkan download source codenya yang telah saya sediakan di link di bawah ini.






Tags:
Membuat Laporan Dengan Crystal Report Yang Databasenya Diberi Password, Laporan dengan database berpassword,Tutorial membuat laporan crystal report dengan database berpassword,trik mengatasi database berpassword

Koneksi VB Dengan Database Access Berpassword

Untuk melindungi database kita dari sesuatu yang tidak diinginkan alangkah baiknya databasenya diberi password. Yang menjadi pertanyaan adalah bagimana mengkoneksikan VB dengan Database Access berpassword ? Jika anda ingin tahu simak tulisan ini sampai selesai.

Saya anggap semuanya sudah bisa cara memberi password pada database ms access. Disini saya memaki database dengan nama db_mhs.mdb yang telah saya beri password '12345678'.
Sebagai contoh saya akan mencoba menampilkan data dari database yang telah di beri password tersebut ke dalam komponen msflexgrid. Siapkan sebuah form seperti gambar berikut ini.




Untuk koneksinya saya menggunakan sebuah modul, tambahkan modul dengan cara klik menu project-Add Modul dan ketikan koding berikut ini yang berguna menghubungkan database dengan aplikasi vb:

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

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

Untuk lebih jelanya silahkan lihat screenshotnya seperti gambar berikut


koding yang  di dalam kotak merah ada tulisan 12345678 itu merupakan password databasenya. Selanjutnya yaitu koding untuk menampilkan data ke msflexgrid. sebenarnya koding sama seperti kita menampilkan data ke msflexgrid dengan menggunakan database tanpa password pada tutorial-tutorial saya sebelumnya. Berikut kodingnya :

Option Explicit

Sub AktifGrid()
    MSFlexGrid.Cols = 5
    MSFlexGrid.RowHeightMin = 300
    '-------------------------------------------------
    MSFlexGrid.Col = 0
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "NO"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(0) = 500
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
    '-------------------------------------------------
    MSFlexGrid.Col = 1
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "NIM"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(1) = 700
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
    '-------------------------------------------------
    MSFlexGrid.Col = 2
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "NAMA MAHASISWA"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(2) = 2000
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
    '-------------------------------------------------
    MSFlexGrid.Col = 3
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "ALAMAT"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(3) = 2000
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
    '---------------------------------------------------
    MSFlexGrid.Col = 4
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "JURUSAN"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(4) = 2300
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
End Sub

Sub TampilGrid()
    Dim Baris As String
    MSFlexGrid.Clear
    Call AktifGrid

    MSFlexGrid.Rows = 2
    Baris = 0
    Call KonekDB
    Set RsMhs = New ADODB.Recordset
    RsMhs.Open "SELECT * FROM tbl_mhs ORDER BY nim ASC", Conn, adOpenDynamic, adLockOptimistic

    If RsMhs.BOF Then
        Exit Sub
    Else
        RsMhs.MoveFirst
        Do While Not RsMhs.EOF
            Baris = Baris + 1
            MSFlexGrid.Rows = Baris + 1
            MSFlexGrid.TextMatrix(Baris, 0) = Baris
            MSFlexGrid.TextMatrix(Baris, 1) = RsMhs!nim
            MSFlexGrid.TextMatrix(Baris, 2) = RsMhs!nama
            MSFlexGrid.TextMatrix(Baris, 3) = RsMhs!alamat
            MSFlexGrid.TextMatrix(Baris, 4) = RsMhs!jurusan
            RsMhs.MoveNext
        Loop
    End If
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Call Buka
    Call TampilGrid
End Sub


jika sudah selesai silahkan dijalankan. semoga berhasil dan bermanfaat. Jika anda menginginkan source codenya silahlan download pada link di bawah ini.






Tags:
Koneksi VB Dengan Database Access Berpassword,VB Dengan Database Access Berpassword,Cara Koneksi VB 6 Dengan Database Access Berpassword,Password Database,Memberi Password Pada Database Access