Computed age display in textbox using vb6.0

Question

1.00/5 (1 vote)

See more:

how to display age in textbox. when enter DOB in textbox.

If rs.state = adStateOpen Then rs.Close
rs.Open "Select DATEDIFF(YEAR,CONVERT(datetime,'" & txtBirthdate.Text & "',103),CONVERT(varchar,V_ISSUEDATE,103)) from VISITOR_MASTER_NEW", cn.Conn, adOpenDynamic, adLockOptimistic
txtAge.Text = rs("V_AGE") ""

this above code i have use for calculate and display age in textbox..
i have used two Example
Textbox1 is for enter DOB
Textbox2 is for output didplay..

What I have tried:

If rs.state = adStateOpen Then rs.Close
rs.Open "Select DATEDIFF(YEAR,CONVERT(datetime,'" & txtBirthdate.Text & "',103),CONVERT(varchar,V_ISSUEDATE,103)) from VISITOR_MASTER_NEW", cn.Conn, adOpenDynamic, adLockOptimistic
txtAge.Text = rs("V_AGE") & ""

Posted 11-Apr-21 22:34pm

Bhavesh Vankar

Updated 11-Apr-21 23:41pm

v4

Add a Solution

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Richard MacCutchan · Answer 1 · 2021-04-11T22:58:00

Solution 1

You have previously been given solutions to this question at Calculate age in textbox[^] and Calculate age using DOB[^]. Please do not repost the same question.

Posted 11-Apr-21 22:58pm

Richard MacCutchan

Comments

Bhavesh Vankar 12-Apr-21 5:00am

but it still not resolved and in this question different query i am not understanding what to do if calculated age display in age textbox...?

Richard MacCutchan 12-Apr-21 5:29am

They are all the same question. Trying to use a string as a date to find the difference between the two. If you still do not understand the issue then you need to go back and study some of the SQL tutorials in more detail.

CHill60 12-Apr-21 5:31am

Try to avoid using titles for your questions that are so very similar - it makes people think that you are just reposting the same question, whereas this one is a very different problem and has nothing to do with the textbox

CHill60 · Answer 2 · 2021-04-11T23:04:00

Firstly - concatenating user input in strings like that leaves you vulnerable to SQL Injection Attacks. Use Parameterized Queries instead - it's difficult to find documentation relevent to VB6 these days but I did find this Parameterized Update query in VB6 - Visual Basic (Classic) - Tek-Tips[^]

Your error message is probably being generated because txtBirthdate.Text is not in a valid date format. This could well be fixed by using a Parameterised Query.

You should probably also not be using all those conversions - if you get the txtBirthdate.Text bit correct and use a Parameterised query that part of the query becomes

SQL

Select DATEDIFF(YEAR,@Birthdate,103),

SQL

Select DATEDIFF(YEAR,?,103),

Edit - corrected the code, I forgot that VB6 cannot handle named parameters.

The next thing to note is that the SQL function DATEDIFF is expecting date or time expressions not
the varchar that you are using with

SQL

,CONVERT(varchar,V_ISSUEDATE,103)) from VISITOR_MASTER_NEW

See DATEDIFF (Transact-SQL) - SQL Server | Microsoft Docs[^]

If V_ISSUEDATE is a date or datetime column type on your database then there is no need at all for the CONVERT and if V_ISSUEDATE is not a date or datetime column type on your database then you need to change your database. Always use the correct column type for the data that will be stored in it

EDIT:
I have just spotted another major problem - You can't refer to a column in a recordset by name if you don't give it a name in the first place! Your SQL code should read

SQL

Select DATEDIFF(YEAR,CONVERT(datetime,?,V_ISSUEDATE,103) AS V_AGE from VISITOR_MASTER_NEW

Patrice T · Answer 3 · 2021-04-11T23:22:00

Solution 3

Quote:
whats wrong kindly suggest....
"THE CONVERSION OF A VARCHAR DATA TYPE A DATETIME DATA TYPE RESULTED IN AN OUT-OF-RANGE VALUE."

The error message tells you that the problem is in the contain of txtBirthdate.Text and of V_ISSUEDATE . Information that you didn't provided.

Simply said, the SQL server don't like 1 of the values converted to date.

Posted 11-Apr-21 23:22pm

Patrice T

Comments

Bhavesh Vankar 12-Apr-21 5:28am

this is solved but still pending how to display age in textbox by sql query which is computed. means i have used this code
If rs.state = adStateOpen Then rs.Close
rs.Open "Select DATEDIFF(YEAR,CONVERT(datetime,'" & txtBirthdate.Text & "',103),CONVERT(datetime,V_ISSUEDATE,103)) from VISITOR_MASTER_NEW", cn.Conn, adOpenDynamic, adLockOptimistic

in this below line i want to display my computed age how to do this.

txtAge.Text = rs("V_AGE") & ""