by Krishna (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 3rd March 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This is just a simple Birth day finder application. U can schedule it to run at system start up to have the list of ur friends who have
API Declarations
Dim rs As Recordset
Dim d As String
Dim m, dy, n As String
Dim i, j As Integer
Dim nam(20) As String
VBcoders
i = 0
Set db = OpenDatabase("D:\web\Web\softwares\software\Birth\BIRTH.MDB")
Set rs = db.OpenRecordset("Select * from Bday")
rs.MoveFirst
d = Date
m = Mid$(d, 1, 2)
If Right$(m, 1) = "/" Then
dy = Mid$(d, 3, 2)
m = Left$(m, 1)
Else
dy = Mid$(d, 4, 2)
End If
If Right$(dy, 1) = "/" Then
dy = Left$(dy, 1)
End If
While Not rs.EOF
If Val(m) = Val(rs(1)) And Val(dy) = Val(rs(2)) Then
nam(i) = rs(0)
i = i + 1
End If
rs.MoveNext
Wend
n = "The Birthday list for today - "
For j = 1 To i
n = n & "..." & nam(j - 1) & "..."
Next
If Not i = 0 Then
MsgBox n
Else
MsgBox "Oops!!!!!No birthdays found"
End If
End
End Sub
No comments have been posted about This is just a simple Birth day finder application. U can schedule it to run at system start up to . Why not be the first to post a comment about This is just a simple Birth day finder application. U can schedule it to run at system start up to .