Posted by Blogger Name. Category:
Pemrograman VB
Belajar Menbuat Program Input Data Jurusan
Pemrograman VB- Database : Access
- Table : 1 table
- Code VB : ADODB
- Fungsi : Belajar membuat INPUT DATA, FIND, DELETE
DATABASE
Membuat database, table:
- Nama database : KAMPUS
- Nama table : JURUSAN
- KODE_JURUSAN
- NAMA_JURUSAN
- BIAYA
- Isi 2 data jurusan.
- text
- text
- number
- 10
- 50
- Primary Key
MENGAKTIFKAN REFERENSI ADODB
Langkah:
- Menu PROJECT + REFERENCE
- Klik [ X ] Microsoft ActiveX Data Object 2.8 Library
- Klik [ X ] Microsoft ActiveX Data Object Recordset 2.8 Library
BUAT FORM sbb:
berbagipengetahuan45.blogspot.com |
Rubah nama dari TOMBOL-TOMBOL:
- TOMBOL NEW = Name: CMD_NEW
- TOMBOL SAVE = Name: CMD_SAVE
- TOMBOL CANCEL = Name: CMD_CANCEL
- TOMBOL FIND = Name: CMD_FIND
- TOMBOL DELETE = Name: CMD_DELETE
- TOMBOL EXIT = Name: CMD_EXIT
- VISIBLE = TRUE (tombol new, find, delete, exit)
- VISIBLE = FALSE (tombol save, cancel)
- AKTIFKAN REFERENSI ADODB
- MEMBUAT CONNECTION dari PROGRAM ke DATABASE, buat MODUL
CODE di MODUL
'/-----connect databaseSet CONN = New ADODB.Connection
CONN.CursorLocation = adUseClient
Cara Pertama
x= "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=KAMPUS.MDB;" & _
"DefaultDir=" & APP.PATH & "\;" & _
"PWD=;UID=admin;"
Cara kedua
x= "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" & _
"DBQ=KAMPUS.ACCDB;" & _
"DefaultDir=" & APP.PATH & "\;" & _
"PWD=;UID=admin;"
CONN.Open X
End Sub
Contoh lain Connection:
'/------------------------------------------/
'/cara connect database tehnik 3
'/------------------------------------------/
Set CONN = New ADODB.Connection
CONN.CursorLocation = adUseClient
X = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\KAMPUS.mdb;"
CONN.Open X
ATAU
'/------------------------------------------/
'/cara connect database tehnik 2, ODBC
'/------------------------------------------/
Set CONN = New ADODB.Connection
CONN.CursorLocation = adUseClient
x= "ODBC=myKAMPUS"
CONN.Open X
CODE-CODE di FORM
CODE di FORM _ LOAD
Code ini untuk memanggil CONNECTION DATABASE yang ada di MODUL, jangan sampai LUPA yah..
CODE di TOMBOL NEW
- Me.CMD_NEW.Visible = False
- Me.CMD_SAVE.Visible = True
- Me.CMD_CANCEL.Visible = True
- Me.CMD_FIND.Visible = False
- Me.CMD_DELETE.Visible = False
- Me.CMD_EXIT.Visible = False
TAHAPAN NEW:
- kosongkan semua input
- atur tombol-tombol
CODE di TOMBOL SAVE
'/-----CEK: APAKAH DATA SUDAH DI INPUT SEMUA?If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "DATA HARUS DI INPUT SEMUA..", vbCritical
Exit Sub
End If
'/-----CEK: APAKAH BIAYA DI INPUT ANGKA
If IsNumeric(Text3) = False Then
MsgBox "INPUT BIAYA DENGAN ANGKA..", vbCritical
Exit Sub
End If
'/-----CEK: CEK PRIMARY KEY TIDAK BOLEH SAMA
X = "SELECT * FROM JURUSAN WHERE KODE_JURUSAN='" & Trim(Text1) & "'"
Set RS = New ADODB.Recordset
RS.Open X, CONN, adOpenStatic, adLockOptimistic
If Not RS.EOF Then
MsgBox "KODE JURUSAN SUDAH ADA..", vbCritical
RS.Close
Set RS = Nothing
Exit Sub
Else
RS.Close
Set RS = Nothing
End If
'/-----SIMPAN DATA
X = "SELECT * FROM JURUSAN"
Set RS = New ADODB.Recordset
RS.Open X, CONN, adOpenStatic, adLockOptimistic
RS.AddNew
RS.Fields("KODE_JURUSAN") = Trim(Text1)
RS.Fields("NAMA_JURUSAN") = Text2
RS.Fields("BIAYA") = Text3
RS.Update
RS.Close
Set RS = Nothing
'/-----SETTING KEMBALI TOMBOL-TOMBOL Me.CMD_NEW.Visible = True
- Me.CMD_SAVE.Visible = False
- Me.CMD_CANCEL.Visible = False
- Me.CMD_FIND.Visible = False
- Me.CMD_DELETE.Visible = False
- Me.CMD_EXIT.Visible = True
- MsgBox "SAVE..", vbInformation
TAHAPAN SAVE-INPUT:
CEK DULU DATA YANG INGIN DI SAVE
- CEK, apakah semua data sudah di input?, JANGAN ada data yang NULL
- CEK, jika ada input data ANGKA, periksa apakah input datanya SUDAH BENAR yaitu diinput ANGKA bukan HURUF
- CEK, apakah data PRIMARY KEY tidak boleh double If Not RS.EOF Then data yg dicari ADA, SETELAH DATA BENAR,BARU SIMPAN DATA
- Simpan datanya: RS.AddNew - buat record kosong. RS.Fields("BIAYA") = Text3 - masukan data RS.Update - simpan
- Atur kembali tombol-tombol
- Jangan lupa berikan pesan kepada user
CODE di TOMBOL CANCEL
- Me.CMD_NEW.Visible = True
- Me.CMD_SAVE.Visible = False
- Me.CMD_CANCEL.Visible = False
- Me.CMD_FIND.Visible = False
- Me.CMD_DELETE.Visible = False
- Me.CMD_EXIT.Visible = True
- MsgBox "CANCEL..", vbInformation
TAHAPAN CANCEL:
- kosongkan kembali form
- atur kembali tombol-tombol
CODE di TOMBOL FIND
'/-----INPUT DATA YANG DICARI Dim CARI As String
CARI = InputBox("INPUT KODE YANG AKAN DICARI=")
If CARI = "" Then
Exit Sub
End If
'/-----CARI DATANYA
X = " SELECT * FROM JURUSAN WHERE KODE_JURUSAN='" & Trim(CARI) & "'"
Set RS = New ADODB.Recordset
RS.Open X, CONN, adOpenStatic, adLockOptimistic
If RS.EOF Then
'/-----DATA TIDAK ADA
MsgBox "DATA TIDAK ADA..", vbInformation
Else
'/-----MUNCULKAN DATANYA
Text1 = RS!KODE_JURUSAN
Text2 = RS!NAMA_JURUSAN
Text3 = RS!BIAYA
End If
RS.Close
Set RS = Nothing
TAHAPAN MENCARI DATA:
- Buat input yg akan di cari
- Cari datanya: If RS.EOF Then - data tidak ada
- munculkan datanya ke form: Text1 = RS!KODE_JURUSAN
CODE di TOMBOL DELETE
'/-----CEK: APAKAH DATA YANG DI DELETE SUDAH ADA DI FORM?
If Text1 = "" Then
Exit Sub
End If
'/-----KONFIRMASI DELETE
Dim TANYA As String
TANYA = MsgBox("APAKAH DATA AKAN DI DELETE..?", vbQuestion + vbYesNo)
If TANYA = vbNo Then
Exit Sub
End If
'/-----DELETE DATANYA
X = " DELETE * FROM JURUSAN WHERE KODE_JURUSAN='" & Text1 & "'"
CONN.Execute X
'/-----KOSONGKAN FORM
Text1 = ""
Text2 = ""
Text3 = ""
MsgBox "DATA TELAH DI DELETE..", vbInformation
TAHAPAN DELETE:
- periksa dulu.. apakah data yang akan di DELETE sudah dimunculkan di FORM
- berikan KONFIRMASI delete data kepada user
- delete datanya
- jangan lupa untuk mengosongkan kembali form nya
Selamat mencoba.-Belajar Menbuat Pemrograman WEB, VB, Java dll
0 komentar:
Post a Comment