Home » Pemrograman VB » Belajar Menbuat Program Input Data Jurusan Dengan Menggunakan VB

Sunday, February 15, 2015

0
Belajar Menbuat Program Input Data Jurusan Dengan Menggunakan VB

Posted by Blogger Name. Category:

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 
Field
  • KODE_JURUSAN
  • NAMA_JURUSAN
  • BIAYA
  • Isi 2 data jurusan.
Type
  • text
  • text
  • number
Size
  • 10
  • 50 
Desc 
  • 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
Setting form:

Rubah nama dari TOMBOL-TOMBOL: 
  1. TOMBOL NEW = Name: CMD_NEW
  2. TOMBOL SAVE = Name: CMD_SAVE 
  3. TOMBOL CANCEL = Name: CMD_CANCEL 
  4. TOMBOL FIND = Name: CMD_FIND 
  5. TOMBOL DELETE = Name: CMD_DELETE 
  6. TOMBOL EXIT = Name: CMD_EXIT
ATUR TOMBOL AWAL:
  • VISIBLE = TRUE (tombol new, find, delete, exit)
  • VISIBLE = FALSE (tombol save, cancel)
LANGKAH SETTING:
  1. AKTIFKAN REFERENSI ADODB
  2. MEMBUAT CONNECTION dari PROGRAM ke DATABASE, buat MODUL  
MENU PROJECT + ADD MODULE

CODE di MODUL

'/-----connect database

Set 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

Call BUKA_Database
‘/-----KOSONGKAN FORM 
Text1=”” 
Text2=”” 
Text3=””
KET:
Code ini untuk memanggil CONNECTION DATABASE yang ada di MODUL, jangan sampai LUPA yah.. 

CODE di TOMBOL NEW 

'/-----KOSONGKAN FORM UNTUK PERSIAPAN INPUT
Text1 = "" 
Text2 = "" 
Text3 = "" 
Text1.SetFocus
'/-----ATUR TOMBOL 
  1. Me.CMD_NEW.Visible = False 
  2. Me.CMD_SAVE.Visible = True 
  3. Me.CMD_CANCEL.Visible = True 
  4. Me.CMD_FIND.Visible = False 
  5. Me.CMD_DELETE.Visible = False 
  6. Me.CMD_EXIT.Visible = False

TAHAPAN NEW: 
  1. kosongkan semua input
  2. 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 
  1. Me.CMD_SAVE.Visible = False 
  2. Me.CMD_CANCEL.Visible = False 
  3. Me.CMD_FIND.Visible = False 
  4. Me.CMD_DELETE.Visible = False  
  5. Me.CMD_EXIT.Visible = True 
  6. 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 

'/-----BATAL
Text1 = "" 
Text2 = "" 
Text3 = ""
'/-----ATUR KEMBALI TOMBOL-TOMBOL
  1. Me.CMD_NEW.Visible = True 
  2. Me.CMD_SAVE.Visible = False 
  3. Me.CMD_CANCEL.Visible = False 
  4. Me.CMD_FIND.Visible = False 
  5. Me.CMD_DELETE.Visible = False 
  6. Me.CMD_EXIT.Visible = True  
  7. MsgBox "CANCEL..", vbInformation

TAHAPAN CANCEL:
  1. kosongkan kembali form
  2. atur kembali tombol-tombol
    3.  

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: 
  1. Buat input yg akan di cari
  2. Cari datanya: If RS.EOF Then - data tidak ada 
  3. 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: 
  1. periksa dulu.. apakah data yang akan di DELETE sudah dimunculkan di FORM
  2. berikan KONFIRMASI delete data kepada user 
  3. delete datanya 
  4. jangan lupa untuk mengosongkan kembali form nya

Selamat mencoba.-Belajar Menbuat Pemrograman WEB, VB, Java dll
Simple SEO Blogger Template adalah blog simple yang SEO Friendly dan Fast Loading. Key terms: blog, blogger, blogspot, template, seo, simple, fast loading

0 komentar:

Post a Comment

◄ Posting Baru Posting Lama ►
Subscribe to: Post Comments (Atom)