PEMBUATAN DATABASE DENGAN MS ACCESS
Pada bagian ini kita akan mempelajari beberapa cara untuk membuat database sistem
persediaan menggunakan database Microsoft Access 2007. Database akan berisi table-tabel
yang digunakan pada aplikasi pengambilan matakuliah yang akan dibuat.
2.1 Database MS ACCESS
Pertama-tama kita akan membuat sebuah database untuk menampung table-tabel yang
digunakan dalam pengembangan aplikasi. Untuk membuat database system pengambilan
matakuliah, lakukanlah langkah-langkah sebagai berikut :
a. Jalankan Microsoft Access 2007.
Gambar 3.0. Editor Microsoft Access 2007
b. Pada editor Microsoft Access 2007 diatas, klik Blank Database dan akan tampil seperti
layar dibawah ini.
Klik Blank Database
9
Gambar 3.1.Tampilan Bank Database
c. Dari gambar diatas, klik tempat penyimpanan database misal di D:/ atau C:/ lalu buat
nama database dari file name misal stmik dan jangan lupa save as type diformat
menjadi Microsoft Access 2003.lalu klik Ok kemudian klik lagi Create.
d. Selanjutnya pada toolbar editor View, pilih menu Design View, lalu buat nama table
dengan nama tbmahasiswa. Seperti pada Gambar dibawah.
Gambar 3.2. Nama Tabel
e. kemudian klik Ok, lalu tampil layar editor seperti gambar dibawah.
Gambar 3.3. Editor Tabel
klik
10
f. Isilah nama field berserta tipe data dari field pada editor tabel.
g. Kemudian buatlah table-tabel untuk database stmik. Sebagai contoh, tbmahasiswa yang
berfungsi untuk menampung data mahasiswa. Untuk nama field dan tipe data dari table
tbmahasiswa adalah sebagai berikut :
h. Tampilan field-field table tbmahasiswa seperti yang terlihat pada Gambar dibawah.
Gambar 3.4.Field-fieldTabel tbmahasiswa
i. Kemudian buatlah Primary Key, klik npm lalu mengklik icon kunci yang terdapat pada
toolbar. Kemudian save lalu close
Created By Mustar Aman, S. Kom.
STMIK Insan Pembangunan. 4 Maret 2013.
Nama Field Tipe Data Ukuran
npm Text 10
nmmahasiswa Text 20
jurusan Text 18
prody Text 12
semester Text 8
11
BAB 111
PEMBUATAN FORM
1. Membuat Program Aplikasi VB 6.0
Untuk membuat sebuah program aplikasi dengan Visual Basic 6.0, yang harus anda lakukan
adalah membuat sebuah proyek, menambah form kedalam proyek apabila program aplikasi
anda membutuhkan lebih dari satu form, meletakan atau menambahkan objek control pada
form, menulis kode program dan mengeksekusi atau menjalankan program tersebut untuk
melihat hasilnya. Berikut ini cara-cara membangun sebuah aplikasi pada Visual Basic 6.0.
1.2 Membuat Sebuah Proyek
Pada Visual Basic 6.0 anda akan berkerja dengan proyek. Proyek yang akan dipakai di
sini adalah proyek Standar Exe. Pada waktu sebuah proyek dibuat, secara default telah
terdapat sebuah form, yaitu Form1 di dalam proyek tersebut. Untuk membuat sebuah
proyek, caranya sebagai berikut :
1. Dari Windows, jalankan program Visual Basic 6.0. Setelah itu muncul kotak dialog
New Project seperti pada Gambar di bawah ini :
Gambar 3.5 Kotak Dialog New Project
2. Pada kotak dialog New Project tab New tersebut diatas, pilih Standar Exe lalu klik
Open. Kemudian akan tampil Form seperti gambar dibawah :
12
Gambar 3.6 Tampilan IDE Visual Basic 6.0
3. Untuk membuat form master pelanggan, lakukanlah langkah-langkah sebagai berikut:
1. Tambahkan sebuah form pada project.
2. Tambahkan lima buah textbox, enam buah command button dan lima buah label.
3. Atur property objek-objek tersebut sebagai berikut:
Objek property Setting
Form1 Nama Mahasiswa
Caption Form Mahasiswa
Label1 Caption NPM
Label2 Caption Nama Mahasiswa
Label3 Caption Jurusan
Label4 Caption Prody
Label5 Caption Semester
Text1 Nama Text1
Text
Maxlength 10
Text2 Nama Text2
Text
Maxlength 20
Text3 Nama Text3
Text
Maxlength 18
Text4 Nama Text4
Text
Maxlength 8
13
Text5 Nama Text5
Text
Maxlength 10
Command1 Nama Command1
Caption &Tambah
Command2 Nama Command2
Caption &Simpan
Command3 Nama Command3
Caption &Ubah
Command4 Nama Command4
Caption &Batal
Command5 Nama Command5
Caption &Hapus
Command6 Nama Command6
Caption &Keluar
4. Tampilan dari form Data Mahasiswa seperti yang terlihat pada Gambar 3.7
Gambar 3.7 Tampilan Form Mahasiswa
14
5. Sedangkan untuk kode programnya sebagai berikut :
‘Deklarasi koneksi dan recordset
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Call aktif
Call kosong
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = True
End Sub
Private Sub Command2_Click()
Dim mysql As String
Dim konfirmation As String
If Text1 <> "" Then
cnn.BeginTrans
If Text1.Enabled = True Then
pesan = MsgBox("data akan disimpan..?", vbYesNo + vbInformation, "pesan")
If pesan = vbYes Then
‘Menambah record pada tabel
mysql = "insert into tbmahasiswa(npm,nmmahasiswas,jurusan,prody,semester)" & _
"values('" & Text1 & "', '" & Text2 & "','" & combo1 & "', '" & combo2 & "',
'" & combo3 & "')"
‘Mengeksekusi printah SQL
cnn.Execute (mysql)
Adodc1.Refresh
End If
Else
pesan = MsgBox("data sudah ada mau disimpan ulang..?", vbYesNo +
vbInformation, "pesan")
If pesan = vbYes Then
‘Mengubah record pada tabel
mysql = " update tbmahasiswa set " & _
"nmmahasiswa = '" & Text2 & "'," & _
"jurusan = '" & combo1 & "'," & _
"prody = '" & combo2 & "'," & _
15
"semester = '" & combo3 & "'" & _
"where npm = '" & Text1 & "'"
cnn.Execute (mysql)
Adodc1.Refresh
End If
End If
cnn.CommitTrans
Adodc1.Refresh
Call nonaktif
Call kosong
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True
End If
End Sub
Private Sub Command3_Click()
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = False
End Sub
Private Sub Command4_Click()
cnn.Close
Set cnn = Nothing
Form_Load
Call kosong
End Sub
Private Sub Command5_Click()
Dim mysql As String
Dim konfirmasi As String
If Text1 <> "" And Text1.Enabled = False Then
16
cnn.BeginTrans
konfirmasi = MsgBox("Data akan dihapus..?", vbYesNo + vbQuestion, "pesan")
If konfirmasi = vbYes Then
‘Menghapus record pada tabel
mysql = "delete from tbmahasiswa where npm='" & Text1 & "'"
‘Mengeksekusi printah SQL
cnn.Execute (mysql)
Adodc1.Refresh
End If
cnn.CommitTrans
Adodc1.Refresh
Call nonaktif
Call kosong
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
End If
End Sub
Private Sub Command6_Click()
‘Keluar dari form
Unload Me
End Sub
Private Sub Form_Activate()
‘ ukuran dan posisi form
Me.Height = 4000
Me.Left = 2000
Me.Top = 1000
Me.Width = 7000
End Sub
Sub nonaktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
End Sub
17
Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
End Sub
Sub kosong()
‘Mengosongkan textbox
Text1 = ""
Text2 = ""
Combo1.ListIndex = 0
Combo2.ListIndex = 0
Combo3.ListIndex = 0
End Sub
Private Sub Form_Load()
‘Driver ODBC Connection String
Dim koneksi As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
App.Path & "\dbpersediaan.mdb;Persist Security Info=False"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\stmik.mdb;Persist Security Info=False"
Adodc1.Refresh
Call nonaktif
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
‘Menutup koneksi
cnn.Close
Set cnn = Nothing
End Sub
Private Sub Text1_LostFocus()
Dim mysql As String
If Text1 <> "" Then
‘Mencari Kode pada Tabel
mysql = "select * from tbmahasiswa where npm ='" & Text1 & "'"
Set rs = cnn.Execute(mysql)
‘Jika kode sudah ada
If Not rs.EOF Then
‘Menampilkan field yang lain
Text2 = rs.Fields("nmmahasiswa")
Text3 = rs.Fields("jurusan")
Text4 = rs.Fields("prody")
Text5 = rs.Fields("semester")
Call nonaktif
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = True
Else
Text2 = ""
Combo1 = ""
Combo2 = ""
Combo3 = ""
End If
End If
End Sub
BAB IV
MENGKONEKSI ADODC
4.1 MENGKONEKSI ADODC DENGAN DATABASE
Untuk mengkoneksi adodc dengan database maka ikutilah langkah-langkah dibawah
ini :
1. Klik kanan adodc yg ada di tampilan form lalu pilih adodc property seperti
gambar dibawah ini.
2. Kemudian klik Adodc Property seperti diatas lalu tampil layar seperti dibawah.
21
3. Kemudian klik Build, lalu tampil layar seperti dibawah.
4. Dari gambar diatas lalu pilih Microsoft Jet 4.0 OLE DB Provider kemudian klik
next dan akan tampil seperti layar dibawah.
22
5. Kemudian pilih no.1. Select or enter a database name yaitu tempat folder
database disimpan, lalu klik Open kemudian klik Test Connection seperti diatas.
Lalu tampil seperti pada gambar dibawah.
6. Dari Gambar diatas, klik OK. Kemudian klik OK lalu klik OK sekali lagi.
7. Kemudian kembali ke layar property pages seperti dibawah lalu pilih recordsourc
23
Dari tampilan di atas lalu pilih seperti dibawah ini :
- Command type = 2-adCmdTabel
- Table or Stored Procedure Name = tbmahasiswa
baca juga
cara pembuatan menu utama vb
Menu merupakan control yang sering dipakai dalam pembuatan aplikasi database.
.jpg)
0 comments:
Post a Comment