Cara Membuat Data Browse Visual Basic

Cara Membuat Data Browse Visual Basic  Untuk menjaga agar data pada Aplikasi tidak sembarang orang bisa melihat dan mengubahnya biasanya dibuatlah Form Login, dengan adanya Form Login data-data yang tersimpan diaplikasi hanya bisa dilihat dan edit oleh user yang sudah terdaftar. Pada Aplikasi Standar biasanya menggunakan Form Login dinamis dengan begitu kita bisa menambahkan user dan mengubah password, yang biasanya data user dan password disimpan di dalam file database.

Sebelum membuat Form Data Browse Dinamis, sebaiknya kita belajar dulu tentang cara membuat FormData Base sederhana yang sifatnya statis, maksudnya adalah user dan password ditentukan didalam coding vb 6 jadi tidak bisa diubah. Dengan mempelajari dasar pembuatan Datas Base Statis maka nantinya akan memudahkan kita pada saat membuat Data Browse Dinamis.

PERTEMUAN RAHASIA

Membuat DATA BROWSE

DATABASE

Membuat database, table:

�          Nama database  : KAMPUS

�          Nama table        : JURUSAN

o    Field                        Type     Size      Desc

o    NAMA_USER        text       10         PrimaryKey

o    PASSWORD           text       10

o    Isi 3 data JURUSAN

VISUAL BASIC

MENGAKTIFKAN REFERENSI ADODB (jangan LUPA, pertemuan 1 sudah dibahas)

Langkah:

�          Menu PROJECT + REFERENCE

�          Klik [ X ] Microsoft ActiveX Data Object 2.8 Library (cari yg lebih tinggi)

�          Klik [ X ] Microsoft ActiveX Data Object Recordset 2.8 Library (cari yg lebih tinggi)

BUAT FORM sbb:

FORM9                                                                          FORM8

LANGKAH SETTING:

1.     AKTIFKAN REFERENSI ADODB

2.     MEMBUAT CONNECTION dari PROGRAM � ke DATABASE, buat MODUL

a.     MENU PROJECT + ADD MODULE

CODE di MODUL

Public CONN As ADODB.Connection Public RS As ADODB.Recordset Sub BUKA_Database() '/-----cata connect database tehnik-1 Set CONN = New ADODB.Connection CONN.CursorLocation = adUseClient x= "Driver={Microsoft Access Driver (*.mdb)};" & _     "DBQ=KAMPUS.MDB;" & _     "DefaultDir=" & APP.PATH & "\;" & _     "PWD=;UID=admin;" CONN.Open X End Sub

CODE-CODE

di FORM DATA JURUSAN

CODE di FORM _ LOAD

Call BUKA_database TEXT1=�� TEXT2=�� TEXT3=��

KET: ?Code ini untuk memanggil CONNECTION DATABASE yang ada di MODUL, jangan sampai LUPA yah..

Code di TOMBOL AMBIL DATA

Form8.Show (1)

? Panggil / munculkan FORM BROWSE DATA JURUSAN�

CODE-CODE

di FORM BROWSE DATA JURUSAN

PROCEDURE-PROCEDURE Pada FORM

Sub MUNCULIN_data_ke_GRID() X = "" X = "SELECT KODE_JURUSAN, NAMA_JURUSAN, BIAYA FROM JURUSAN ORDER BY KODE_JURUSAN" Set RS = New ADODB.Recordset RS.Open X, Conn, adOpenStatic If RS.RecordCount > 0 Then         Me.MSHFlexGrid1.Enabled = True     Me.MSHFlexGrid1.Clear     Set Me.MSHFlexGrid1.DataSource = RS          With Me.MSHFlexGrid1         .AllowUserResizing = flexResizeColumns         .SelectionMode = flexSelectionByRow         .ColWidth(0) = 500      '/buat nomer urut         .ColWidth(1) = 1500     '/kolom kdbarang         .ColWidth(2) = 3000     '/kolom nama         .ColWidth(3) = 1000     '/kolom harga         '/-----BUAT NOMER URUT         For nomer = 1 To Me.MSHFlexGrid1.Rows - 1             Me.MSHFlexGrid1.TextMatrix(nomer, 0) = nomer         Next     End With Else     Me.MSHFlexGrid1.Enabled = False End If RS.Close Set RS = Nothing End Sub

? buka database ? tampilkan data ke GRID

Sub MUNCULKAN_DATA() With Me.MSHFlexGrid1     Form9.Text1 = .TextMatrix(.Row, 1)  'kode     Form9.Text2 = .TextMatrix(.Row, 2)  'nama     Form9.Text3 = .TextMatrix(.Row, 3)  'biaya End With Unload Me End Sub

? untuk mengambil data yang di PILIH pada posisi kursor di GRID

 Selamat Mencoba