Advanced Search

Return to Snippet

Revision: 53393
at November 22, 2011 03:47 by javageget
Initial Code 
Private Sub EditRental()
        Dim RentalDR As DataRow = frmRental.dsRental.RENTAL.Rows.Find(CInt(lblID.Text))
        uProceed = True '-- not needed for basic edit/update

        Try
			'' Edit anything you want to edit
            RentalDR.BeginEdit()
            RentalDR("rDate") = Format(dtpDate.Value, My.Settings.DateFormat)
            RentalDR("rDesc") = txtDesc.Text
            RentalDR("rAmount") = CDbl(txtAmount.Text)
            RentalDR("rStatus") = cmbStatus.Text
            RentalDR.EndEdit()
        Catch ex As Exception
            iProceed = False        ' Block procedures if exception happens.
            MessageBox.Show("Please check your input. Make sure all input is correct.", "Invalid Input(s)", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try

        If uProceed = True Then
            Try
                frmRental.daRental.Update(frmRental.dsRental)
                MessageBox.Show("Database successfully updated.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)

                Me.Close()
            Catch ex As Exception
                MessageBox.Show("Somehow I cannot update the database. =(", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
edit database using vb + access

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
update/edit vb access

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
VB.NET