Showing confirmation message.

Hi,

The following codes insert the Data inside the XML file using the ADD NEW USER Form. Now i want to display the confirmation message to the User's that the Data has been Successfully added or Data not inserted message. Also i want to know how to add TRY, CATCH and FINALLY method in this code. Pls edit my code and send me. ]

CODE:

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click


        ' Create a DataSet with one table and three columns.
        Dim OriginalDataSet As New DataSet("myDataSet")
        OriginalDataSet.Namespace = "NetFrameWork"
        Dim myTable As New DataTable("myTable")
        Dim c1 As New DataColumn("AccNumber", Type.GetType("System.Int32"))
        'c1.AutoIncrement = True
        Dim c2 As New DataColumn("Name", Type.GetType("System.String"))
        Dim c3 As New DataColumn("Balance$", Type.GetType("System.Double"))




        myTable.Columns.Add(c1)
        myTable.Columns.Add(c2)
        myTable.Columns.Add(c3)


        OriginalDataSet.Tables.Add(myTable)


        Dim newRow As DataRow
        newRow = myTable.NewRow()
        newRow("AccNumber") = txtAccNumber.Text.ToString()


        newRow("Name") = txtName.Text.ToString()
        newRow("Balance$") = txtBalance.Text.ToString()
        myTable.Rows.Add(newRow)




        OriginalDataSet.AcceptChanges()


        ' Write the schema and data to an XML file.
        Dim xmlFilename As String = "C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\Projects\Demo_aps\Demo_aps\myXmlDocument.xml"
        ' Use WriteXml to write the document.
        OriginalDataSet.WriteXml(xmlFilename)


        ' Dispose of the original DataSet.
        OriginalDataSet.Dispose()


    End Sub

Re: Showing confirmation message.

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click


        Try


            ' Create a DataSet with one table and three columns.
            Dim OriginalDataSet As New DataSet("myDataSet")
            OriginalDataSet.Namespace = "NetFrameWork"
            Dim myTable As New DataTable("myTable")
            Dim c1 As New DataColumn("AccNumber", Type.GetType("System.Int32"))
            'c1.AutoIncrement = True
            Dim c2 As New DataColumn("Name", Type.GetType("System.String"))
            Dim c3 As New DataColumn("Balance$", Type.GetType("System.Double"))




            myTable.Columns.Add(c1)
            myTable.Columns.Add(c2)
            myTable.Columns.Add(c3)


            OriginalDataSet.Tables.Add(myTable)


            Dim newRow As DataRow
            newRow = myTable.NewRow()
            newRow("AccNumber") = txtAccNumber.Text.ToString()


            newRow("Name") = txtName.Text.ToString()
            newRow("Balance$") = txtBalance.Text.ToString()
            myTable.Rows.Add(newRow)




            OriginalDataSet.AcceptChanges()


            ' Write the schema and data to an XML file.
            Dim xmlFilename As String = "C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\Projects\Demo_aps\Demo_aps\myXmlDocument.xml"
            ' Use WriteXml to write the document.
            OriginalDataSet.WriteXml(xmlFilename)


            ' Dispose of the original DataSet.
            OriginalDataSet.Dispose()


            ClientScript.RegisterClientScriptBlock(GetType(Page), "", "alert('success');", True)


        Catch ex As Exception
            ClientScript.RegisterClientScriptBlock(GetType(Page), "", "alert('failure');", True)
        End Try
    End Sub

Re: Showing confirmation message.

Hi follow code mentioned by rizwanparkar but in finally u should dispose (OriginalDataSet.Dispose())

Re: Showing confirmation message.

Hi rizwanparker,

It showed two error message. after i edited the code as you provided.

Name Clientscript is not declared

Type page is not defined.

Re: Showing confirmation message.

Hi Vijaya.A

Ya i did as u said that: OriginalDataSet.Dispose() inside the finally block.

but it also showed me error: Name "OriginalDataSet" is not Declared.

Pls can u help me..

Re: Showing confirmation message.

Utsavp

Hi Vijaya.A

Ya i did as u said that: OriginalDataSet.Dispose() inside the finally block.

but it also showed me error: Name "OriginalDataSet" is not Declared.

Pls can u help me..

Hi declare "OriginalDataSet" above try

Re: Showing confirmation message.

Utsavp

Hi rizwanparker,

It showed two error message. after i edited the code as you provided.

Name Clientscript is not declared

Type page is not defined.

use page.clientscript....

Re: Showing confirmation message.

Still it shows Page is Not declared

View my code again.

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click




        ' Create a DataSet with one table and three columns.


        Dim OriginalDataSet As New DataSet("myDataSet")
        OriginalDataSet.Namespace = "NetFrameWork"
        Dim myTable As New DataTable("myTable")
        Dim c1 As New DataColumn("AccNumber", Type.GetType("System.Int32"))
        'c1.AutoIncrement = True
        Dim c2 As New DataColumn("Name", Type.GetType("System.String"))
        Dim c3 As New DataColumn("Balance$", Type.GetType("System.Double"))




        myTable.Columns.Add(c1)
        myTable.Columns.Add(c2)
        myTable.Columns.Add(c3)


        OriginalDataSet.Tables.Add(myTable)
        Try
            Dim newRow As DataRow
            newRow = myTable.NewRow()
            newRow("AccNumber") = txtAccNumber.Text.ToString()


            newRow("Name") = txtName.Text.ToString()
            newRow("Balance$") = txtBalance.Text.ToString()
            myTable.Rows.Add(newRow)




            OriginalDataSet.AcceptChanges()


            ' Write the schema and data to an XML file.
            Dim xmlFilename As String = "C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\Projects\Demo_aps\Demo_aps\myXmlDocument.xml"
            ' Use WriteXml to write the document.
            OriginalDataSet.WriteXml(xmlFilename)


            'OriginalDataSet.Dispose()


            ' Dispose of the original DataSet.
            'MessageBox.Show("Inserted Successfully")
            'Me.Hide()




            Page.ClientScript.RegisterClientScriptBlock(GetType(Page), "", "alert('success');", True)


        Catch ex As Exception


            Page.ClientScript.RegisterClientScriptBlock(GetType(Page), "", "alert('failure');", True)




        Finally


            OriginalDataSet.Dispose()


        End Try

Re: Showing confirmation message.

Hi it is not showing any error for me and working fine for me

Re: Showing confirmation message.

hi Please can u say me why i am getting error message:

Name "Page" is not declared and

Type "Page" is not declared.

Am i missing any Library or Class that supports the Page.

Re: Showing confirmation message.

Hi r u using windows application or web application

if ur using windows application use msgbox-- for displaying msg success

if ur using web application import System.Web.UI

Re: Showing confirmation message.

I am just using windows application.

Now how to use the MsgBox in such a Situation... Please reply..

Re: Showing confirmation message.

Hi use this code

MsgBox("Your Message") instead of page.register.........

Re: Showing confirmation message.

can u send me a code. Please give me a complete answer.

Re: Showing confirmation message.

Hi I just modified ur above code

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click




        ' Create a DataSet with one table and three columns.


        Dim OriginalDataSet As New DataSet("myDataSet")
        OriginalDataSet.Namespace = "NetFrameWork"
        Dim myTable As New DataTable("myTable")
        Dim c1 As New DataColumn("AccNumber", Type.GetType("System.Int32"))
        'c1.AutoIncrement = True
        Dim c2 As New DataColumn("Name", Type.GetType("System.String"))
        Dim c3 As New DataColumn("Balance$", Type.GetType("System.Double"))




        myTable.Columns.Add(c1)
        myTable.Columns.Add(c2)
        myTable.Columns.Add(c3)


        OriginalDataSet.Tables.Add(myTable)
        Try
            Dim newRow As DataRow
            newRow = myTable.NewRow()
            newRow("AccNumber") = txtAccNumber.Text.ToString()


            newRow("Name") = txtName.Text.ToString()
            newRow("Balance$") = txtBalance.Text.ToString()
            myTable.Rows.Add(newRow)




            OriginalDataSet.AcceptChanges()


            ' Write the schema and data to an XML file.
            Dim xmlFilename As String = "C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\Projects\Demo_aps\Demo_aps\myXmlDocument.xml"
            ' Use WriteXml to write the document.
            OriginalDataSet.WriteXml(xmlFilename)


            'OriginalDataSet.Dispose()


            ' Dispose of the original DataSet.
            'MessageBox.Show("Inserted Successfully")
            'Me.Hide()




            MsgBox("Success)
        Catch ex As Exception


            MsgBox("Failure)


        Finally


            OriginalDataSet.Dispose()


        End Try

Re: Showing confirmation message.

follow the code by vijaya mam..its perfect

Re: Showing confirmation message.

Ok thank u very Much. At last My Code looks like:

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click




        ' Create a DataSet with one table and three columns.


        Dim OriginalDataSet As New DataSet("myDataSet")
        OriginalDataSet.Namespace = "NetFrameWork"
        Dim myTable As New DataTable("myTable")
        Dim c1 As New DataColumn("AccNumber", Type.GetType("System.Int32"))
        'c1.AutoIncrement = True
        Dim c2 As New DataColumn("Name", Type.GetType("System.String"))
        Dim c3 As New DataColumn("Balance$", Type.GetType("System.Double"))




        myTable.Columns.Add(c1)
        myTable.Columns.Add(c2)
        myTable.Columns.Add(c3)




        OriginalDataSet.Tables.Add(myTable)
        Try
            Dim newRow As DataRow
            newRow = myTable.NewRow()
            newRow("AccNumber") = txtAccNumber.Text.ToString()


            newRow("Name") = txtName.Text.ToString()
            newRow("Balance$") = txtBalance.Text.ToString()
            myTable.Rows.Add(newRow)




            OriginalDataSet.AcceptChanges()


            ' Write the schema and data to an XML file.
            Dim xmlFilename As String = "C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\Projects\Demo_aps\Demo_aps\myXmlDocument.xml"
            ' Use WriteXml to write the document.
            OriginalDataSet.WriteXml(xmlFilename)


            'OriginalDataSet.Dispose()


            ' Dispose of the original DataSet.
            'MessageBox.Show("Inserted Successfully")
            'Me.Hide()




            MsgBox("Data Inserted Successfully")


        Catch ex As Exception


            MsgBox("Field Missing: Unable to Insert Data.")




        Finally


            OriginalDataSet.Dispose()


        End Try


    End Sub

Re: Showing confirmation message.

Thank u very much. My code looks like this after error is free

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click




        ' Create a DataSet with one table and three columns.


        Dim OriginalDataSet As New DataSet("myDataSet")
        OriginalDataSet.Namespace = "NetFrameWork"
        Dim myTable As New DataTable("myTable")
        Dim c1 As New DataColumn("AccNumber", Type.GetType("System.Int32"))
        'c1.AutoIncrement = True
        Dim c2 As New DataColumn("Name", Type.GetType("System.String"))
        Dim c3 As New DataColumn("Balance$", Type.GetType("System.Double"))




        myTable.Columns.Add(c1)
        myTable.Columns.Add(c2)
        myTable.Columns.Add(c3)




        OriginalDataSet.Tables.Add(myTable)
        Try
            Dim newRow As DataRow
            newRow = myTable.NewRow()
            newRow("AccNumber") = txtAccNumber.Text.ToString()


            newRow("Name") = txtName.Text.ToString()
            newRow("Balance$") = txtBalance.Text.ToString()
            myTable.Rows.Add(newRow)




            OriginalDataSet.AcceptChanges()


            ' Write the schema and data to an XML file.
            Dim xmlFilename As String = "C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\Projects\Demo_aps\Demo_aps\myXmlDocument.xml"
            ' Use WriteXml to write the document.
            OriginalDataSet.WriteXml(xmlFilename)


            'OriginalDataSet.Dispose()


            ' Dispose of the original DataSet.
            'MessageBox.Show("Inserted Successfully")
            'Me.Hide()




            MsgBox("Data Inserted Successfully")


        Catch ex As Exception


            MsgBox("Field Missing: Unable to Insert Data.")




        Finally


            OriginalDataSet.Dispose()


        End Try


    End Sub