Dlookup alternative option in VB.NET

[load3d]

I'm working on our intranet site with VB.NET 2005/ASP.NET

When the site loads VB checks to see who is logged into the network for example: Jdough123. Based on the who is logged into the network VB changes the XML datasource to show different links on the side bar of the web page. This part works.

Well, what I want to do is be able to check that user ID against a query that I have created shows the persons title in the company (Manager, Supervisor, Executive, etc.) Then based on that show the different links.

However, I'm trying to figure out the best way to do this. In access it a simple Dlookup function and I know VS 2008 has a new function called DLINQ, but I'm not using that.

Could I create an invisible drop down list or grid view that pulls in the data I need and then do a string off of that?

"IF NTUSER = "Jdough123" and TITLE = "Manager" then me.xmldatasource.datafile = "Manager.XML" else "Associate.XML"

What is the BEST/Easiest way to accomplish this?

 

[ZmrAbdulla]

I believe you are using MS Access as back end.
You simulate the Dlookup by using OleDbCommand.ExecuteScalar

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DlookUp_In_Access("FirstName", "Employees", "LastName='Davolio'")
        'DlookUp_In_Access("Freight", "Orders", "OrderID = 10248")
        'DlookUp_In_Access("Freight", "Orders", "OrderDate= #24-Mar-1998# AND OrderID = 10972")
    End Sub
    Public Sub DlookUp_In_Access(ByVal strLookUpFieldName As String, _
                                    ByVal strTableName As String, _
                                    ByVal Critera As String)

        Dim con As OleDbConnection
        con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
                                    & "Data Source=C:\Zameer\Northwind.mdb;")
        Dim dbCmd As OleDbCommand = New OleDbCommand("select " & strLookUpFieldName & " from " & strTableName & _
                      " WHERE " & Critera, con)
        con.Open()
        MessageBox.Show(dbCmd.ExecuteScalar().ToString)
        con.Close()
    End Sub

Zameer Abdulla

 

[load3d]

I'm using SQL as the back end, would this apply to that?

 

[ZmrAbdulla]

Same procedure but everything should be changed to the way you do with SQL Server. oledbCommand , Connection etc.

        Dim sqlcmd As SqlClient.SqlCommand
        sqlcmd.ExecuteScalar()

Zameer Abdulla

 

[load3d]

Still not quite getting it. I've been toying with it and what I have done is finished my SQL query. I then createad a drop down list box with the dataconnection to the query. I'm getting the single value returned that I want in the drop down box. This is what I'm doing on form load, but it's not working.

If Me.DropDownList.SELECTEDVALUE = "Exempt" Then Me.XmlDataSource2.DataFile = "~/xml/mgrvmenu.xml" Else Me.XmlDataSource2.DataFile = "~/XML/vmenu.xml"

The value "EXEMPT" is in the drop down box and is the only value. WIll this work?

 

[load3d]

If Me.DropDownList.SELECTEDVALUE = "Exempt" Then Me.XmlDataSource2.DataFile = "~/xml/mgrvmenu.xml" Else Me.XmlDataSource2.DataFile = "~/XML/vmenu.xml"


I just want to do an IF statement off of my dropdown list value. How do I do it?