منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] االتاريخ فى داتا جريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=2604)

الصفحات: 1 2


االتاريخ فى داتا جريد فيو - laleq - 18-04-14

السلام عليكم

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

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

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

اسف على الاطاله
شكرا جزيلا بارك الله فيكم


RE: االتاريخ فى داتا جريد فيو - سعود - 18-04-14

تفضل المثال بالاكواد
اولا الموديول
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 



RE: االتاريخ فى داتا جريد فيو - سعود - 18-04-14

السر هنا
PHP كود :
Dim cm As New OleDbDataAdapter("select * from tb where tdate=#" currentDate.AddDays(Val(ndate.Text)).ToShortDateString "#"con



RE: االتاريخ فى داتا جريد فيو - سعود - 18-04-14

خصوصا هذا
PHP كود :
#" & currentDate.AddDays(Val(ndate.Text)).ToShortDateString & "# 



RE: االتاريخ فى داتا جريد فيو - سعود - 18-04-14

وبيت القصيد هو
كود :
currentDate.AddDays
تسند له عدد الايام التي تزيد على اليوم مثلا تريد ان تعرف التاريخ الذي سيحل بعد يومين تكتب رقم 2
PHP كود :
currentDate.AddDays(2

او تسند له من مربع نص كما بالكود


RE: االتاريخ فى داتا جريد فيو - laleq - 19-04-14

اخى العزيز شكرا على ردك

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

بارك الله فيك


RE: االتاريخ فى داتا جريد فيو - laleq - 20-04-14

للرفع


RE: االتاريخ فى داتا جريد فيو - سعود - 20-04-14

إقتباس :هل من الممكن ان تجمعه فى سامبل
مافهمت ماعلشSmile


RE: االتاريخ فى داتا جريد فيو - laleq - 20-04-14

السلام عليكم
اقصد فى مثال عملى


شكرا لك


RE: االتاريخ فى داتا جريد فيو - laleq - 21-04-14

للرفع