Age find using DOB in textbox vb6.0

Bhavesh Vankar

5y959Visual Basic .NET

when i use below query to find age using birth date it generate error as per below...

error

THE CONVERSION OF A VARCHAR DATA TYPE TP A DATETO,E DATA TYPE RESULTED IN AN OUT-OF-RANGE VALUE.

my code as per below..

i want to find age and display in textbox using entering DOB in textbox....

i have implement as per below... whats wrong kindly suggest....

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

11 Replies

Know the answer? Post it — somebody with the same question will find it here.

Bhavesh Vankar5y ago
actually my project is on working in a company. And recently this project has some update. Currently this project cannot be update in C# or Web.net.
+1
Amit Gupta5y ago
I can't say which properties available because vb6 is damm old and almost dead, why don't you consider using c# there or vb.net
+3
Bhavesh Vankar5y ago
rs is conn string...
+3
Bhavesh Vankar5y ago
this example not working in vb6.0 some properties and functions not in vb6.0
+3
Amit Gupta5y ago
What is rs here? Anyway, I am not a vb guy but I had made you a sample example, execute it and give it a try
Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim cnn As SqlConnection
        Dim cmd As SqlCommand
        Dim sql As String

        // validate date first before going to Sql
        Dim dob As Date

        dob = CDate(txtBirthdate.Text);
        // format it to yyyy/MM/dd format
       Dim _dob As String = Format(dob, "yyyy/MM/dd")


        connetionString = "your connection string here"
        sql = "Select DATEDIFF(YEAR,CONVERT(datetime,'" & _dob & "',103),CONVERT(varchar,V_ISSUEDATE,103)) from MASTER_NEW"

        cnn = New SqlConnection(connetionString)
        Try
            cnn.Open()
            cmd = New SqlCommand(sql, cnn)
            Dim age As String = Convert.ToString(cmd.ExecuteScalar())
            txtAge.Text = age
            cmd.Dispose()
            cnn.Close()
            MsgBox(" No. of Rows " & count)
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class
Do correct minor mistakes :)
Good Luck!!
+3
Bhavesh Vankar5y ago
my full code for this is here....
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
txtAge.Text = rs.Fields("V_AGE") & ""
End Sub
i have used vb6.0 and having no idea how to use ExecuteScalar
+1
Amit Gupta5y ago
Share the part of that full code to help you better.

If you are using SqlDataReader for this then you can use ExecuteScalar and get the result in your textbox because you need a single result from the db, right?
+3
Bhavesh Vankar5y ago
txtAge.Text = rs.Fields("V_AGE") & ""

when i'm going to display age in txtage.text box in throw the error is "method 'item' of object 'Fields' failed"
in above line it showing error..
+3
Amit Gupta5y ago
Can you share the error you are getting?
+3
Bhavesh Vankar5y ago
above issue is solved but their is one issue when i run and enter dob in textbox1 it generate error i want to display age in textbox 2 when enter dob in textbox ...

actually some sequrity purpos i have used sql query i have use sql servers date to calculate persons age if user change its pc's date than the wrong date may be pass.
you can see my code in txtage.text i want to display age how can i do that....?
+3
Amit Gupta5y ago
Hey

Why giving so much effort to SQL for calculation of Age when you can do it in frontend. However, the error is related to the format of your date, please check the data of txtBirthdate.Text, (YOU SHOULD PASS IN yyyy/MM/dd format, SQL get confused when it passed in dd/MM/yyyy format.)

Check date format here
https://www.mssqltips.com/sqlservertip/1145/date-and-time-conversions-using-sql-server/
+3