Membuat Aplikasi Entri Data Sederhana Menggunakan Visual Basic 6.0

Membuat Aplikasi Input Data Sederhana Menggunakan Visual Basic 6.0

 

Source Code

Langkah untuk menuju halaman koding

1.      Klik 2 Kali pada salah satu tombol proses ( Simpan, Edit, Hapus, Keluar )

2.      Ketikkan Koding koding dibawah ini sesuai dengan tombol proses yang di Klik

Coding / Sintak Untuk “ Bagian General “

Public koneksi As New ADODB.Connection

Public tabel As New ADODB.Recordset

Dim sql As String

Coding / Sintak Untuk “ Penyimpanan Data “

Private Sub cmdsimpan_Click()

With Adodc1

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields(0) = Text1.Text

Adodc1.Recordset.Fields(1) = Text2.Text

Adodc1.Recordset.Fields(2) = Text3.Text

Adodc1.Recordset.Fields(3) = Text4.Text

Adodc1.Recordset.Update

End With

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Coding / Sintak Untuk “ Pencarian Data “

Private Sub cmdcari_Click()

sql = "select * from siswa where nis ='" & Text1.Text & "'"

If tabel.State = 1 Then tabel.Close

tabel.Open sql, koneksi, adOpenDynamic, adLockOptimistic

If tabel.EOF Then 'jika tidak ada

   MsgBox "data tidak ada", vbInformation, "Pesan"

   Text1.Text = ""

   Text1.SetFocus

Else

  

   Text1.Text = tabel.Fields!nis

   Text2.Text = tabel.Fields!nama

   Text3.Text = tabel.Fields!alamat

   Text4.Text = tabel.Fields!no_hp

  

   MsgBox "Data Ditemukan", vbInformation, "Pesan"

    Text1.Enabled = False

    End If

Coding / Sintak Untuk “ Load “

Private Sub Form_Load()

koneksi.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\CHANDRAGUNAWAN\PPL\Belajar_vb\Belajar.mdb;Persist Security Info=False"

End Sub

Coding / Sintak Untuk “ Datagrid “

Private Sub DataGrid1_Click()

Text1.Text = DataGrid1.Columns(0).Text

Text2.Text = DataGrid1.Columns(1).Text

Text3.Text = DataGrid1.Columns(2).Text

Text4.Text = DataGrid1.Columns(3).Text

Coding / Sintak Untuk “ Edit Data “

Private Sub Cmdedit_Click()

Adodc1.Recordset!nis = Text1.Text

Adodc1.Recordset!nama = Text2.Text

Adodc1.Recordset!alamat = Text3.Text

Adodc1.Recordset!no_hp = Text4.Text

DataGrid1.Refresh

End Sub

Coding / Sintak Untuk “ Menghapus  Data “

Private Sub cmdhapus_Click()

X = MsgBox("Yakin Data di Hapus[Y/T]", vbYesNo, "Tanya")

If X = vbYes Then

sql = "delete from Siswa where nis='" & Text1.Text & "'"

koneksi.Execute (sql)

Adodc1.Refresh

MsgBox "Data Siswa Berhasil dihapus.....!"

Else

Exit Sub

End If

Adodc1.Refresh

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text1.Enabled = True

End Sub

Coding / Sintak Untuk “ Keluar Dari Lembaran Kerja “

Private Sub cmdkeluar_Click()

End

End Sub

 
 

“ Semoga Bermanfaat “

 




Berikut Video Yang dapat anda Tonton
Download