updating database from the website using asp.net

chizmo's Avatar, Join Date: Jun 2007
Light Poster
am developing a website that is supposed to connect to a database. am using VB 2005 Asp.net and am new to this. the problem am having is to update the database using the values from the textbox. help me please with this problem. Thanks
nimesh's Avatar, Join Date: Apr 2009
Invasive contributor
Can you post the code that you've written to update the database, so that someone can check and correct it?

Also if you are getting any error?
chizmo's Avatar, Join Date: Jun 2007
Light Poster
here is the Code

 Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
        'Set up connection string
        Dim cnString As String

        cnString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=D:\Documents and Settings\caleb\My Documents\Visual Studio 2005\WebSites\FromNet\App_Data\Aid_database.mdb"
        'Dim intId As Integer
        ' intId = Me.txtsearch.Text
        Dim sqlQRY As String = "SELECT * FROM Contactable_Contributors  WHERE Company = '" & txtsearch.Text & "'"

        'Create connection
        Dim conn As OleDbConnection = New OleDbConnection(cnString)

            ' Open connection

            'create data adapter
            Dim da As OleDbDataAdapter = New OleDbDataAdapter(sqlQRY, conn)

            'create command builder
            Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)

            'create dataset
            Dim ds As Data.DataSet = New Data.DataSet

            'fill dataset
            da.Fill(ds, "Contactable_Contributors")

            'get data table
            Dim dt As Data.DataTable = ds.Tables("Contactable_Contributors")

            With dt

                .Rows(0)("Id") = Convert.ToString(txtId.Text)
                .Rows(0)("Company") = Convert.ToString(txtCompany.Text)
                .Rows(0)("Last_name") = Convert.ToString(txtsurname.Text)
                .Rows(0)("First_name") = Convert.ToString(txtfirstname.Text)
                .Rows(0)("E-mail") = Convert.ToString(txtEmail.Text)
                .Rows(0)("Job_Title") = Convert.ToString(txtJob.Text)
                .Rows(0)("Business_Phone") = Convert.ToString(txtB_Phone.Text)
                .Rows(0)("Fax_Number") = Convert.ToString(txtFax.Text)
                .Rows(0)("Address") = Convert.ToString(txtAddress.Text)
                .Rows(0)("City") = Convert.ToString(txtCity.Text)
                .Rows(0)("State") = Convert.ToString(TxtState.Text)
                .Rows(0)("Country") = Convert.ToString(txtCountry.Text)

            End With

            da.Update(ds, "Contactable_Contributors")

            MsgBox("Record successfully saved...", MsgBoxStyle.Information)
        Catch ex As OleDbException
            MsgBox("Error: " & ex.ToString & vbCrLf)
            ' Close connection
        End Try

Last edited by shabbir; 27Oct2009 at 09:34.. Reason: Code blocks
nimesh's Avatar, Join Date: Apr 2009
Invasive contributor
What error do you get when running the program?

I don't know if this could be the problem or not, little correction suggested as below.

Code: vb
cnString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("./App_Data/Aid_database.mdb") & ";User Id=admin;Password=;"

apart from this I don't see anything that could cause the problem.
chizmo's Avatar, Join Date: Jun 2007
Light Poster
Thank you very much. I think i had a litle problem with my database. now its working.
nimesh's Avatar, Join Date: Apr 2009
Invasive contributor
what kind of problem?