Do not accept repeated records- VB6 validation

Asked By Olivia Rodriguez 0 points N/A Posted on - 04/05/2012

I am working on my visual basic6.0 project.  What will be the code that I am going to use If I don't want any records to be repeated. For example, I add a user by clicking an add command button and I enter a user that is already existing in my access database. I want the program to don't accept my input and return an error message stating "Records already exist".

Can anyone give me a sample code in visual basic 6.0 on how to do this?

Thanks

• Status: Open
• Question Views: 1342
• Answer Count: 1
• Vote Up 0 Vote Down

• Answer Accepted: No
• Question Category: Visual basic

Answered By Sheldon Ron 0 points N/A #102087

Do not accept repeated records- VB6 validation

You may use the ADODB connection tool that is found in your references. Just add the Microsoft Active X 2.1 Library from Project–>References.

dim con as new adodb.connection

dim rs as new adodb.recordset

con.connectionstring(“ enter connection string”)

con.open

set rs=con.execute(“select distinct uname from accounts”)

rs.movefirst

while(rs.eof=false)

if rs.fields(“uname”)=txtname then

 msgbox(“username already exist”)

 end sub

end if

rs.movenext

wend

 

connect to the database then enter the connection string, the accounts is the table name containing the usernames., then uname is the attribute name, rs contains the usernames currently in the database. the code checks all the usernames and reports “username already exists” if a match is found else the loop ends normally. The rest code may be appended at the end. Make sure that the database has atleast one record to execute it without a runtime error.

The program assumes that you have only a single username hat has to be matched, else you require a loop to search through if there is a match to the current username.

Thanks.

 

About Sheldon Ron

Questions
3

Answers
52

Best Answers
10

• Vote Up 0 Vote Down

• Posted on - 04/08/2012
• Question Category: Visual basic