+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار عن تاريخ الانتهاء (/showthread.php?tid=14112)
RE: استفسار عن تاريخ الانتهاء - حريف برمجة - 14-12-15
افتح الجدول وشوف كيف صيغة التاريخ .
RE: استفسار عن تاريخ الانتهاء - نسيم الترك1 - 14-12-15
ماذا تقصد بصيغه التاريخ بالجدول؟
RE: استفسار عن تاريخ الانتهاء - حريف برمجة - 14-12-15
التاريخ مكتوب في الحقل data_end كيف ؟
RE: استفسار عن تاريخ الانتهاء - نسيم الترك1 - 14-12-15
18/12/2015
RE: استفسار عن تاريخ الانتهاء - حريف برمجة - 14-12-15
هذا الكود كامل قم بتجريبه واخبرني بالنتيجة
كود :
Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("ar-eg")
Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("ar-eg")
Dim dp As New OleDb.OleDbDataAdapter("select T_Name,T_Tel1,data_end from T_Tel WHERE data_end <='" & Date.Now.AddDays(-30).ToString("dd/MM/yyyy") & "'", con)
[color=#363636][size=small][font='Exo 2', sans-serif] Dim ds As New DataSet[/font][/size][/color]
[color=#363636][size=small][font='Exo 2', sans-serif] dp.Fill(ds)[/font][/size][/color]
DataGridView1.DataSource = ds.Tables(0)RE: استفسار عن تاريخ الانتهاء - نسيم الترك1 - 14-12-15
يظهر خطأ كما بالصوره المرفقه
والكود لا يعمل
RE: استفسار عن تاريخ الانتهاء - hamada558 - 14-12-15
حبيبي حريف، استخدامك لتنسيق الرد داخل الكود سبب ربكة لحبيبنا نسيم.
حبيبي حريف، اعتمادك التاريخ بشكل نص ليست الطريقة الصحيحة.
حبيبي نسيم، لو تذكر الكود الاضافي يلي وضعتو لك، بامكانك وضع اسماء الحقول بعد كلمة SELECT منشان تقدر تقرها
حاول تقرا الكود جيدا وتستنتج ماذا وضعت وماذا عدلت لتعطيك النتيجة، وبهيك ممكن تتعلم الطريقة وتعدل بنفسك
كود :
Shared Function check() As String
Dim dt As New DataTable
Dim ret As Integer = New OleDb.OleDbDataAdapter("SELECT T_Name, T_Tel1, DateDiff ('d', Now(), data_end) As days FROM T_Tel WHERE DateDiff ('d', Now(), data_end) < 30", con).Fill(dt)
Dim sb As New System.Text.StringBuilder
If ret > 0 Then
sb.AppendLine("الاسماء والايام المتبقية")
For Each r As DataRow In dt.Rows
sb.AppendLine(r("T_Name") & " (" & r("T_Tel1") & ") = " & r("days"))
Next
End If
Return sb.ToString
End FunctionRE: استفسار عن تاريخ الانتهاء - نسيم الترك1 - 14-12-15
اشكرك اخي على ردك
كل ما اريده حاليا هو كما موضح بالصوره المرفقه عند الضغط على زر الذي قارب على الانتهاء ان يظهرها في ليست بوكس او DataGridView
RE: استفسار عن تاريخ الانتهاء - hamada558 - 14-12-15
حبيبي نسيم، انت بدك تتعلم ولا بدك تنتهي من المشروع وخلاص.
انت عارف مهمة check شو بتعمل؟ بنتظر جوابك.
يظهر بدك تنتهي من المشروع، بتمنالك التوفيق حبيبي
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' هذا حدث عند فتح الفورم
' نقوم بربط الداتاقريد و حقول النص بقاعدة البيانات
Call LoadData() 'LoadData نقوم بأستدعاء إجراء قمت بعمله بالأسفل وسميته
check()
End Sub
Sub check()
Dim dt As New DataTable
Dim ret As Integer = New OleDb.OleDbDataAdapter("SELECT T_Name, T_Tel1, DateDiff ('d', Now(), data_end) As days FROM T_Tel WHERE DateDiff ('d', Now(), data_end) < 30", con).Fill(dt)
If ret > 0 Then
For Each r As DataRow In dt.Rows
ListBox1.Items.Add(r("T_Name") & " (" & r("T_Tel1") & ") = " & r("days"))
Next
End If
End SubRE: استفسار عن تاريخ الانتهاء - نسيم الترك1 - 14-12-15
اخي الكريم اكيد الواحد بحب يتعلم ومن خلال تكوين المشروع النهائي بكون الواحد كون فكره
وانا مبتدء في vb.net ارجو ان تتحملوني
ومشكورين جميعا اخواني على مساعدتكم لقد حصلت على مرادي ولكم جزيل الشكر