Advertisement
If you have a new account but are having problems posting or verifying your account, please email us on hello@boards.ie for help. Thanks :)
Hello all! Please ensure that you are posting a new thread or question in the appropriate forum. The Feedback forum is overwhelmed with questions that are having to be moved elsewhere. If you need help to verify your account contact hello@boards.ie

Access Database & NEWID()

Options
  • 06-11-2003 11:49pm
    #1
    lucian
    Closed Accounts Posts: 40 ✭


    I am working on this project and I want to display a random recordset, but it does not seem towork with Access at all.

    I have it workin in SQL 2000 database but access is more complicated.

    Can anyone help?

    <%
    Dim rsSpecials
    Dim rsSpecials_numRows

    Set rsSpecials = Server.CreateObject("ADODB.Recordset")
    rsSpecials.ActiveConnection = MM_conn_STRING
    rsSpecials.Source = "SELECT P_Name, P_OnSpecial, P_OnSpecialPrice, P_SmallPicture, P_ID, NEWID() AS P_ID1 FROM Products WHERE P_OnSpecial=yes ORDER BY P_ID1"
    rsSpecials.CursorType = 0
    rsSpecials.CursorLocation = 2
    rsSpecials.LockType = 1
    rsSpecials.Open()

    rsSpecials_numRows = 0
    %>

    The NEWID() part is the problem.

    I tried RAND() but.......


Comments

  • Options
    #2
    lucian
    Closed Accounts Posts: 40 ✭lucian


    For everybody who ever gets into the same position I was in, I sorted out like this:

    <%
    Const adCmdText = &H0001

    Dim rsNewProducts
    Dim rsNewProducts_numRows

    Set rsNewProducts = Server.CreateObject("ADODB.Recordset")
    rsNewProducts.ActiveConnection = MM_conn_STRING
    rsNewProducts.Source = "SELECT * FROM NewProducts ORDER BY P_DATEADDED"
    rsNewProducts.CursorType = 0
    rsNewProducts.CursorLocation = 3
    rsNewProducts.LockType = 1
    rsNewProducts.Open()

    rsNewProducts_numRows = 0

    Dim intRnd
    Randomize Timer
    intRnd = (Int(RND * rsNewProducts.RecordCount))

    ' Now moving the cursor to random record number
    rsNewProducts.Move intRnd
    %>


Advertisement