tugas 4 entri data pake vb

YAYAN NURYANA

D3/KA/3/M

43A87087100022

 MEMBUAT ENTRI JURUSAN DI VB

VERSI YAYAN NURYANA

PERTAMA:

KITA BUAT DULU FORM PADA VB SEPERTI DI BAWAH INI:

                KITA BUAT database dengan cara klik add-ins > visual data manager > file > new > ms. Acces > version 7.0 MDB.

Buat folder dan file untuk menyimpan database yang akan dibuat, Setelah disimpan klik kanan pada visual data manager, lalu klik new table kemudian isi kolom table name dengan nama Jurusan > klik add field > isi name dengan kd_jurusan > size 10 > ok > add field > isi name dengan nm_jurusan > size 30 > ok >close > build the table. Seperti gambar dibawah ini :

5. Setting project                                                                                             

Label 1	Caption : kd_jurusan
Label 2	Caption : nm_jurusan
Command 1	Caption : tambah
Command 2	Caption : ubah
Command 3	Caption : hapus
Command 4	Caption : keluar
Data 1	RecordSource : jurusan Databasename : klik folder dimana file disimpan
Dbgrid	Datasource : data1 (setelah itu klik kanan pada form lalu pilih retrieve fields)

Maka setelah disetting akan muncul gambar seperti dibawah ini :

6. kemudian masukan codingan dibawah ini :

Private Sub command1_click()

Data1.Recordset.AddNew

Data1.Recordset("kd_jurusan") = Trim(Text1.Text)

Data1.Recordset("nm_jurusan") = Trim(Text2.Text)

Data1.Recordset.Update

Data1.Refresh

DBGrid1.Refresh

bersih

normal

If Command1.Caption = "tambah" Then

bersih

Command1.Caption = "simpan"

Command2.Enabled = False

Command3.Caption = "ok"

Command4.Caption = "batal"

Else

End If

End Sub

Private Sub Command2_Click()

Data1.RecordSource = "select*from jurusan where kd_jurusan='" & Trim(Text1.Text) & "'"

Data1.Refresh

Data1.Recordset.Edit

Data1.Refresh

DBGrid1.Refresh

End Sub

Private Sub Command3_Click()

Data1.RecordSource = "select*from jurusan where kd_jurusan='" & Trim(Text1.Text) & "'"

Data1.Refresh

Data1.Recordset.Delete

Data1.Refresh

DBGrid1.Refresh

End Sub

Private Sub Command4_Click()

Data1.RecordSource = "select*from jurusan where kd_jurusan='" & Trim(Text1.Text) & "'"

Data1.Refresh

Data1.Recordset.Close

Data1.Refresh

DBGrid1.Refresh

End Sub

Private Sub bersih()

Text1.SetFocus

Text1.Text = ""

End Sub

Private Sub normal()

Command1.Caption = "tambah"

Command2.Caption = "ubah"

Command3.Caption = "hapus"

Command4.Caption = "keluar"

Command1.Enabled = "true"

Command2.Enabled = "true"

Command3.Enabled = "true"

Command4.Enabled = "true"

End Sub

HASILNYA:

BERHASILLLLLLLLLLLL

SEKARANG GILIRAN ANDA MENCOBA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

WASALAM

YAYAN NURYANA

*”˜˜”*°•✫
..✫¸.•°*”˜˜”*°•.✫
☻/ღ˚ •。* ˚ ˚✰˚ ˛★* 。 ღ˛° 。* °♥ ˚ • ★ *˚ .ღ 。
/▌*˛SUDAHKAH ANDA SHALAT˚ღ •KAWAND- KAWAND˚ ˚ ✰* ★
/ \ ˚. ★ ˛ ˚ ✰。˚ ˚ღ。* ˛˚ 。✰˚* ˚ ★ღ ˚ 。✰ •* ˚♥,, SEPIH NYA UEE BLOG  KU TAMPA KAMU YG NGASIH JEMPOL AND COMEN......]