Saving record in VB2010

Posted on 2011-03-18
Last Modified: 2012-08-13

I have a backend database as my bindingsource, and am attempting to use a Save command button to reflect the changes on my form into my database.  Please advise.

Thank you.

Option Explicit On

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Windows.Forms.DataGridView

Public Class frmInput
    Dim sqlString As String = "SELECT * FROM tblInsuranceClaim"
    Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\Administrator\Desktop\MyDBBackend.mdb;User ID=admin"
    Dim OleDBConn1 As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(ConnString)
    Dim OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(sqlString, OleDBConn1)
    Dim dbGen As New OleDbCommandBuilder(OleDbDataAdapter1)

    Private Sub frmOrder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'MyDBBackendDataSet3.tblInsuranceClaim' table. You can move, or remove it, as needed.
        txtPDrug.Text = frmDrugs.txtDrugHidden.Text

            OleDbDataAdapter1.AcceptChangesDuringUpdate = True
        Catch ex As Exception
            MsgBox("An exception was thrown because the back-end database is currently not allowing updates. Please try again.")
        End Try

        Catch ex As Exception
            MsgBox("An exception was thrown because a connection to the database or database tables cannot be established")
        End Try

    End Sub

    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
            OleDbDataAdapter1.Update(MyDBBackendDataSet, "tblInsuranceClaim")
            MsgBox("Update Successful")
        Catch ex As Exception
            MsgBox("Update Failed")
        End Try
    End Sub

Open in new window

Question by:--TripWire--
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2

Assisted Solution

Alex_W earned 200 total points
ID: 35167171
Consider My.Settings to save settings between runtime sessions.  You'll find it in the project properties under the Settings page.

To save you just need something like:

My.Settings.CommandButton = txtCommand.Text

To load you you use the forms load event with:

txtCommand.Text = My.Settings.CommandButton.

Author Comment

ID: 35167248
Thanks for the reply - but I think you misunderstood my question.
My form has a number of different controls on it, mostly textboxes.  And I want the information that the user types in to be saved into the database when the user clicks the Save command button on the form.

Accepted Solution

Alex_W earned 200 total points
ID: 35167527
Ah my mistake, to update changes in your binding source controls you'll want to use the data adapters update method.  I see your using an Access DB, here is some specifics:

Author Comment

ID: 35167700
hmm...Well, I already have the adapter.update method in my code above

Author Closing Comment

ID: 37595419
It was helpful, but I wasn't able to find a full solution this way.  But thank you.

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: jpaulino
XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should.  An XML Literal is like a String ( Literal, only instead of starting and ending with w…
Since .Net 2.0, Visual Basic has made it easy to create a splash screen and set it via the "Splash Screen" drop down in the Project Properties.  A splash screen set in this manner is automatically created, displayed and closed by the framework itsel…
If you're a developer or IT admin, you’re probably tasked with managing multiple websites, servers, applications, and levels of security on a daily basis. While this can be extremely time consuming, it can also be frustrating when systems aren't wor…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question