Hi,

I wondered if someone can help ? Within an e-commerce website written in asp.net

1.1 with vb2003 and using an access database, I want to create an if statement to

check that there are sufficient items in stock within the database before allowing

a customer to add the item into the cart. otherwise to display a message saying

item is out of stock.

I have created a function to look up the selected value chosen to check how many

of these items are in stock :

Within my AddToCart sub procedure I then want to use an if statement such as

below. However when I reference the intQuantityInStock value in the line

"lblQuantity.Text = IntQuantityInStock" the label just displays a zero. I've

tested the previous function which works fine. How do I overcome this ?

You are trying to do 2 different things here. You are trying to determine how many products are in the database for a specific item and then you are returning a Datareader which that is all fine well and good, but the only thing you do with the datareader is bind it to a datalist.

The reason IntQuantityInStock is 0 is because you only ever declare it, you never set a value to it. this is not how I would do this but, for simplicity sake, i will show you how you can do it without modifying to much code:

Public function CheckQuantity(byval intProductID as integer) as boolean
Dim strConnString As String = ConfigurationSettings.AppSettings.Get("ConnectionS tring")
strConnString = String.Format(strConnString, Server.MapPath("\db\nwguitars.mdb"))

Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(strConnString)
Dim queryString As String = "SELECT [tblProducts].[intProductID], [tblProducts].[intQuantityInStock] FROM [tbl"& _
        "Products] WHERE ([tblProducts].[intProductID] = @intProductID)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dbParam_intProductID As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_intProductID.ParameterName = "@intProductID"
        dbParam_intProductID.Value = intProductID
        dbParam_intProductID.DbType = System.Data.DbType.Int32
        dbCommand.Parameters.Add(dbParam_intProductID)

        dbConnection.Open
        Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavio r.CloseConnection)

        While datareader.read
             Dim iQuantity as integer = Datareader("intProductID")
        end while

        If iQuantity > 1 then
          Return True
        Else
          Return False
        end if
end function

Your method then becomes this:

     Sub AddToCart(sender As Object, e As EventArgs)

        Dim CartID As Double

        'Passes ProductID as sender
        Dim intProductID As Integer = sender.CommandArgument'<%#

DataBinder.Eval(Container.DataItem, "intProductID")%>'

        If Not CheckQuantity(intProductID) then
            lblError.Text = "This item is currently low in stock. Please select an alternative"
            lblError.Visible = True
        Else
            lblQuantity.Text = IntQuantityInStock
            lblQuantity.Visible = True

        '//these 2 lines will no longer work
        'dgList.DataSource = CheckQuantity(intProductID)
        'dgList.DataBind()
        End If
end sub

this obviously impacts your progrm flow so you will need to work with that. but, like i said, you were never setting the value of your integer to anything which is why it was returing 0.

-------------------------
I will only tell you how to do it, not do it for you.
Unless, of course, you want to hire me to do work for you.

^^Thats my signature