VB dan Ms.Access
Penjelasan :
Program ini adalah contoh bentuk program aplikasi untuk entry(masukan) data
Dimana kita menggunakan aplikasinya adalah dengan Visual Basic 6.0 dengan
DATABASE menggunakan Microsoft Access :
Nama Database : db1
Nama Table : tbl_maha
Dengan Attribut : ni_nim,nama,alamat,jurusan
Penggunaaan :
- Project References harus terdefinisi
- ODBC harus dikenalai
- Nama DSN module and ODBC harus sama
Listing Program :
( Lisying Pada Form)
Dim a As New Class1
Private Sub cmd_delete_Click()
a.vnim = Me.txt_nim
a.vnama = Me.txt_nama
a.valamat = Me.txt_alamat
a.vjurusan = Me.txt_jurusan
a.hapus
ISIBELI
bersih
End Sub
Private Sub cmd_exit_Click()
Unload Me
End Sub
Private Sub cmd_simpan_Click()
a.vnim = Me.txt_nim
a.vnama = Me.txt_nama
a.valamat = Me.txt_alamat
a.vjurusan = Me.txt_jurusan
a.simpan
ISIBELI
bersih
End Sub
Private Sub cmd_ubah_Click()
a.vnim = Me.txt_nim
a.vnama = Me.txt_nama
a.valamat = Me.txt_alamat
a.vjurusan = Me.txt_jurusan
a.edit
ISIBELI
bersih
End Sub
Private Sub Form_Load()
ISIBELI
End Sub
Public Sub ISIBELI()
Me.lsv.ListItems.Clear
Dim ROW As Integer
Dim N As Integer
buka
ROW = 1
N = 1
rek.Open “select * from tbl_maha”, konek, adOpenKeyset, adLockOptimistic
Do While Not rek.EOF
Me.lsv.ListItems.Add ROW, , N
Me.lsv.ListItems(ROW).ListSubItems.Add 1, , rek(0)
Me.lsv.ListItems(ROW).ListSubItems.Add 2, , rek(1)
Me.lsv.ListItems(ROW).ListSubItems.Add 3, , rek(2)
Me.lsv.ListItems(ROW).ListSubItems.Add 4, , rek(3)
ROW = ROW + 1
N = N + 1
rek.MoveNext
Loop
tutup
End Sub
Private Sub lsv_ItemClick(ByVal Item As MSComctlLib.ListItem)
Me.txt_nim.Text = Item.ListSubItems(1).Text
Me.txt_nama.Text = Item.ListSubItems(2).Text
Me.txt_alamat.Text = Item.ListSubItems(3).Text
Me.txt_jurusan.Text = Item.ListSubItems(4).Text
End Sub
Public Sub bersih()
Me.txt_nim.Text = “”
Me.txt_nama.Text = “”
Me.txt_alamat.Text = “”
Me.txt_jurusan.Text = “”
End Sub
(Listing Pada Module)
Public konek As New ADODB.Connection
Public rek As New ADODB.Recordset
Public Sub buka()
konek.Open (“DSN=access”)
End Sub
Public Sub tutup()
konek.Close
End Sub
(Listing Pada Class )
Public vnim As String
Public vnama As String
Public valamat As String
Public vjurusan As String
Public Sub simpan()
buka
konek.Execute (“insert into tbl_maha values (‘” & vnim & “‘,’” & vnama & “‘,’” & valamat & “‘,’” & vjurusan & “‘)”)
tutup
End Sub
Public Sub edit()
buka
konek.Execute (“update tbl_maha set nama=’” & vnama & “‘,alamat=’” & valamat & “‘,jurusan=’” & vjurusan & “‘ where no_nim=’” & vnim & “‘”)
tutup
End Sub
Public Sub hapus()
buka
konek.Execute (“delete from tbl_maha where no_nim=’” & vnim & “‘”)
tutup
End Sub
