This document contains code for a Visual Basic program that allows users to view, add, edit and delete patient records stored in an Oracle database table called "pasien". The code includes event handlers for buttons that allow inserting new records, updating existing records, deleting records, and closing the form. It also includes code to populate fields from the database when editing, clear fields, and run SQL queries to retrieve and save data.
Copyright:
Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online from Scribd
This document contains code for a Visual Basic program that allows users to view, add, edit and delete patient records stored in an Oracle database table called "pasien". The code includes event handlers for buttons that allow inserting new records, updating existing records, deleting records, and closing the form. It also includes code to populate fields from the database when editing, clear fields, and run SQL queries to retrieve and save data.
This document contains code for a Visual Basic program that allows users to view, add, edit and delete patient records stored in an Oracle database table called "pasien". The code includes event handlers for buttons that allow inserting new records, updating existing records, deleting records, and closing the form. It also includes code to populate fields from the database when editing, clear fields, and run SQL queries to retrieve and save data.
Copyright:
Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online from Scribd
This document contains code for a Visual Basic program that allows users to view, add, edit and delete patient records stored in an Oracle database table called "pasien". The code includes event handlers for buttons that allow inserting new records, updating existing records, deleting records, and closing the form. It also includes code to populate fields from the database when editing, clear fields, and run SQL queries to retrieve and save data.
Copyright:
Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online from Scribd
Download as doc, pdf, or txt
You are on page 1/ 3
Nama : M.
Huri Agung Setiono
08.1.03.02.0160
Kelas :3D_Teknik Informatika
Tugas Pemrograman Visual II
1. create user contoh/password 2. grant to contoh 3.create table pasien
4.menambah kolom 5. insert into pasien
Oradc properties Dbgrid properties
6.tampilan vb 6.0 8.jika dipilih yes + simpan edit
Private Sub cmdhapus_Click() End Sub If ORADC1.Recordset.recordcount > 0 Then sql = "delete from pasien where id='" & Private Sub cmdsimpanedt_Click() txtid.Text & "'" sql = "update pasien set id='" & txtid.Text & ORADC1.Database.executesql sql "',nama='" & txtnama.Text & "',kelamin='" & txtkelamin.Text & "', ORADC1.Refresh usia='" & txtusia.Text & "',pekerjaan='" & MsgBox ("Data telah terhapus") txtpekerjaan.Text & "',alamat='" & txtalamat.Text & "',telpn='" & txttelpn.Text & "', Else domisili='" & txtdomisili.Text & "',darah='" & MsgBox ("Cek kembali mahasiswa anda") txtdarah.Text & "',ktp='" & txtktp.Text & "' where End If id='" & txtid.Text & "'"
