10-01-16, 04:56 PM
اسعد الله اوقاتكم
اخواني ارجوا المساعده في تغيير عنوان رساله التنبيه
الكود هو
اخواني ارجوا المساعده في تغيير عنوان رساله التنبيه
الكود هو
كود :
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