Visual Basic

<br />
unable to Add the Record<br />
System.FormatException:Input string was not a Correct Format.<br />
at System.Number.Parse(string s,NumberStyles style,NumberFormatifno info)<br />
at system.int32.Parse(string s,NumberStype style,IFormatProvider provider)<br />
at System.String.system.IConvertible.Toint32(IFormatProvider Provider)<br />
at system.convert.Toint32(Object Value)<br />
at System.Data.Common.Int32Storage.Set(int32 record,Object Value)<br />
at System.DataCoulmn.set_Item(int32 record,Object Value) couldnt store<Null> in Extension Column. Expected type int32<br />

If txtextension.Text.Empty.Trim = Nothing Then<br />
newRow("Extension") = "Null"<br />
Else

---

Fluent in VB, Attempts to speak C#, Python, English

---
File Association in VB.Net

<br />
Dim newRow As DataRow = DataSet11._PROPERTY.NewRow<br />
                newRow("Num_key") = CStr(txtnumkey.Text)<br />
                If txtextension.Text.Trim = Nothing Then<br />
                    newRow("Extension") = DBNull.Value<br />
                Else<br />
                    newRow("Extension") = txtextension.Text<br />
                End If<br />

<br />
Dim strErrorMsg As String<br />
        Dim strerror As System.Data.SqlClient.SqlError<br />
        'save the datasource Changes<br />
        If mblnIsDirty Then<br />
            If MessageBox.Show("Do you want to Save the Changes?", "Property", _<br />
         MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then<br />
                '    Checking for Error in the dataset<br />
                Try<br />
                    SqlDataAdapter1.Update(DataSet11, "Property")<br />
                Catch<br />
                    MessageBox.Show("Error saving Data in the DataBase", "Property")<br />
                   <br />
                End Try<br />
            End If<br />
        End If<br />

<br />
An unhandled exception of type 'System.InvalidOperationException' occurred in system.data.dll<br />
<br />
Additional information: Missing SourceTable mapping: 'Property'<br />

Vuyiswamb wrote:

SqlDataAdapter1.Update(DataSet11, "Property")

<br />
      Dim strErrorMsg As String<br />
        Dim strerror As System.Data.SqlClient.SqlError<br />
        'save the datasource Changes<br />
        If mblnIsDirty Then<br />
            If MessageBox.Show("Do you want to Save the Changes?", "Property", _<br />
         MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then<br />
                '    Checking for Error in the dataset<br />
                Try<br />
<br />
                    SqlDataAdapter1.Update(DataSet11, "Property")<br />
                Catch ExSQL As System.Data.SqlClient.SqlException<br />
                    MessageBox.Show(strErrorMsg, "SQL Server Error: " & strerror.Number, MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
                End Try<br />
            End If<br />
        End If<br />

Vuyiswamb wrote:

yes i know that the Table "Property" named i used is very Bad,

Vuyiswamb wrote:

sometimes to find my way around in my code i had to prefix it with an underscore, because Property is a keyword in VB.

Vuyiswamb wrote:

but still the data does not reflect in my table.

<br />
   If mblnIsDirty Then<br />
            If MessageBox.Show("Do you want to Save the Changes?", "Property", _<br />
         MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then<br />
            <br />
<br />
                If checkerrors() Then<br />
                    MessageBox.Show("Your Dataset has Errors")<br />
                Else<br />
                    SqlDataAdapter1.Update(DataSet11, "Property")<br />
                End If<br />
<br />
            End If<br />
        End If<br />

<br />
Private Function checkerrors() As Boolean<br />
<br />
<br />
        Dim table As Data.DataTable<br />
        Dim row As Data.DataRow<br />
        SqlDataAdapter1.Update(DataSet11, "Property")<br />
        If DataSet11.HasErrors Then<br />
<br />
            For Each table In DataSet11.Tables<br />
                If table.HasErrors Then<br />
                    Return True<br />
                    For Each row In table.Rows<br />
                        If row.HasErrors Then<br />
                            MessageBox.Show("Dataset has Errors")<br />
                            ' Process error here.<br />
<br />
                        End If<br />
                    Next<br />
                ElseIf table.HasErrors = False Then<br />
                    Return False<br />
                    MessageBox.Show("Dataset has no Errors")<br />
                End If<br />
            Next<br />
        End If<br />
    End Function<br />

From the site:

With Add-in Express you can:
Develop COM add-ins for ten main Microsoft Office applications, including Microsoft Outlook, Microsoft Excel, Microsoft Word, Microsoft PowerPoint, Microsoft Access®, Microsoft Visio®, Microsoft Project,
Microsoft MapPoint®, Microsoft FrontPage® , Microsoft Publisher and Microsoft InfoPath.
Create your custom toolbars and toolbar items in Microsoft Outlook Explorer and Microsoft Outlook Inspector (message window).
Control all Microsoft Outlook’s built-in commandbars /toolbars including context-sensitivity pop-ups.
Create your own toolbars in Microsoft Excel, add command bar controls, handle Microsoft Excel events and "hook" any built-in toolbar controls.
Use a lot of other Add-in Express features not mentioned here.

---

Fluent in VB, Attempts to speak C#, Python, English

---
File Association in VB.Net