Membuat Database dengan Visual Basic

PROPERTIS

nama database = DBCOBA
nama tabel = DBCOBA
field dari tabel DBCOBA = NPM, NAMA,JURUSAN
type data = text

komponen Data, dan DBGrid.

Desain form

Langkah membuat database Pilih menu utama : Add-Ins -> Visual Data Manager

Setelah itu akan tampil window ‘VisData’;
Lalu klik menu File -> New -> Microsoft Access -> Version 7.0 MDB;
pilih directory penyimpana  ->  berikan nama pada database yang akan dibuat -> save
Klik kanan pada properties, kemudian klik new table;
Kemudian tampil window ‘Table Structure’;

Isi tabel name yang telah dibuat tadi Lalu klik commandbutton ‘Add Field’;

Kemudian masukkan Field(name, type, size); Sebagai contoh gambar di bawah ini :

Setelah itu anda klik commandbutton ‘Build The Table’ sehingga tampil ‘Database Window’.

Untuk mengisi data yaitu dengan cara double klik di nama tablenya atau klik kanan pilih open.

cara koneksi database nya, pada Properties Data1 > DatabaseName cari dan buka file DBCOBA.mdb yang telah kita buat. kemudian masih pada Properties Data1 > Recordsource, pilih = DBCOBA.
seperti pada gambar berikut :

Setelah itu pada DBGrid1 Properties > DataSource atur menjadi Data1.

Kemudian copy coding berikut ini pada jendela kode :

Private Sub Command1_Click()
With Data1.Recordset
.Edit
.Fields("NPM") = Text1.Text
.Fields("NAMA") = Text2.Text
.Fields("JURUSAN") = Text3.Text
.Update
MsgBox "Data Telah Diperbaiki", vbOKOnly, "PESAN"
End With
End Sub

Private Sub Command2_Click()
With Data1.Recordset
Text1.Text = .Fields("NPM")
Text2.Text = .Fields("NAMA")
Text3.Text = .Fields("JURUSAN")
Text1.SetFocus
End With
End Sub

Private Sub Command3_Click()
With Data1.Recordset
.Delete
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
MsgBox "Data Telah Dihapus", vbOKOnly, "PESAN"
End With
Data1.Refresh
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub Command6_Click()
With Data1.Recordset
.AddNew
.Fields("NPM") = Text1.Text
.Fields("NAMA") = Text2.Text
.Fields("JURUSAN") = Text3.Text
.Update
MsgBox "Data Telah Tersimpan", vbOKOnly, "PESAN"
End With
End Sub

Setelah itu jalankan program

Seelsai…

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

.

tips & trik | sharing | tutorial blog

tips & trik | sharing | tutorial blog

alian dika.stmikpswu

tips & trik | sharing | tutorial blog

CARI - CARI

tips & trik | sharing | tutorial blog

%d blogger menyukai ini: