تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ممكن كود يعطي انذار عند انتهاء موعد تسليم كتب
#1
ممكن كود يعطي انذار عند انتهاء موعد تسليم كتب Sad
الرد
تم الشكر بواسطة:
#2
السلام عليكم...
تفضل:

كود :
  Try
           If con.State = ConnectionState.Closed Then
               con.Open()
           End If
           Dim Query As String = "Select Count(*) From patient Where 1=1"

           Query = Query & " AND تنبية >= '" & Now.ToString("yyyy-MM-dd") & "'"

           Query = Query & " AND تنبية <= '" & Now.ToString("yyyy-MM-dd") & "'"

         
           Dim cmd As New SqlCommand(Query, con)
           da = New SqlDataAdapter(cmd)
           dt.Clear()
           da.Fill(dt)


           Dim RecordCount As Double

           RecordCount = cmd.ExecuteScalar
           TextBox4.Text = Val(RecordCount)
           con.Close()


       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد
تم الشكر بواسطة: Ronald , Nena , ابو روضة , ابو روضة
#3
(30-03-21, 01:17 AM)اسامه الهرماوي كتب : السلام عليكم...
تفضل:

كود :
  Try
           If con.State = ConnectionState.Closed Then
               con.Open()
           End If
           Dim Query As String = "Select Count(*) From patient Where 1=1"

           Query = Query & " AND تنبية >= '" & Now.ToString("yyyy-MM-dd") & "'"

           Query = Query & " AND تنبية <= '" & Now.ToString("yyyy-MM-dd") & "'"

         
           Dim cmd As New SqlCommand(Query, con)
           da = New SqlDataAdapter(cmd)
           dt.Clear()
           da.Fill(dt)


           Dim RecordCount As Double

           RecordCount = cmd.ExecuteScalar
           TextBox4.Text = Val(RecordCount)
           con.Close()


       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

شكرا راح احاول بيه ??
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم