ghostriderofthenite Ultimate Bot project

possible loop code for trivia not sure
con.Open _
“Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & App.Path & “\Books.mdb;” & _
“Jet OLEDB:Engine Type=4;”
‘Are “A” and “B” stored Views?
rs1.Open “A”, con, adOpenKeyset, adLockPessimistic, adCmdTableDirect
‘##########################################
‘Make sure, Query “B” returns Matching_Criteria=”UnMatched”
‘SELECT ID, Description, “UnMatched” As Matching_Criteria FROM MyTableB ORDER BY ID
‘The “UnMatched”-Value corresponds to the Field-Position of Matching_Criteria, in this Case Column 3 (resp. Field(2) in the Fields-Collection)
rs2.Open “B”, con, adOpenKeyset, adLockPessimistic, adCmdTableDirect
‘##########################################

rs1.MoveFirst
Do While Not rs1.EOF
rs2.MoveFirst
Do While Not rs2.EOF
If rs1(“ID”).Value = rs2(“ID”).Value Then
With rs2
!Matching_Criteria = “Matched”
.Update
End With
Exit Do
End If
rs2.MoveNext
Loop
rs1.MoveNext
Loop

that works pretty nice so far just cant do anything wid it but game links and music links all work nothing in chat room hahahah

i’m Thinking here needs to be code to loop thru questions and answers from the adodc file
Private Sub Next_Que_Click()
Adodc1.Recordset.MoveNext
End Sub

made few changes folks request fer team play in trivia uploading now still ain tgot it working but ther patient hahahah or im full shit and no idea what im doing I added teams so men vs women so need get info from profile if man or woman is that possible?

https://www.dropbox.com/s/ybn923z6xp86nim/NewBot%20Project%20files.zip?dl=0

updated pic of trivia not working yet just pic lol

Been offline few days had fix some power issues hope be back working on project again like to get it working and finished hahahah with alot help

not yet wasnt quite sure how and were to place them lol