|
Personal Description
|
|
Call ConecT
sql = "select * from student where stud_name='" & Me.TxtCanName & "' and DATEPART(DAY,stud_dob)=" & Day(DtDob) & _
" and DATEPART(MONTH,stud_dob)=" & Month(DtDob) & _
" and DATEPART(YEAR,stud_dob)=" & Year(DtDob)
Rs.Open sql, Con, adOpenDynamic, adLockOptimistic
If Rs.EOF Or Rs.BOF Then
Label4.caption = "New Canditate"
Else
|
|
Partner's Description
|
|
Call ConecT
sql = "select * from student where stud_name='" & Me.TxtCanName & "' and DATEPART(DAY,stud_dob)=" & Day(DtDob) & _
" and DATEPART(MONTH,stud_dob)=" & Month(DtDob) & _
" and DATEPART(YEAR,stud_dob)=" & Year(DtDob)
Rs.Open sql, Con, adOpenDynamic, adLockOptimistic
If Rs.EOF Or Rs.BOF Then
Label4.caption = "New Canditate"
Else
|