Contoh Database Nomor Telepon di Visual Basic 6.0 (Part 1)

Apa itu Database?



Database adalah kumpulan informasi yang disimpan didalam
komputer secara sistematik sehingga dapat diperiksa
menggunakan suatu program komputer untuk memperoleh
informasi dari Database tersebut.

Seperti biasa buka Visual Basic dengan tipe Standar EXE




Kemudian tambahkan komponen yang diperlukan Database
dengan cara klik tab menu Project - klik Component

Lalu centang Microsoft ADO Data Control 6.0 (OLEDB) dan
Micosoft DataGrid Control 6.0 (OLEDB).

Microsoft ADO Data Control digunakan untuk mengendalikan
Database yang kita gunakan dan Microsoft DataGrid Control 6.0
digunakan untuk melihat isi Database yang kita gunakan.



Nanti kita lihat ada perubahan pada toolbar seperti gambar diatas


 


 
 Private Sub CmdEdit_Click()
FormEdit.Show
End Sub

Private Sub CmdHapus_Click()
If MsgBox("Anda ingin menghapus kontak ini?", vbYesNo, "") = vbYes Then
    Adodc1.Recordset.Delete
Else
    End If
End Sub

Private Sub CmdTambah_Click()
FormTambah.Show
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub


Lalu kita buat koneksi dari Visual Basic ke Databasenya dengan
cara dari Properties ADO DataControl klik Connection String.

Nanti muncul layar Property seperti diatas, kemudian klik Build...



Lalu klik Microsoft Jet 4.0 OLE dan pilih Databasenya
(Link dibawah)

Lalu pilih Record Sourcenya dengan cara. Pada Properties
ADO DataControl pilih Record Source, nanti muncul layar baru

Command Type = 2 - adCmdTable (Karena kita akan membuka
tabel dari Database kita).

Table Name = KontakTelepon (Karena nama tabel yang ada
bernama Kontak Telepon).

*Nama tabel tidak boleh menggunakan spasi.

(Part 2 untuk pembuatan Form Tambah dan Edit)

Link Download :

- Database

- Program VB (RAR lengkap)


By Ahmad Nizar

Thanks to Ibu Ito Riris Immasari,S.Kom

Komentar

Posting Komentar

Postingan populer dari blog ini

Contoh Database Kontak Telepon di Visual Basic 6.0 (Part 2)

Private Sub CmdTambah_Click() If TxtNama.Text = "" Then     MsgBox "Nama belum di isi!", vbCritical, "Peringatan!" ElseIf TxtAlamat.Text = "" Then     MsgBox "Alamat belum di isi!", vbCritical, "Peringatan!" ElseIf TxtNo.Text = "" Then     MsgBox "Nomor Telepon belum di isi!", vbCritical, "Peringatan!" ElseIf MsgBox("Apakah anda ingin menambahkan kontak?", vbYesNo, "") = vbYes Then     FormUtama.Adodc1.Recordset.AddNew     FormUtama.Adodc1.Recordset!Nama = TxtNama.Text     FormUtama.Adodc1.Recordset!Alamat = TxtAlamat.Text     FormUtama.Adodc1.Recordset!NoTelp = TxtNo.Text     MsgBox "Kontak Berhasil di Simpan", vbInformation, "Kontak Tertambah"     Bersih Else     End If End Sub Private Sub CmdKembali_Click() Unload Me End Sub Sub Bersih() TxtNama.Text = "" TxtAlamat.Text = "" TxtNo.Text = "" End Sub Private Sub CmdKe...
Baca selengkapnya

Prinsip Dasar Animasi

Gambar
PRINSIP DASAR ANIMASI Prinsip dasar animasi adalah Prinsip-prinsip yang digunakan seorang animator untuk mengetahui dan memahami bagaimana sebuah animasi dibuat sedemikian rupa sehingga didapatkan hasil animasi yang menarik, dinamis dan tidak membosankan. Prinsip dasar ini animasi ini sebenarnya paling pas digunakan untuk animasi kartun. 1. SQUASH AND STRETCH Squash and Stretch ini adalah sebuah prinsip yang digunakan untuk membuat ilusi seberapa keras permukaan sebuah benda. Pada dasarnya, ketika sebuah benda yang permukaannya empuk, saat menghantam benda lain dengan keras akan berubah bentuknya sementara sebelum akhirnya bisa kembali lagi ke bentuk semula. Beda dengan benda yang permukaannya keras, ketika menghantam benda lain, bentuknya tetap dan tidak berubah. Squash and Stretch pada animasi bola Dari gambar di atas, kita bisa menentukan bola mana yang permukaannya keras dan mana yang tidak. Hal tersebut bisa diketahui dari: ‘’Bola yang keras tidak mengala...
Baca selengkapnya