[geneane]

I am normally an access user. This time I need help figuring out what the correct properties are for the following fields:

The table Questions depends on having a topic
The table Answers must have a question

'Check QUESTIONS

dim QUESTIONS(100,3)
i = 0
addField QUESTIONS,"QID", adInteger, -2, -1
addField QUESTIONS,"TopicID", adInteger, -1, -1
addField QUESTIONS,"Question", adLongVarChar, -1, -1
addField QUESTIONS,"Notes", adVarChar, 255,-1
addField QUESTIONS,"Hits", adDouble, -1, -1
addField QUESTIONS,"Status", adInteger, -1, -1
addField QUESTIONS,"DateStamp", adDBTimeStamp, -1, -1
addField QUESTIONS,"ModifiedDate", adDBTimeStamp, -1, -1

checkTable QUESTIONS, "QUESTIONS"




'Check ANSWERS

dim ANSWERS(100,3)
i = 0
addField ANSWERS,"AID", adInteger, -2, -1
addField ANSWERS,"QID", adInteger, -1, -1
addField ANSWERS,"Answer", adLongVarChar, -1, -1
addField ANSWERS,"HelpFull", adDouble, -1, -1
addField ANSWERS,"UnHelpFull", adDouble, -1, -1
addField ANSWERS,"CountVotes", adDouble, -1, -1
addField ANSWERS,"Status", adInteger, -1, -1
addField ANSWERS,"DateStamp", adDBTimeStamp, -1, -1
addField ANSWERS,"ModifiedDate", adDBTimeStamp, -1, -1

checkTable ANSWERS, "ANSWERS"


'Check TOPICS

dim TOPICS(100,3)
i = 0
addField TOPICS,"TopicID", adInteger, -2, -1
addField TOPICS,"Topic", adVarChar, 100,-1
addField TOPICS,"DateStamp", adDBTimeStamp, -1, -1
addField TOPICS,"ModifiedDate", adDBTimeStamp, -1, -1
addField TOPICS,"Status", adInteger, -1, -1
addField TOPICS,"TopicOrder", adInteger, -1, -1

checkTable TOPICS, "TOPICS"



Topics are added just fine. When I add a question, I cannot see it so therefore I cannot add an answer. Doing a select * from questions returns nothing. The question should be inserted so that "TopicID" defaults to 1 and "Status" defaults to 0.