Menampilkan Daftar Table Database Ms.Access Dengan ADO VB6

Berikut ini adalah cara menampilkan daftar table database Ms.Access di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form.
2. Tambahkan 1 Combobox, beri nama cboRecordsource dan 1 Commandbutton (Command1).
3. Tambahkan reference Microsoft ActiveX Data Objects 2.0 Library dari menu Project->References...
4. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Private Sub DaftarTabel(Daftar As ComboBox)
          Dim cnn As ADODB.Connection
          Dim rs As ADODB.Recordset
          On Error GoTo Pesan

              'Inisialisasi variabel Connection
              Set cnn = New ADODB.Connection
              cnn.CursorLocation = adUseClient
              'Sesuaikan lokasi database di PC Anda
              cnn.ConnectionString = _

                  "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                  "Data Source=D:\Samples\Visual Basic\MyOCX\ADOKontrol2\ADOKontrol\mahasiswa.mdb;" & _
                  "Jet OLEDB:Database Password=;"
              cnn.Open

             
              'Buka skema tabel dengan OpenSchema
              Set rs = cnn.OpenSchema(adSchemaTables)
              'Bersihkan daftar tempat menampungnya dulu

              Daftar.Clear
              While rs.EOF <> True
                  'MSys untuk tabel sistem di MS Access
                  'sys biasanya tabel sistem di MS SQL Server
                  'Jadi, tabel sistem tidak perlu ditampilkan...

                  If Left(rs.Fields("Table_Name").Value, 4) <> "MSys" And _
                     Left(rs.Fields("Table_Name").Value, 3) <> "sys" Then
                      Daftar.AddItem rs.Fields("Table_Name")
                  End If

                  rs.MoveNext
              Wend
             
              Daftar.Text = Daftar.List(0)

              'Tutup semua variabel recordset dan connection
              rs.Close
              cnn.Close
              'Bersihkan memory yang telah digunakan
              Set rs = Nothing

              Set cnn = Nothing
              Exit Sub
          Pesan:  'Jika ada error, tampilkan nomor dan deskripsinya
              MsgBox Err.Number & " - " & _

                     Err.Description, vbCritical, "Error"
          End Sub

          Private Sub Command1_Click()

            Call DaftarTabel(cboRecordsource)
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module