Home » Ulasan Visual Basic » Cara Membuat Data Browse Visual Basic

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

|

Pengunjung