Baca Juga
Cara Membuat Program Aplikasi Phonebook
1. Buka Access, buat database baru.
Nama database : phonebook.mdb, lalu save as.
Nama table: tblphonebook
Type
|
Primary Key
|
|
No
|
Text
|
Yes
|
Nama
|
Text
|
No
|
Nope
|
Text
|
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
EmoticonEmoticon