منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ساعدونى فى التايمر والله تعبت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : ساعدونى فى التايمر والله تعبت (/showthread.php?tid=3354)

ساعدونى فى التايمر والله تعبت - mesm23 - 28-06-14

هذا كود يقوم بالتنبيه عن طريق الرسالة قبل موعد المقابلة بيوم ولكن لا يعمل
حيث الud هو زمن المقابلة القادمة

PHP كود :
Timer1.Stop()
        Label1.Text = Date.Today
 sqlcon1.Open()
        sql1 = " Select * from table2 where( DateDiff(Day, GetDate() , ud) <=1 )"
        Dim cmd As New SqlCommand(sql1)
        cmd.Connection = sqlcon1
        Dim dr As SqlDataReader = cmd.ExecuteReader
        If dr.HasRows Then
            dr.Read()
            TextBox3.Text = dr.Item("ud")
            TextBox4.Text = dr.Item("id")
            MsgBox("ud")
        Else
            MsgBox(" لا يوجد مقابلات ")
        End If 


RE: ساعدونى فى التايمر والله تعبت - vbnet - 28-06-14

.....

كود :
Dim sql As String = " SELECT * FROM [table2] WHERE (DateDiff(Day, GetDate(), [ud]) <=1) "
Dim da As New SqlDataAdapter(sql, conn)
Dim dt As New DataTable
If da.Fill(dt) > 0 Then
    TextBox3.Text = dt.Rows(0).Item("ud")
    TextBox4.Text = dt.Rows(0).Item("id")
    MsgBox(dt.Rows(0).Item("ud"))
End If

.....

RE: ساعدونى فى التايمر والله تعبت - mesm23 - 28-06-14

بارك الله فيك
جربت الكود وظبط معى
شكرا جزيلا ووفقك الله لخدمة الناس