Visual Basic

Object reference not set to an Instance of an Object.

       Dim strconnection As String = "workstation id=5875-049;packet size=4096;user id=****; Password=*****;data source= ********;persist security info=False;initial catalog=******_****"
        Dim cn As SqlConnection = New SqlConnection(strconnection)
        cn.Open()
        'set up data adapter 
        Dim strSql As String = _
" select Boundary_Area,Actual_Extent," _
& "Attrib_code,Lis_key,Func_key," _
& "Density,New_Net_Usable_Extent," _
& "New_Total_Land_Factor,New_AdJ_Extent_1," _
& "New_Points_1,New_ADJ_Extent_2," _
& "New_Points_2,Fin_Ls_Prediction," _
& "Confidence_score,Flagtype from Property_Mass"
        

        Dim da As SqlDataAdapter = New SqlDataAdapter(strSql, cn)
        'Declare and load the Data set
        Dim ds As DataSet = New DataSet
        da.Fill(ds, "Property_Mass")

        Dim strErrorMsg As String
        Dim strerror As System.Data.SqlClient.SqlError

        'set up data Adapter Object
        strSql = " select Property_Mass.Boundary_Area," _
        & "   Property_Mass.Actual_Extent," _
        & "   Property_Mass.Attrib_code, Property_Mass.Lis_key," _
        & "   Property_Mass.Func_key, Property_Mass.Density," _
        & "   Property_Mass.New_Net_Usable_Extent," _
        & "   Property_Mass.New_Total_Land_Factor," _
        & "   Property_Mass.New_AdJ_Extent_1,Property_Mass.New_Points_1," _
        & "   Property_Mass.New_ADJ_Extent_2,Property_Mass.New_Points_2," _
        & "   Property_Mass.Fin_Ls_Prediction,Property_Mass.Confidence_score," _
        & "   Property_Mass.Flagtype,Property_Summary.Purchase_Date," _
        & "   Property_Summary.Purchase_Price" _
        & "   from  Property_Mass , Property_Summary " _
        & "   where (Property_Mass.Lis_key = Property_Summary.Lis_key)"
        da = New SqlDataAdapter(strSql, cn)
        'load a Dataset 
        Try
            da.Fill(ds, "Property_Mass")
            'Close the Connection
            cn.Close()


            ds.Relations.Add("Property_summary_Mass", _
            ds.Tables("Property_Mass").Columns("Lis_key"), _
            ds.Tables("Property_Summary").Columns("Lis_key"))

            'Bind the data set to the grid.
            'Assumes that Grid contains a reference to a 
            'system.windows.datagrid
            DataGrid2.SetDataBinding(ds, "Property_Mass")
            'sorting the Datagrid
            DataGrid2.AllowSorting = True
        Catch ExSQL As System.Data.SqlClient.SqlException
            '''All this will trap all data Problems and Network if available
            For Each strerror In ExSQL.Errors
            Next
            Select Case strerror.Number
                Case 17
                    strErrorMsg = "Missing server"
                Case 4060
                    strErrorMsg = "Missing database"
                Case 18456
                    strErrorMsg = "Missing user name or password"
                Case Else
                    strErrorMsg = strerror.Message
            End Select
            MessageBox.Show(strErrorMsg, "SQL Server Error: " & strerror.Number, MessageBoxButtons.OK, MessageBoxIcon.Error)

        Catch ExcpInvOp As System.InvalidOperationException

            MessageBox.Show("Close the connection first!", "Invalid Operation", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Catch Excp As System.Exception ' generic exception handler

            MessageBox.Show(Excp.Message, "Unexpected Exception", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Sonia Gupta wrote:

then i will install the framework manually on each and every client.

Sonia Gupta wrote:

is there any provision to integrates the exe of the .net framework so that whenever the setup of my program executes , then it instals the setup without asking the dependency