[حريف برمجة]

افتح الجدول وشوف كيف صيغة التاريخ .

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

ماذا تقصد بصيغه التاريخ بالجدول؟

[حريف برمجة]

التاريخ مكتوب في الحقل data_end كيف ؟

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

18/12/2015

[حريف برمجة]

هذا الكود كامل قم بتجريبه واخبرني بالنتيجة

كود :

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)

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

يظهر خطأ كما بالصوره المرفقه
والكود لا يعمل

[hamada558]

حبيبي حريف، استخدامك لتنسيق الرد داخل الكود سبب ربكة لحبيبنا نسيم.
حبيبي حريف، اعتمادك التاريخ بشكل نص ليست الطريقة الصحيحة.

حبيبي نسيم، لو تذكر الكود الاضافي يلي وضعتو لك، بامكانك وضع اسماء الحقول بعد كلمة 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 Function

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

اشكرك اخي على ردك
كل ما اريده حاليا هو كما موضح بالصوره المرفقه عند الضغط على زر الذي قارب على الانتهاء ان يظهرها في ليست بوكس او DataGridView

[hamada558]

حبيبي نسيم، انت بدك تتعلم ولا بدك تنتهي من المشروع وخلاص.

انت عارف مهمة 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 Sub

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

اخي الكريم اكيد الواحد بحب يتعلم ومن خلال تكوين المشروع النهائي بكون الواحد كون فكره
وانا مبتدء في vb.net ارجو ان تتحملوني

ومشكورين جميعا اخواني على مساعدتكم لقد حصلت على مرادي ولكم جزيل الشكر