Setelah mampu memperlihatkan data di datagrid dan menciptakan filter dengan keyword , kini kita akan menjajal ke pengolahan data (CRUD) dengan Visual Basic 6 dan database Ms Access. Dimulai dengan menginput data gres. Ubah UI dari artikel sebelumnya , dan atur menjadi selaku 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 berhasil MsgBox "Data baru telah disertakan" 'membersihkan control input cmdCancel_Click Exit Sub errHandler: MsgBox Err.Number & ":" & Err.Description End Sub Saat runtime, kita coba masukan instruksi dan nama klasifikasi kemudian 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