Mahasiswa memahami konsep pembuatan database. Mahasiswa memahami konsep pembuatan program dasar aplikasi database

MODUL D ://________________________________________________________  Mahasiswa memahami konsep pembuatan database.  Mahasiswa memahami konsep pembuatan program dasar aplikasi database I. 1. 2. 3. 4.

Membuat DataBase Buatlah database di Access ->Pilih Blank Access Database kemudian klik OK Untuk File Name ganti db1 dengan DB3203009 (Nim saudara) > Create Pada jendela kerja database tersebut, klik tombol New kemudian muncul kotak dialog New Tabel Pada kotak dialog New Tabel tersebut pilih Design View > Ok

ISI TABEL Field Name Nim Nama Jurusan Tanggal_Masuk

Data Type Text Text Text Date

 Gambaran mengenai ADO Cara Microsoft untuk mengakses data dari banyak provider sisebut Universal data access (UDA), dimana tujuannya adalah agar berbagai tipa data dari bayak aplikasi seperti local network, file teks, email hubugan database, internet dan internet pada beberapa computer dapat diakses. ADO sendiri adalah suatu model database terakhir dan terbaru saat ini dari Microsoft, yang memiliki fungsisebagai alat untuk menjalankan UDA, serta bertujuan agar para pemprogram visual mengikuti standar ODBC dalam pembuatan suatu objek database. OLEDB itu sebenarnya dalah suatu standar database yang digunakan sebagi alat penghubung untuk menghubungkan data dari berbagai sumber data. Misalnya penyimpanan data dalam sebuah database, sebuah file teks, atau lembar kerja. Menggunakan Database ke Form dengan data Environment

1. Project > Add DataEnvironment

WAN H.M Pemrograman Visual Basic 6.0 1 [email protected]

Catatan : jika Add Data Environment tidak terdapat pada menu project pilih menu Project > Components setelah itu pilih Designers lalu klik DataEnvironment1 kemudian klik OK. 2. DataEnfironment ganti di Properties Name-nya DE 3. Connection1 ganti Name-nya Con3203009 (Nim saudara)

4. Arahkan dan tujukan kursor pada Con3203009 setelah itu klik kanan mouse, kemudian pilih properties sehingga muncul kotak dialong DataLink Properties, 5. Pilih Microsoft Jet 4.0 OLEDB Provider.

6. Klik Next

WAN H.M Pemrograman Visual Basic 6.0 2 [email protected]

7. Tentukan Database yang akan digunakan? (pilih DB3203009) 8. klik Test conection jika berhasil klik Ok, maka form properties akan tampil lihat form dibawah ini

9. Tentukan source of data pada jendela Propertis “untuk lebih jelas lihat gambar diatas (samakan) kemudian klik Ok.

10. Setelah Project DE muncul, maka DE “mahasiswa” DRAG ke form kerja Visual Basic 11. Kemudian aturlah Design Interface sesuai dengan form dibawah ini :

WAN H.M Pemrograman Visual Basic 6.0 3 [email protected]

Hasil dari form Mahasiswa

Tugas : Minggu depan dikumpulkan! Buatlah tampilan Report Data Mahasiswa diatas? (diprint )

WAN H.M Pemrograman Visual Basic 6.0 4 [email protected]

2. Database 2: Buatlah tampilan desain interface seperti gambar di bawah ini :

Dim dbBarang As Database Dim rsBarang As Recordset Private Sub Command1_Click() Text4.Text = " " Text4.SetFocus End Sub Private Sub Command2_Click() Data1.Recordset!kode = Text1.Text Data1.Recordset!nama = Text2.Text Data1.Recordset!satuan = Combo1.Text Data1.Recordset!harga = Text3.Text Data1.Recordset.Update Text4.Text = " " End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub

Private Sub Command4_Click() Dim MCari As String MCari = Text4.Text Data1.Recordset.Index = "KodeBrg" Data1.Recordset.Seek "=", MCari If Data1.Recordset.NoMatch Then Data1.Recordset.AddNew x = MsgBox("Data tidak ditemukan!", vbOKOnly, _ "Pencarian Kode Barang") Text1.Text = Text4.Text Text2.SetFocus Else x = MsgBox("Data sudah ada dalam tabel !", vbOKOnly, _ "Pencarian Kode Barang") Text1.SetFocus End If End Sub Private Sub Command5_Click() End End Sub

Buatlah tampilan desain interface seperti gambar di bawah ini :

WAN H.M Pemrograman Visual Basic 6.0 5 [email protected]

Module1 : Option Explicit Public conn As New ADODB.Connection Public rs_DafUser As New ADODB.Recordset Public DBQstr As String Public Sub DB_Open() On Error GoTo ErrDatabaseConnection Set conn = New ADODB.Connection DBQstr = "D:\Dataku\edisi terbaru CIC\STMIK CIC\Pemrograman 2\Kuliah 14\user.mdb;" conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DBQstr rs_DafUser.Open "tuser", conn, adOpenDynamic, adLockPessimistic Exit Sub ErrDatabaseConnection: MsgBox "Program tidak terhubung ke Database, Hubungi Administrator anda", vbCritical, "Koneksi Database" Exit Sub End Sub

Form1 : Private Sub Command1_Click() ChkUser End Sub Private Sub Form_Load() Command2.Enabled = False DB_Open End Sub Private Sub Command2_Click() If Text1.Text = "" Or Text2.Text = "" Then MsgBox ("Maaf..Anda tidak mengisi datanya...") Text1.SetFocus Else Form2.Text1.Text = Text2.Text Form2.Label2.Caption = Text1.Text Form2.Show End If End Sub Public Sub ChkUser() With rs_DafUser .Find "userid='" & Text1.Text & "'", , adSearchForward, 1 If .EOF Then pesan = MsgBox("Maaf User Anda tidak ditemukan..!" + Chr(13) + "User Anda Tidak diaktifkan" + Chr(13) + "Silahkan Mencoba lagi..!", _ vbCritical, App.Title) Text1.Text = " " Text2.Text = " " Text1.SetFocus Else If Trim(!Password) = Trim(Text2.Text) Then userid = rs_DafUser!userid MsgBox ("Selamat..UserID & Password Anda benar..") Command2.Enabled = True Else pesan = MsgBox("Maaf Password Anda Salah..Akses Ditolak!" + Chr(13) + _ "Silahkan Mencoba lagi..!", vbCritical, App.Title) Text2.Text = " " Text2.SetFocus End If End If End With End Sub

WAN H.M Pemrograman Visual Basic 6.0 6 [email protected]

Form2 : Private Sub Command1_Click() With rs_DafUser .Find "userid='" & Label2.Caption & "'", , adSearchForward, 1 If .EOF = False Then If Text2.Text = Text3.Text Then pesan = MsgBox("Password akan berubah, Anda Yakin ?", vbQuestion + vbYesNo, "Password berubah") If pesan = vbYes Then !Password = Text2.Text .Update MsgBox "Password selesai diubah", vbOKOnly + vbInformation, "Password berubah" End Else MsgBox "Password tidak jadi diubah", vbOKOnly + vbInformation, "Password tidak berubah" Text1.Text = "" Text2.Text = "" Text3.Text = "" Unload Me Form1.Show End If Else MsgBox "Password baru tidak sama, silahkan coba lagi !", vbOKOnly, "Password baru tidak sama" Text2.Text = "" Text3.Text = "" Text2.SetFocus End If End If End With End Sub Private Sub Command2_Click() Unload Me End Sub

WAN H.M Pemrograman Visual Basic 6.0 7 [email protected]