LAPORAN
AKHIR
Mata Praktikum : Algoritma
dan Pemrograman 2A (AP 2A)
Kelas : 1IA16
Praktikum
Ke- : 3
(Tiga)
Tanggal : 16
April 2014
Materi : Database pada VB
NPM : 59413607
Nama : Yunita Rahman
Ketua Asisten : Febrian
Reza
Nama Asisten :
Paraf Asisten :
Jumlah Lembar : 9
Lembar
LABORATORIUM
TEKNIK INFORMATIKA
UNIVERSITAS
GUNADARMA
2014
Database
MS. Access dan Visual Basic
Cara
membuat database melalui Ms. Access adalah langkah pertama membuka MS. Access
kemudian klik new database, kemudian save as1ia16.mdb menggunakan format
*.mdb atau Ms.Access 2002-2003. Setelah di save as klik view->design view.
Lalu ketikan NPM, Nama, Alamat, dan Kelas pada database.Maka setelah dibuat
database akan tampil seperti gambar ini
Jika ingin melihat databasenya dapat
mengklik view ->datasheet view. Maka akan tampil seperti gambar berikut.
Kemudian buka aplikasi
Microsoft Visual Basic 6.0 dan project baru. Setelah itu pada bagian component disebelah kiri, klik kanan
dan pilih component, seperti gambar
berikut ini.
Ceklis bagian ADO
Data Control dan Ms Datagrid Control dan klik OK. Lalu akan
muncul gambar berikut
Lalu di sebelah
kiri akan muncul 2 tools baru. Lalu tahap selanjutnya Pada komponen adodc, alihkan perhatian pada
propertis dan pilih ConnectionString dan akan muncul property pages.
Kemudian klik Build pada bagian Use Connection String.
Pilih Microsoft
Jet 4.0 OLEDB Provider dan klik NEXT.
Selanjutnya,
kita akan memilih file database 1ia16.mdb yang tadi telah dibuat.
Pilih file dan
tes connection untuk pengetesan database lalu klik oke.
Klik kanan lagi pada bagian adodc dan
pilih tab RecordSource ,pada bagian command type, pilih 2-adCMdTable
dan pilih tabel1, kemudian
klik Oke.
Selanjutnya,
pada datagrid, Setting DataSource dengan adodc1 yang sudah
kita setting sebelumnya.
Kemudian, Klik
Kanan datagrid dan pilih Retrieve Fields , dan jika ditanyai seperti
berikut, pilih Yes saja.Maka
projectsiap untuk di Run (F5).
Logika
Program
Analisa Program :
Membuat program
menggunakanMicrosoft visual basicdengan versi Ms.Visual Basic 6.0. Pada program
menggunakan sebuah sistem database yang terkoneksi dengan visual
basic
pada Ms.Access.
Penjelasan
program :
Langkah pertama
adalah membuat TextBox1, TextBox2, TextBox3, dan TextBox4. Kemudian membuat 5 label ,1 Data Grid , 1 Adodc dan 2 Command Button
Adodc1.Recordset.AddNew
Fungsi : Syntax
berikut untuk mendeklarasikan sebuah record
baru pada adodc.
Adodc1.Recordset.Fields("NPM") = Text1.Text
Fungsi : Syntax ini untuk menginput data NPM yang
ada pada datagrid ketika program sedang dijalankan. Kemudian
input data tersebut ada jika setelah kita input data pada textbox1.
Adodc1.Recordset.Fields("Nama") =
Text2.Text
Fungsi : Syntax ini
adalah untuk menginput data NAMA pada
datagrid
ketika program sedang dijalankan. Lalu input data tersebut ada jika setelah
kita input data pada textbox2.
Adodc1.Recordset.Fields("Alamat")
= Text3.Text
Fungsi : Syntax tersebut untuk menginput data Alamat pada datagrid ketikaprogram dijalankan. Lalu
input data tersebut ada jika setelah kita input data pada textbox3.
Adodc1.Recordset.Fields("Kelas")
= Text4.Text
Adodc1.Recordset.Update
Fungsi : Syntax tersebut berfungsi untuk membuat record pada datagrid.
End Sub
Fungsi : End Sub berfungsi untuk menghentikan proses pada program atau merupakan
batas akhir dari syntax .
Pada CommandButton 2
Adodc1.Recordset.Delete
Fungsi : Syntax iniuntuk menghapus data yang salah ketika program telah di running atau menghapus
data yang sudah tidak dibutuhkan lagi .
Berikut
Syntaxnya :
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("NPM")
= Text1.Text
Adodc1.Recordset.Fields("Nama")
= Text2.Text
Adodc1.Recordset.Fields("Alamat")
= Text3.Text
Adodc1.Recordset.Fields("Kelas")
= Text4.Text
Adodc1.Recordset.Update
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Delete
End
Sub
Output Program
Tidak ada komentar:
Posting Komentar