[نسيم الترك1]

اسعد الله اوقاتكم 
اخواني ارجوا المساعده في تغيير عنوان رساله التنبيه  

   


الكود هو 

كود :

Shared Function check() As String

       Dim dt As New DataTable
       Dim ret As Integer = New OleDb.OleDbDataAdapter("SELECT car2, car5, DateDiff ('d', Now(), car8) As days FROM car_t WHERE DateDiff ('d', Now(), car8) < 30", con).Fill(dt)

       Dim sb As New System.Text.StringBuilder
       If ret > 0 Then

           For Each r As DataRow In dt.Rows
               sb.AppendLine(r("car2") & " - رقم المركبة - (" & r("car5") & ")  باقي لانتهاء الترخيص  = " & r("days") & "  يوم")
           Next
       End If

       Return sb.ToString
   End Function