Age find using DOB in textbox vb6.0

Question

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" ) & ""

Amit Gupta · Answer

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

Bhavesh Vankar · Answer

rs is conn string...

Bhavesh Vankar · Answer

this example not working in vb6.0 some properties and functions not in vb6.0

Amit Gupta · Answer

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!!

Amit Gupta · Answer

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?

Bhavesh Vankar · Answer

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..

Amit Gupta · Answer

Can you share the error you are getting?

Bhavesh Vankar · Answer

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....?

Amit Gupta · Answer

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/

Bhavesh Vankar · Answer

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.

Bhavesh Vankar · Answer

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