Vb6 Ms Access: Pembuatan Data, Input Data Baru

Setelah mampu menampilkan data di datagrid dan menciptakan filter dengan keyword, sekarang kita akan menjajal ke pembuatan data (CRUD) dengan Visual Basic 6 dan database Ms Access. Dimulai dengan menginput data gres.

Ubah UI dari artikel sebelumnya, dan atur menjadi sebagai berikut:

Untuk code, kita mulai dengan yang paling sederhana ialah pada tombol Cancel dan Exit.
Private Sub cmdCancel_Click()
Load_Data
txtCode.Text = ""
txtName.Text = ""
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Kemudian kita buat sub procedure untuk mengeksekusi query SQL.
Sub RunQuery(sSQL As String)
Dim cmd As New ADODB.Command
Set cmd = New ADODB.Command
  With cmd
    .ActiveConnection = strConn
    .CommandType = adCmdText
    .CommandText = sSQL
    .Execute
  End With
Set cmd = Nothing
End Sub

Code untuk input data gres akan kita buat di dalam event cmdSave_Click.
Private Sub cmdSave_Click()
On Error GoTo errHandler

'Validasi input data
If txtCode.Text = "" Then MsgBox "Kode belum diisi": Exit Sub
If txtName.Text = "" Then MsgBox "Nama belum diisi": Exit Sub

'query insert ke database
RunQuery "INSERT INTO category " & _
         "(categorycode, categoryname) VALUES " & _
         "('" & txtCode.Text & "', " & _
         "'" & txtName.Text & "')"
        
'pesan konfirmasi input sukses
MsgBox "Data baru telah ditambahkan"

'membersihkan control input
cmdCancel_Click

Exit Sub
errHandler:
MsgBox Err.Number & ":" & Err.Description
End Sub

Saat runtime, kita coba masukan isyarat dan nama klasifikasi lalu klik tombol Save.

 Jika proses penyimpanan data berhasil akan keluar pesan sebagai berikut:

 Data baru pun akan ditampilkan di datagrid.

Lanjut ke Edit/Update data.

Click here if you like this article.



Sumber http://rani-irsan.blogspot.com