14-12-15, 03:56 PM
14-12-15, 04:05 PM
ماذا تقصد بصيغه التاريخ بالجدول؟
14-12-15, 04:11 PM
التاريخ مكتوب في الحقل data_end كيف ؟
14-12-15, 04:30 PM
18/12/2015
14-12-15, 04:46 PM
هذا الكود كامل قم بتجريبه واخبرني بالنتيجة
كود :
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)14-12-15, 04:57 PM
يظهر خطأ كما بالصوره المرفقه
والكود لا يعمل
والكود لا يعمل
14-12-15, 08:39 PM
حبيبي حريف، استخدامك لتنسيق الرد داخل الكود سبب ربكة لحبيبنا نسيم.
حبيبي حريف، اعتمادك التاريخ بشكل نص ليست الطريقة الصحيحة.
حبيبي نسيم، لو تذكر الكود الاضافي يلي وضعتو لك، بامكانك وضع اسماء الحقول بعد كلمة SELECT منشان تقدر تقرها
حاول تقرا الكود جيدا وتستنتج ماذا وضعت وماذا عدلت لتعطيك النتيجة، وبهيك ممكن تتعلم الطريقة وتعدل بنفسك
حبيبي حريف، اعتمادك التاريخ بشكل نص ليست الطريقة الصحيحة.
حبيبي نسيم، لو تذكر الكود الاضافي يلي وضعتو لك، بامكانك وضع اسماء الحقول بعد كلمة 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 Function14-12-15, 08:40 PM
اشكرك اخي على ردك
كل ما اريده حاليا هو كما موضح بالصوره المرفقه عند الضغط على زر الذي قارب على الانتهاء ان يظهرها في ليست بوكس او DataGridView
كل ما اريده حاليا هو كما موضح بالصوره المرفقه عند الضغط على زر الذي قارب على الانتهاء ان يظهرها في ليست بوكس او DataGridView
14-12-15, 08:59 PM
حبيبي نسيم، انت بدك تتعلم ولا بدك تنتهي من المشروع وخلاص.
انت عارف مهمة check شو بتعمل؟ بنتظر جوابك.
يظهر بدك تنتهي من المشروع، بتمنالك التوفيق حبيبي
انت عارف مهمة 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 Sub14-12-15, 09:09 PM
اخي الكريم اكيد الواحد بحب يتعلم ومن خلال تكوين المشروع النهائي بكون الواحد كون فكره
وانا مبتدء في vb.net ارجو ان تتحملوني
ومشكورين جميعا اخواني على مساعدتكم لقد حصلت على مرادي ولكم جزيل الشكر
وانا مبتدء في vb.net ارجو ان تتحملوني
ومشكورين جميعا اخواني على مساعدتكم لقد حصلت على مرادي ولكم جزيل الشكر