membuat program sederhana dengan VB 6.0

Contoh program sederhana ini menggunakan database microsoft acces. dengan nama data base tes.mdb. dalam data base ini di buat sebuah table dengan nama table barang. table barang tersebut di bentuk oleh beberapa fields. seperti ID,Nama,Type,Harga dan Qty
MODUL
Global conn As ADODB.Connection Global tabeltes 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 & "\tes.mdb" Exit Sub gagal: If (Err.Number = -2147467259) Then MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi" End End If End Sub

 syntax modul diatas digunakan untuk membuat jembatan atau koneksi dari database ke program yang akan kita buat.

FORM

berikut ini syintax untuk mengoperasikan program yang kita buat agar depat memodifikasi data di database seperti menambah, menghapus, menyimpan, dan mengkoreksi data.

DELETE
syintax berikut ini berfungsi untuk menghapus data di data base, syintax ini di ditempatkan pada command button yang akan akan kita fungsikan sebagai tombol hapus (delete).

Private Sub CDelete_Click() Dim Y Y = MsgBox("Apakah Data Ingin Dihapus..?", vbQuestion + vbYesNo) If Y = vbYes Then tabeltes.Delete MsgBox "Data Berhasil Dihapus..!!", vbInformation, "info" TKode.SetFocus Else Exit Sub End If End Sub

EDIT
syintax berikutnya berfungsi untuk mengkoreksi data pada database, sehingga kesalahan pengetikan seperti nama, atau jumlah dapat diperbaiki kembali. syintak ini di tempatkan pada command button yang akan di fungsikan sebagai tombol koreksi (update).

Private Sub CEdit_Click() Dim a a = MsgBox("Edit Data...?", vbQuestion + vbYesNo, "Pesan") If a = vbYes Then tabeltes.Fields(1) = TNama.Text tabeltes.Fields(2) = TType.Text tabeltes.Fields(3) = Val(THarga.Text) tabeltes.Fields(4) = Val(TQty.Text) tabeltes.Update MsgBox "Data Berhasil Di Edit..!!", vbInformation, "Info" kosong TKode.Enabled = True Else Exit Sub End If End Sub Private Sub Command2_Click() Unload Me End Sub

SIMPAN
syintax ini berfungsi untuk menyimpan data yang di input pada textbox di form ke dalam database. syintax ini ditempatkan pada command buttom yang akan di fungsikan sebagai tombol simpan (save)

Private Sub CSimpan_Click() Dim X If TKode.Text = "" Or TNama.Text = "" Or TType.Text = "" Or THarga.Text = "" Or TQty.Text = "" Then MsgBox "Data Belum Lengkap", vbInformation, "Pesan" Exit Sub Else X = MsgBox("Apakah Data Ingin Disimpan...?", vbQuestion + vbYesNo) If X = vbYes Then Set tabeltes = New ADODB.Recordset tabeltes.LockType = adLockOptimistic tabeltes.CursorType = adOpenDynamic tabeltes.Open "SELECT * FROM barang", conn, , , adCmdText tabeltes.AddNew tabeltes.Fields(0) = Val(TKode.Text) tabeltes.Fields(1) = TNama.Text tabeltes.Fields(2) = TType.Text tabeltes.Fields(3) = Val(THarga.Text) tabeltes.Fields(4) = Val(TQty.Text) tabeltes.Update MsgBox "Data Tersimpan...!", vbInformation, "Pesan" kosong refreshDG Else Exit Sub End If End If End Sub

PERINTAH MENGOSONGKAN DATA
syintax ini bertujuan untuk membersihkan textbox pada form agar terlihat kosong kembali. syintax ini langsung di buat pada form yang kita buat. dan perintah kosong ini dapat kita panggil dalam kondisi yang kita inginkan. seperti kondisi setelah mengklik tombol simpan.

Private Sub kosong() TKode.Text = "" TNama.Text = "" TType.Text = "" THarga.Text = "" TQty.Text = "" End Sub

FORM LOAD
 syintax ini di tempatkan pada form yang akan kita operasikan langsung. syintax ini berfungsi untuk saat form dijalankan atau di operasikan maka program secara otomatis tersambung dan terkoneksi langsung pada database. dan kondisi form ini sendiri siap untuk di operasikan.

Private Sub Form_Load() koneksi kosong refreshDG End Sub Sub refreshDG() Set tabeltes = New ADODB.Recordset tabeltes.LockType = adLockOptimistic tabeltes.CursorType = adOpenDynamic tabeltes.Open "select * from barang", conn, , , adCmdText Set DataGrid1.DataSource = tabeltes End Sub Private Sub TKode_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Set tabeltes = New ADODB.Recordset tabeltes.LockType = adLockOptimistic tabeltes.CursorType = adOpenDynamic tabeltes.Open "select * from barang", conn, , , adCmdText tabeltes.Filter = " ID= '" & TKode.Text & "'" If Not tabeltes.EOF Then TNama.Text = tabeltes.Fields(1) TType.Text = tabeltes.Fields(2) THarga.Text = tabeltes.Fields(3) TQty.Text = tabeltes.Fields(4) End If End If End Sub

sekian duu untuk contoh program sederhana ini, cukup mudah bukan? :D paling tinggal copy paste aja.. dan mengerti prosedur tahap demi tahap yang di lakukan. insyaallah kelar deh. klo tak kelar berarti anda belum beruntung ... hehehe ... tapi jangan risau dan jangan putus asa sob. selagi ada kemauan di sono ada jalan, tak da jalan mari kita buat jalan, tak bisa juga ??? coba deh jalan jalan dahulu biar fresh lagi.. kalo udah fresh tinggal di coba lagi.. di intip lagi coding nya sapa tau nemu deh tuh biang kerok penyebab gundahnya... kok jadi ngelantur kemana mana nih.. udah ah... selamat mencoba.. wassalam.