تقييم الموضوع :
  • 1 أصوات - بمعدل 1
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] االتاريخ فى داتا جريد فيو
#1
السلام عليكم

عضو جديد فى المنتدى الجميل
الذى وجدتة عن طريق محرك البحث فى محاولاتى للتعلم
و شكر للقائمين غلى المجهود
سؤال اذا امكن

لدى برنامج نوعا ما بسيط فيه دانا جريد فيو و تواريخ انتهاء مواد
حاولت ايجاد كود اةو طريقه للتنبيه 3 ايام مثلا على انتهاء الصلاحيه و بحثت فى المنتدى ووجدت 3 مقالات منها للاخ سعود و لم اتمكن من تحميل المرفقات للتعلم منها و مقالان تم وضع الكود ولكن لم يعمل لانى مبتدى فى لمجال

هل يوجد سامبل للداتا جريد فيه تواريخ مع خاصيه التنبيه عند النقر تظهر فى فورم اخر الاصناف المنتهيه لدراستها و التعلم منها

اسف على الاطاله
شكرا جزيلا بارك الله فيكم
الرد }}}}
تم الشكر بواسطة:
#2
تفضل المثال بالاكواد
اولا الموديول
PHP كود :
Imports System.Data.OleDb
Module Module1
    
Public con As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb")
    Public 
Sub getdata()
        
Dim ds As New DataSet
        Dim da 
As New OleDbDataAdapter("select * from tb order by tid desc"con)
        
ds.Clear()
        
Form2.DataGridView1.DataSource Nothing
        da
.Fill(ds"tb")
        
Form2.DataGridView1.DataSource ds
        Form2
.DataGridView1.DataMember "tb"
        
Form2.DataGridView1.Columns(0).Width 50
        Form2
.DataGridView1.Columns(1).Width 200
        Form2
.DataGridView1.Columns(2).Width 200
        Form2
.DataGridView1.Columns(0).HeaderText "م"
        
Form2.DataGridView1.Columns(1).HeaderText "اسم السلعة"
        
Form2.DataGridView1.Columns(2).HeaderText "تاريخ الانتهاء"
        
If con.State ConnectionState.Open Then
            con
.Close()
        
End If
    
End Sub
End Module 

ثانيا كلاس الفورم انظر لاسماء الازرار لابد ان تكون موجودة
PHP كود :
Imports System.Data.OleDb

Public Class Form2
    
Private Sub Form2_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        getdata
()
    
End Sub

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        getdata
()
    
End Sub

    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        Dim currentDate 
As DateTime DateTime.Now
        Dim cm 
As New OleDbDataAdapter("select * from tb where tdate=#" currentDate.AddDays(Val(ndate.Text)).ToShortDateString "#"con)
        
Dim ds As New DataSet
        ds
.Clear()
        
DataGridView1.DataSource Nothing
        cm
.Fill(ds"tb")
        
DataGridView1.DataSource ds
        DataGridView1
.DataMember "tb"
        
DataGridView1.Columns(0).Width 50
        DataGridView1
.Columns(1).Width 200
        DataGridView1
.Columns(2).Width 200
        DataGridView1
.Columns(0).HeaderText "م"
        
DataGridView1.Columns(1).HeaderText "اسم السلعة"
        
DataGridView1.Columns(2).HeaderText "تاريخ الانتهاء"

        
If con.State ConnectionState.Open Then
            con
.Close()
        
End If

    
End Sub

    

   

    
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click
        lbl
.Text ""
        
Dim cm As New OleDbCommand(""con)
        
cm.CommandText "insert into tb (tname,tdate) values(@tname,@tdate)"
        
cm.Parameters.AddWithValue("@tname"OleDbType.VarChar).Value tname.Text
        cm
.Parameters.AddWithValue("@tdate"OleDbType.VarChar).Value tdate.Text
        
If con.State ConnectionState.Closed Then
            con
.Open()
        
End If
        Try
            
cm.ExecuteNonQuery()
            
Button1.PerformClick()
            
lbl.Text "تم الاضافة بنجاح"
            
lbl.ForeColor Color.Green
        
Catch ex As Exception
            lbl
.Text Err.Description
            lbl
.ForeColor Color.Red
        End 
Try
    
End Sub
End 
Class 
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: kslawy
#3
السر هنا
PHP كود :
Dim cm As New OleDbDataAdapter("select * from tb where tdate=#" currentDate.AddDays(Val(ndate.Text)).ToShortDateString "#"con
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: kslawy
#4
خصوصا هذا
PHP كود :
#" & currentDate.AddDays(Val(ndate.Text)).ToShortDateString & "# 
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: kslawy
#5
وبيت القصيد هو
كود :
currentDate.AddDays
تسند له عدد الايام التي تزيد على اليوم مثلا تريد ان تعرف التاريخ الذي سيحل بعد يومين تكتب رقم 2
PHP كود :
currentDate.AddDays(2

او تسند له من مربع نص كما بالكود
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: kslawy , laleq
#6
اخى العزيز شكرا على ردك

و المساعده
و لكن ما زلت اصادف اخطاء
هل من الممكن ان تجمعه فى سامبل
سوف يكون اسهل بالنسبه لى لافهمه

بارك الله فيك
الرد }}}}
تم الشكر بواسطة:
#7
للرفع
الرد }}}}
تم الشكر بواسطة:
#8
إقتباس :هل من الممكن ان تجمعه فى سامبل
مافهمت ماعلشSmile
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: laleq
#9
السلام عليكم
اقصد فى مثال عملى


شكرا لك
الرد }}}}
تم الشكر بواسطة:
#10
للرفع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  داتا جريد فيو abdel.halim 5 67 22-10-17, 07:48 PM
آخر رد: حريف برمجة
  تصفير الداتا جريد فيو عند كل إضافه جديدة. nassery99 16 243 22-10-17, 03:38 PM
آخر رد: nassery99
  [VB.NET] فتح نموذج بناءا علي قيمة في الداتا جريد فيو haithammoftah 3 70 14-10-17, 07:55 PM
آخر رد: Amir_alzubidy
Lightbulb [مثال] تحويل التاريخ الميلادي الى هجري داخل الداتا جريد من قاعدة بيانات اكسس محمود بكرى 20 553 30-08-17, 02:37 PM
آخر رد: محمود بكرى
  نسخ البيانات من الداتا جريد الى داتا جريد اخري احمد الامين 1 141 28-08-17, 05:07 AM
آخر رد: سعود
  [VB.NET] طلب كود تصدير بيانات داتا جريد فيو إلى وورد waelalmsry75 4 232 27-08-17, 11:58 PM
آخر رد: waelalmsry75
  [VB.NET] كيف أسوي بحث في الداتا جريد فيو فقط بالتكست بوكس بدون زر oni 3 150 27-08-17, 12:17 AM
آخر رد: سعود
  مساعده من الخبراء فى تنسيق الداتا جريد فيو نبيل كونكت 3 159 22-08-17, 11:50 PM
آخر رد: أبو نوره
  بخصوص العرض فى الداتا جريد فيو نبيل كونكت 5 188 21-08-17, 04:07 AM
آخر رد: نبيل كونكت
  كيفية انهاء الفرز فى الداتا جريد فيو نبيل كونكت 2 114 18-08-17, 01:03 PM
آخر رد: نبيل كونكت

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم