Vb6 Ms Access: Pengolahan Data, Input Data Gres

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