Cara Membuat Program Aplikasi Phonebook

Baca Juga

Cara Membuat Program Aplikasi Phonebook

1.     Buka Access, buat database baru.
        Nama database : phonebook.mdb, lalu save as.
        Nama table: tblphonebook

Field	Type	Primary Key
No	Text	Yes
Nama	Text	No
Nope	Text	No

2.     Buka VB, tambahkan component “Ms. ADO Data control 6.0”
        cara dicelist “CTRL+T”
3.     Rancang tampilan Aplikasi
4.     Letakkan object ADODC, klik ADODC pada rancangan form
        aplikasi phonebook.
5.     Klik kanan ADODC, klik ADODC properties. Klik tombol
        build, pilih provider Microsoft Jet 4.0
       OLE DB provider, klik next.
6.     Klik tombol ellipsis (..) cari posisi database phonebook.mdb,
        klik open, klik text connection.
7.     Jika benar akan muncul pesan”Test connection successes”
        klik ok, klik ok
8.     Klik tab Recordset. Pada bagian command type pilih
        .adcmdText.
9.     Pada kotak command Text ketikkan “ Select * from
        tblphonebook, klik Apply, klik ok.
10.   Setelah koneksi berhasil, ketikkan kode berikut.

Private Sub cmdsave_Click()
If (txtno.Text <> "") And (txtnama.Text <> "") And (txtnope.Text <> "") Then
adophonebook.RecordSource = "select*from tblphonebook"
adophonebook.Refresh
With adophonebook.Recordset
.AddNew
!No = txtno.Text
!Nama = txtnama.Text
!Nope = txtnope.Text
.Update
MsgBox "Berhasil", vbInformation + vbOKOnly, "pesan"
End With


txtno.Text = ""
txtnama.Text = ""
txtnope.Text = ""
txtno.SetFocus
Else
MsgBox "Data Belum Lengkap", vbInformation + vbOKOnly, "pesan"
txtno.Text = ""
txtnama.Text = ""
txtnope.Text = ""
End If
End Sub

Dan Hasilnya data yang Anda masukkan telah di masuk kedalam Ms. Access yang telah di buat . Dan tampilan form nya sebagai berikut.

      

Dan inilah gambar Aplikasi phonebook

                       

Gambar 1