Visual Basic

Re: What is wrong with this Following ADO.net code

29-Jul-07 22:34

i have the Following code, it game an Error when i tried to run it without trapping the Error. now i used an error trap and the message i get from it now is

Line1 Incorect Syntax Near ')'

Please Help me to point the exact line where it occured. Heere is my code i have in my form load thanks.

Dim strErrorMsg As String<br />
        Dim strerror As System.Data.SqlClient.SqlError<br />
<br />
        Dim strconnection As String = "packet size=4096;user id=#######; Password=#########;data source=#######;persist security info=False;initial catalog=Tshwane_Valuations"<br />
        Dim cn As SqlConnection = New SqlConnection(strconnection)<br />
        cn.Open()<br />
<br />
        'set up the data soruce <br />
        Dim strSql As String = _<br />
"select Actual_Extent,Attrib_code,Lis_key,Func_key,Density," _<br />
& "New_Net_Usable_Extent,New_Total_Land_Factor,New_AdJ_Extent_1, New_Points_1, " _<br />
& "New_ADJ_Extent_2, New_Points_2, LS_Prediction, LS_Confidence from Property_Mass "<br />
        Dim da As SqlDataAdapter = New SqlDataAdapter(strSql, cn)<br />
<br />
        'load a Dataset <br />
        Dim ds As DataSet = New DataSet<br />
        da.Fill(ds, "Property_mass")<br />
<br />
        'set up a new data adapter object <br />
        strSql = _<br />
        "select Property_Mass.Actual_Extent,Property_Mass.Attrib_code,Property_Mass.Lis_key,Property_Mass.Func_key,Property_Mass.Density," _<br />
       & "Property_Mass.New_Net_Usable_Extent,Property_Mass.New_Total_Land_Factor, Property_Mass.New_AdJ_Extent_1, Property_Mass.New_Points_1," _<br />
       & "Property_Mass.New_ADJ_Extent_2, Property_Mass.New_Points_2, Property_Mass.LS_Prediction, Property_Mass.LS_Confidence, Property_Mass.LS_TYPE," _<br />
       & "Property_Summary.Purchase_Date, Property_Summary.Purchase_Price)" _<br />
        & "from(Property_Mass, Property_Summary)" _<br />
        & " where Property_Mass.Lis_key = Property_Summary.Lis_key"<br />
        da = New SqlDataAdapter(strSql, cn)<br />
<br />
        'load the Data set<br />
        Try<br />
            da.Fill(ds, "Property_Summary")<br />
            'Close the Connection<br />
            cn.Close()<br />
<br />
            'Create relations <br />
            ds.Relations.Add("Property_summary_Mass", _<br />
            ds.Tables("Property_Mass").Columns("Lis_key"), _<br />
            ds.Tables("Property_Summary").Columns("Lis_key"))<br />
<br />
            'Bind the data set to the grid.<br />
            'Assumes that Grid contains a reference to a <br />
            'system.windows.datagrid<br />
        DataGrid2.SetDataBinding(ds, "Property_Mass")<br />
        Catch ExSQL As System.Data.SqlClient.SqlException<br />
            '''All this will trap all data Problems and Network if available<br />
            For Each strerror In ExSQL.Errors<br />
            Next<br />
            Select Case strerror.Number<br />
                Case 17<br />
                    strErrorMsg = "Missing server"<br />
                Case 4060<br />
                    strErrorMsg = "Missing database"<br />
                Case 18456<br />
                    strErrorMsg = "Missing user name or password"<br />
                Case Else<br />
                    strErrorMsg = strerror.Message<br />
            End Select<br />
            MessageBox.Show(strErrorMsg, "SQL Server Error: " & strerror.Number, MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
<br />
        Catch ExcpInvOp As System.InvalidOperationException<br />
<br />
            MessageBox.Show("Close the connection first!", "Invalid Operation", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
<br />
        Catch Excp As System.Exception ' generic exception handler<br />
<br />
            MessageBox.Show(Excp.Message, "Unexpected Exception", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
        End Try<br />
    End Sub<br />
<br />

NOTE: The username, password, and my server are corrrect i have hid them for security purpose. Thanks

Vuyiswa Maseko

Vimalsoft(Pty) Ltd29-Jul-07 22:54

Re: What is wrong with this Following ADO.net code

29-Jul-07 22:54

i have seen some few stupid mistakes i have done, and i fixed it to this

<br />
 Dim strErrorMsg As String<br />
        Dim strerror As System.Data.SqlClient.SqlError<br />
<br />
        Dim strconnection As String = "workstation id=5875-049;packet size=4096;user id=sde; Password=#####;data source=#######;persist security info=False;initial catalog=Tshwane_Valuations"<br />
        Dim cn As SqlConnection = New SqlConnection(strconnection)<br />
        cn.Open()<br />
        'set up the data soruce <br />
        Dim strSql As String = _<br />
"select Actual_Extent,Attrib_code,Lis_key,Func_key,Density," _<br />
& "New_Net_Usable_Extent,New_Total_Land_Factor,New_AdJ_Extent_1,New_Points_1," _<br />
& "New_ADJ_Extent_2, New_Points_2, LS_Prediction, LS_Confidence from Property_Mass "<br />
        Dim da As SqlDataAdapter = New SqlDataAdapter(strSql, cn)<br />
<br />
        'load a Dataset <br />
        Dim ds As DataSet = New DataSet<br />
        da.Fill(ds, "Property_mass")<br />
<br />
        'set up a new data adapter object <br />
        strSql = _<br />
        "select Property_Mass.Actual_Extent,Property_Mass.Attrib_code,Property_Mass.Lis_key,Property_Mass.Func_key,Property_Mass.Density," _<br />
       & "Property_Mass.New_Net_Usable_Extent,Property_Mass.New_Total_Land_Factor, Property_Mass.New_AdJ_Extent_1, Property_Mass.New_Points_1," _<br />
       & "Property_Mass.New_ADJ_Extent_2, Property_Mass.New_Points_2, Property_Mass.LS_Prediction, Property_Mass.LS_Confidence, Property_Mass.LS_TYPE," _<br />
       & "Property_Summary.Purchase_Date, Property_Summary.Purchase_Price" _<br />
        & "from Property_Mass, Property_Summary" _<br />
        & " where Property_Mass.Lis_key = Property_Summary.Lis_key"<br />
        da = New SqlDataAdapter(strSql, cn)<br />
<br />
        'load the Data set<br />
        Try<br />
            da.Fill(ds, "Property_Summary")<br />
            'Close the Connection<br />
            cn.Close()<br />
<br />
            'Create relations <br />
            ds.Relations.Add("Property_summary_Mass", _<br />
            ds.Tables("Property_Mass").Columns("Lis_key"), _<br />
            ds.Tables("Property_Summary").Columns("Lis_key"))<br />
<br />
            'Bind the data set to the grid.<br />
            'Assumes that Grid contains a reference to a <br />
            'system.windows.datagrid<br />
        DataGrid2.SetDataBinding(ds, "Property_Mass")<br />
        Catch ExSQL As System.Data.SqlClient.SqlException<br />
            '''All this will trap all data Problems and Network if available<br />
            For Each strerror In ExSQL.Errors<br />
            Next<br />
            Select Case strerror.Number<br />
                Case 17<br />
                    strErrorMsg = "Missing server"<br />
                Case 4060<br />
                    strErrorMsg = "Missing database"<br />
                Case 18456<br />
                    strErrorMsg = "Missing user name or password"<br />
                Case Else<br />
                    strErrorMsg = strerror.Message<br />
            End Select<br />
            MessageBox.Show(strErrorMsg, "SQL Server Error: " & strerror.Number, MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
<br />
        Catch ExcpInvOp As System.InvalidOperationException<br />
<br />
            MessageBox.Show("Close the connection first!", "Invalid Operation", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
<br />
        Catch Excp As System.Exception ' generic exception handler<br />
<br />
            MessageBox.Show(Excp.Message, "Unexpected Exception", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
        End Try<br />
    End Sub<br />

but i still have one different Error, it says

Column Prefix 'Property_Summary' does not match with a table name or alias name used in this query.

Thanks

Vuyiswa Maseko

Vimalsoft(Pty) Ltd29-Jul-07 23:21

Re: What is wrong with this Following ADO.net code

29-Jul-07 23:21

The Problem was so small, it was the Spaces provided in strSQl,

<br />
Dim strErrorMsg As String<br />
        Dim strerror As System.Data.SqlClient.SqlError<br />
<br />
        Dim strconnection As String = "workstation id=5875-049;packet size=4096;user id=sde;Password=topology;data source=SGIICORNETGS01;persist security info=False;initial catalog=Tshwane_Valuations"<br />
        Dim cn As SqlConnection = New SqlConnection(strconnection)<br />
        cn.Open()<br />
        'set up the data soruce <br />
        Dim strSql As String = _<br />
"select Actual_Extent,Attrib_code,Lis_key,Func_key,Density," _<br />
& "New_Net_Usable_Extent,New_Total_Land_Factor,New_AdJ_Extent_1,New_Points_1," _<br />
& "New_ADJ_Extent_2, New_Points_2, LS_Prediction, LS_Confidence from Property_Mass "<br />
        Dim da As SqlDataAdapter = New SqlDataAdapter(strSql, cn)<br />
<br />
        'load a Dataset <br />
        Dim ds As DataSet = New DataSet<br />
        da.Fill(ds, "Property_mass")<br />
<br />
        'set up a new data adapter object <br />
        strSql = _<br />
        "select Property_Mass.Actual_Extent,Property_Mass.Attrib_code,Property_Mass.Lis_key,Property_Mass.Func_key,Property_Mass.Density," _<br />
       & " Property_Mass.New_Net_Usable_Extent,Property_Mass.New_Total_Land_Factor,Property_Mass.New_AdJ_Extent_1, Property_Mass.New_Points_1," _<br />
       & " Property_Mass.New_ADJ_Extent_2, Property_Mass.New_Points_2, Property_Mass.LS_Prediction, Property_Mass.LS_Confidence, Property_Mass.LS_TYPE," _<br />
       & " Property_Summary.Purchase_Date, Property_Summary.Purchase_Price" _<br />
        & " from Property_Mass, Property_Summary" _<br />
        & " where Property_Mass.Lis_key = Property_Summary.Lis_key"<br />
        da = New SqlDataAdapter(strSql, cn)<br />
<br />
        'load the Data set<br />
        Try<br />
            da.Fill(ds, "Property_Summary")<br />
            'Close the Connection<br />
            cn.Close()<br />
<br />
            'Create relations <br />
            ds.Relations.Add("Property_summary_Mass", _<br />
            ds.Tables("Property_Mass").Columns("Lis_key"), _<br />
            ds.Tables("Property_Summary").Columns("Lis_key"))<br />
<br />
            'Bind the data set to the grid.<br />
            'Assumes that Grid contains a reference to a <br />
            'system.windows.datagrid<br />
        DataGrid2.SetDataBinding(ds, "Property_Mass")<br />
        Catch ExSQL As System.Data.SqlClient.SqlException<br />
            '''All this will trap all data Problems and Network if available<br />
            For Each strerror In ExSQL.Errors<br />
            Next<br />
            Select Case strerror.Number<br />
                Case 17<br />
                    strErrorMsg = "Missing server"<br />
                Case 4060<br />
                    strErrorMsg = "Missing database"<br />
                Case 18456<br />
                    strErrorMsg = "Missing user name or password"<br />
                Case Else<br />
                    strErrorMsg = strerror.Message<br />
            End Select<br />
            MessageBox.Show(strErrorMsg, "SQL Server Error: " & strerror.Number, MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
<br />
        Catch ExcpInvOp As System.InvalidOperationException<br />
<br />
            MessageBox.Show("Close the connection first!", "Invalid Operation", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
<br />
        Catch Excp As System.Exception ' generic exception handler<br />
<br />
            MessageBox.Show(Excp.Message, "Unexpected Exception", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
        End Try<br />

Thanks, i think i solved my Problem myself, if you have any suggestion about my code please comment, thanks

Vuyiswa Maseko

Luc Pattyn30-Jul-07 0:11

Luc Pattyn

30-Jul-07 0:11

Hi,

it is very nice of you to show an error message in PRE tags. Good.

It would be even better if you would also show your actual code in PRE tags
(instead of CODE tags); that way it would show with indentation and be much more
readable.

Doesnt your compiler give you the line numbers when it reports errors ? If your
IDE (Visual?) does not show line numbers by default in the left margin, you can
easily turn that on (Visual: Tools/Options/TextEditor/AllLanguages/DisplayLineNumbers)

Smile | :)

Luc Pattyn

try { [Search CP Articles] [Search CP Forums] [Forum Guidelines] [My Articles] }
catch { [Google] }

Re: What is wrong with this Following ADO.net code [modified]

Vimalsoft(Pty) Ltd30-Jul-07 0:24

30-Jul-07 0:24

Hi Luc

Thanks for your comment, i will certainly show my code in a PRE tags.
about the line number i have turn it on thanks man

thank you

-- modified at 9:42 Monday 30th July, 2007

Vuyiswa Maseko

Download Manager

j5136p129-Jul-07 21:47

j5136p1

29-Jul-07 21:47

Hello,

i try to create an application that listen for download Files with a special extension.
When a user click on a Link the program must decide to download the file with default settings (e.g. Standard Firefox) or use it's own.

Can someone help me??

Thank you

Mirko Olsiewicz

Re: Download Manager

Dave Kreskowiak30-Jul-07 1:46

30-Jul-07 1:46

You'd either be writing a web browser extension, in your case FireFox I assume, or a proxy server.

In either case, you're looking for the type and filename of the file being returned by the server.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: Download Manager

j5136p130-Jul-07 1:54

j5136p1

30-Jul-07 1:54

Ok,

i saw something on Microsoft Homepage with activX. Will it work when i create an ativeX Control? Otherwise we build a Wrapper Class. The user then must run the exe File after download.

Thank you for help

Mirko Olsiewicz

Re: Download Manager

Dave Kreskowiak30-Jul-07 3:59

Control which object getobject() grabs

30-Jul-07 3:59

I believe it's Microsoft's Download Manager that makes the request to download the file. It doesn't monitor the request/responses to see which ones it should be watching for. The code in the page specifically uses the MS Download Manager to download the files.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

MadmanWoo29-Jul-07 21:00

MadmanWoo

29-Jul-07 21:00

Hi All,

I was wondering if its possible for me to control which object the function GetObject() grabs.

I have multiple copies of the same program running and I would like to be able to get an OLE object from each one. I have search all over the net but can't seem to find anyone that has done this. The only thing I can find is that GetObject only returns the last instance created.

Can I use the Getobject() function to do what I am looking for or is there a different method of doing this.

Thanks
Nathan

Dave Kreskowiak30-Jul-07 1:45

30-Jul-07 1:45

MadmanWoo wrote:
I was wondering if its possible for me to control which object the function GetObject() grabs.

No. It'll grab the first instance it finds. You have no control over which one that is.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

MadmanWoo30-Jul-07 12:05

MadmanWoo

30-Jul-07 12:05

Is there anyway for me to do what I need?

Thanks

Dave Kreskowiak30-Jul-07 13:02

30-Jul-07 13:02

I'm speculating that you'd have to enumerate the Running Object Table to find the instance you want. You'd have to P/Invoke the OLE32 library functions to do this, but it's possible. Take a look at this[^] article here on CP you'll find a similar example.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007