Tutorial Visual Basic PSB

• Sekarang bukalah sebuah project baru di Visual Basic 6.0, gunakan VB Enterprise Edition Controls. Karena akan lebih lengkap tools-toolsnya dibanding menggunakan Standart EXE.

• Kemudian buatlah disain form seperti berikut ini. Atur settingan Enabled pada tombol Edit dan Delete menjadi False. Tujuannya agar tidak  terjadi human error.

• Buatlah sebuah modul koneksi database dengan cara klik menu Project ==> Add Module ==> Open.
• Dan masukkan script berikut di modul tersebut

Global conn As ADODB.Connection

Global rsmhs As ADODB.Recordset

Sub koneksi()

On Error GoTo gagal:

Set conn = New ADODB.Connection

conn.Provider = "microsoft.jet.oledb.4.0"

conn.CursorLocation = adUseClient

conn.Open App.Path & "\dbbelajar.mdb"

Exit Sub

gagal:

If (Err.Number = -2147467259) Then

MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi"

End

End If

End Sub

Kemudian kembali pada disain form. Kita akan memanggil fungsi dari module koneksi yang baru dibuat, caranya double klik form tersebut kemudian masukkan perintah dibawah ini, tepat antara Private Sub Form_Load() dengan End Sub.

Koneksi

Buatlah sebuah program untuk membersihkan form dan mengembalikan kondisi form dalam keaadaan awal. Caranya, letakkan script berikut ini di tempat kosong pada di program. Program ini saya beri nama "kosongform".

Private Sub kosongform()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text1.Enabled = True

Command1.Enabled = True

Command2.Enabled = False

Command3.Enabled = False

End Sub

Selanjutnya kita akan membuat tombol simpan. Duoble klik pada tombol simpan dan masukkan script berikut diantara Private Sub Command1_Click() dengan End Sub.

Dim X

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then

MsgBox "Data Belum Lengkap", vbInformation, "Pesan"

Exit Sub

Else

X = MsgBox("Apakah Data Ingin Disimpan...?", vbQuestion + vbYesNo)

If X = vbYes Then

Set rsmhs = New ADODB.Recordset

rsmhs.LockType = adLockOptimistic

rsmhs.CursorType = adOpenDynamic

rsmhs.Open "SELECT * FROM tmhs", conn, , , adCmdText

rsmhs.AddNew

rsmhs.Fields(0) = Text1.Text

rsmhs.Fields(1) = Text2.Text

rsmhs.Fields(2) = Text3.Text

rsmhs.Fields(3) = Text4.Text

rsmhs.Fields(4) = Text5.Text

rsmhs.Fields(5) = Text6.Text

rsmhs.Fields(6) = Text7.Text

rsmhs.Update

MsgBox "Data Tersimpan...!", vbInformation, "Pesan"

kosongform

Else

Exit Sub

End If

End If

• Sebelum kita membuat tombol Edit, kita harus membuat sebuah program pemanggilan data terlebih dahulu, gunanya agar tidak terjadi duplikasi pada primary key. Cara penggunaanya adalah, kita mengetikkan NIM yang ingin diinputkan pada Text1, kemudian tekan tombol Enter pada keybord. Bila NIM yang kita masukan tadi sudah didalam database, maka data lainnya seperti "Nama, Tmp/Tgl Lahir, Fakultas dsb" akan muncul berdasarkan NIM yang kita masukkan dan tombol Simpan akan di non aktifkan agar tidak terjadi duplikasi data yang disebabkan faktor human error.

• Cara membuat program tersebut yang pertama adalah, double klik pada Text1.Text. Setelah itu pilih metode KeyPress.

Setelah itu masukkan script berikut diantara Private Sub Text1_KeyPress(KeyAscii As Integer)dengan End Sub.

If KeyAscii = 13 Then

Set rsmhs = New ADODB.Recordset

rsmhs.LockType = adLockOptimistic

rsmhs.CursorType = adOpenDynamic

rsmhs.Open "select * from tmhs", conn, , , adCmdText

rsmhs.Filter = " nim= '" & Text1.Text & "'"

If Not rsmhs.EOF Then

Command1.Enabled = False

Command2.Enabled = True

Command3.Enabled = True

Text1.Enabled = False

Text2.Text = rsmhs.Fields(1)

Text3.Text = rsmhs.Fields(2)

Text4.Text = rsmhs.Fields(3)

Text5.Text = rsmhs.Fields(4)

Text6.Text = rsmhs.Fields(5)

Text7.Text = rsmhs.Fields(6)

End If

End If

Jika sudah, barulah kita buat tombol Editnya, caranya double klik pada tombol Edit dan masukkan script berikut diantara Private Sub Command2_Click() dengan End Sub.

Dim a

a = MsgBox("Edit Data...?", vbQuestion + vbYesNo, "Pesan")

If a = vbYes Then

rsmhs.Fields(1) = Text2.Text

rsmhs.Fields(2) = Text3.Text

rsmhs.Fields(3) = Text4.Text

rsmhs.Fields(4) = Text5.Text

rsmhs.Fields(5) = Text6.Text

rsmhs.Fields(6) = Text7.Text

rsmhs.Update

MsgBox "Data Berhasil Di Edit..!!", vbInformation, "Info"

kosongform

Text1.SetFocus

Else

Exit Sub

End If

Selanjutnya, kita buat tombol Delete, Caranya double klik pada tombol Delete dan masukkan script berikut diantara Private Sub Command3_Click()  dengan End Sub.

Dim Y

Y = MsgBox("Apakah Data Ingin Dihapus..?", vbQuestion + vbYesNo)

If Y = vbYes Then

rsmhs.Delete

MsgBox "Data Berhasil Dihapus..!!", vbInformation, "info"

kosongform

Text1.SetFocus

Else

Exit Sub

End If

Terakhir, kita buat tombol Exit, duoble klik pada tombol Exit dan masukkan script berikut diantara Private Sub Command4_Click() dengan End Sub.

Dim X

X = MsgBox("Apakah Anda Ingin Keluar..?", vbQuestion + vbYesNo, App.Title)

If X = vbYes Then

Unload Me

Else

Cancel = 1

End If