hi guy,

i need this ugently.. hope someone can help me out..

i need to get data from database,
but want it to take randomly and also dont want to get data duplicate.

Ex; i get data A from DB, then there will be a next button. i wan to go next data after i click it,
and get data c, later i dont wan to get back A & C again.

i`m doing Question and Answer thing.

thanks alot..

11 Years
Discussion Span
Last Post by Ganesh_m

Hi Bang2711,

First of all you are missing two .dlls in your .zip file:

Next, I see you have references to both DAO and ADODB in your project, unless you actually use both (and from what I see you are only using DAO) remove the one you are not using to avoid conflicts, OR specify which type you are using,
i.e. Dim rstdb1 As DAO.Recordset OR
Dim rstdb1 As ADODB.Recordset
Otherwise VB will pick which ever one it wants to... :(

Now to a possible soution.

An idea come to my mind as soon as I read your post and here it is.

Create a user defined type and a public variable of that type:

Public Type DBWords
   DataID As Long
   Used As Boolean
End Type

Public DBWordsArr() As DBWords

You do NOT want to set a limit here since you want to be able to resize it dynamically depending on the data in your DB.

Next you load your array with the IDs from your table PicSentenses and FALSE in the boolean part.

Set rstdb1 = db.OpenRecordset("SELECT ID FROM PicSentenses")
rstdb1.MoveLast 'Will get an accurate RecordCount
ReDim DBWordsArr(rstdb1.RecordCount -1) 
i = 0
'Unless you want to use a 1-based array
'ReDim DBWordsArr(1 to rstdb1.RecordCount)
'i = 1
While Not rstdb1.EOF
   DBWordsArr(i).DataID = rstdb1!ID
   DBWordsArr(i).Used = False
   i = i + 1
'ALWAYS close your recordsets in VB otherwise you are prone to memory leaks, yes EVEN in VB...  :)
Set rstdb1 = Nothing

Then you use your random code to get the next array element to use verifying for Used, I would create a function that returns a new random number within the range of subscripts of DBWordsArr

i = GetNextElement()
While DBWordsArr(i).Used 
   i = GetNextElement()
Set rstdb2=db.OpenRecordset("SELECT * FROM PicSentenses WHERE ID = " & DBWordsArr(i).DataID)

To guard against a infinite loop I would also keep counters of how many items I have in the array and of how many I have used so far.

Whenever you visit on node of your array you set the Used flag to TRUE and then you cannot get that item back until you have gone through the entire array and reset all the Used flags to FALSE.

Hope this makes sense and that it helps

Have fun


P.S. I have not tested this code as I just typed it here in the answer window... ;)


hi Yomet,

thanks alot for ur help
i have solve the problem..

:D have a great day..


I need the exact code to connect to oracle8i from vb 6.0.
Please send the code if you have

Thank you

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.