تابعی برای هشدار تاریخ تولد

[piter11]

سلام من یه برنامه با وی بی نوشتم یه جدولی هست لیست افراد ثبت نامی به همراه تاریخ شمسی تولدشون حالا میخوام کاری کنم کاربر هر وقت برنامه رو باز کرد اگه اون روز تولد کسی بود حالت آلارم یه جوری به کاربر بگه که فلان فرد امروز تولدشه ممنون

[systam]

سلام
یک برنامه توی سایت هست به نام یاداوری تاریخ تولد بانک ملت
یه سرچ کن توی تالار پیدا میکنی

یا علی

[piter11]

ممنون دوست عزیز ولی پیداش نکردم میشه لینک بدید

[systam]

پست شماره 13 (http://barnamenevis.org/showthread.php?196747-%D9%BE%D8%B1%D9%88%DA%98%D9%87-%D9%87%D8%A7%DB%8C-Open-Source&p=934969&viewfull=1#post934969)

[piter11]

پست شماره 13 (http://barnamenevis.org/showthread.php?196747-%D9%BE%D8%B1%D9%88%DA%98%D9%87-%D9%87%D8%A7%DB%8C-Open-Source&p=934969&viewfull=1#post934969)

شانس مافایلشو مدیر سایت حذف کرده
http://barnamenevis.biz/forum/showth...966#post934966 (http://barnamenevis.biz/forum/showthread.php?p=934966#post934966)

[madani426]

آقا اگه با Linq کار کرده باشی فکر کنم این به کارت بیاد


Dim BirtdayCustomer = (From k In DB.tbl_Customers Where k.Birtday.Substring(5) = lblDate.Text.Substring(5) Select k).Count()
If BirtdayCustomer <> 0 Then

frmBirtday.ElDataGridView1.DataSource = (From k In DB.tbl_Customers Where k.Birtday.Substring(5) = lblDate.Text.Substring(5) Select k.Customer_Code, k.Customer_Name, k.Birtday)


frmBirtday.Show()
End If

نکته:اگر تاریخ به این صورت ذخیره شود 1393/06/08
Substring(5) یعنی 06/08 را با تاریخ امروز lblDate.Text.Substring(5) چک کن

[systam]

شانس مافایلشو مدیر سایت حذف کرده
سلام
پیام به کاربرش بده برات ایمیل کنه برای من هم بفرست لازم دارم

[piter11]

آقا اگه با Linq کار کرده باشی فکر کنم این به کارت بیاد


Dim BirtdayCustomer = (From k In DB.tbl_Customers Where k.Birtday.Substring(5) = lblDate.Text.Substring(5) Select k).Count()
If BirtdayCustomer <> 0 Then

frmBirtday.ElDataGridView1.DataSource = (From k In DB.tbl_Customers Where k.Birtday.Substring(5) = lblDate.Text.Substring(5) Select k.Customer_Code, k.Customer_Name, k.Birtday)


frmBirtday.Show()
End If

نکته:اگر تاریخ به این صورت ذخیره شود 1393/06/08
Substring(5) یعنی 06/08 را با تاریخ امروز lblDate.Text.Substring(5) چک کن

داداش میشه در مورد نحوه استفادش یه توضیحی بدی ممنون
بعد این اسم جدولش DB.tbl_Customers?
kچیه؟
این کدو باید تو لود صفحه اصلی بنویسی؟

[piter11]

سلام
پیام به کاربرش بده برات ایمیل کنه برای من هم بفرست لازم دارم
براش فرستادم

[behrooz69]

هنوز درگیر اینی ؟؟ این عمل تو سورس من راحته ها .

[piter11]

هنوز درگیر اینی ؟؟ این عمل تو سورس من راحته ها .

آقا خوب بنویس سورسشو خداخیرت بده

[piter11]

آقا خواهشا یکی سورشو به وی بی بنویسه برام اسم جدولم tbvip
اسامی فیلدام
name,family,tell,tarikh,adress
بانک اطلاعاتیمم sql server
تاریخم به شمسی درج میشه اینجوری 1393/03/16

[gilsoft]

آقا خواهشا یکی سورشو به وی بی بنویسه برام اسم جدولم tbvip
اسامی فیلدام
name,family,tell,tarikh,adress
بانک اطلاعاتیمم sql server
تاریخم به شمسی درج میشه اینجوری 1393/03/16

سلام دوست عزیز

اینم کد مربوطه (مختصر و مفید):
Imports System.DataImports System.Data.SqlClient


Public Class Form1


Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
FindBirthday()
End Sub


Private Sub FindBirthday()
Dim SCSB As New SqlConnectionStringBuilder
With SCSB
.DataSource = My.Computer.Name
.InitialCatalog = "MyDatabaseName"
.IntegratedSecurity = True
.ConnectTimeout = 15
End With


Dim cmdStr As String = "SELECT * FROM tbvip WHERE tarikh=" & " ORDER BY family, name "
Dim DT As New DataTable


Using DbCnn As New SqlConnection(SCSB.ConnectionString)
Dim Cmd As New SqlCommand(cmdStr, DbCnn)
Cmd.CommandType = CommandType.Text
Dim DA As New SqlDataAdapter(Cmd)
DA.Fill(DT) : DA.Dispose() : Cmd.Dispose()
End Using
If DT.Rows.Count > 0 Then
Dim Names As String = ""
For i = 0 To DT.Rows.Count - 1
Names &= DT.Rows(i).Item("name").ToString & " " & DT.Rows.Item("family").ToString & vbCrLf
Next
MessageBox.Show(Names)
End If
End Sub
End Class


بقیه‌اش رو باید خودت کنکاش کنی

موفق باشید .....