[khalilfox]

يا جماع انا اعمل على برنامج تسيير مخزون سلعة والبيع وأريد ان ينبهني البرنامج عن قرب انتهاء تاريخ السلعة مع العلم أني اعمل على قاعدة بيانات اكسس 2008 ويتم تسجيل تاريخ انتهاء في جدول material العمود datex
ارجو ان تساعدوني ......من فظلم ...ولكم جزييييل الشكر

[محبه البرمجه]

Private Sub Form_Open(Cancel As Integer) On Error GoTo MyErr:

Dim MyFirst As Date
Dim MyInDate
Dim MyTableName As String
MyInDate = DFirst("[Date1]", "[T1]")
If Not IsNull(MyInDate) Then
MyFirst = MyInDate
Else
DoCmd.SetWarnings False
DoCmd.RunSQL ("INSERT INTO T1 ( Date1 ) SELECT Date();")
DoCmd.SetWarnings True
MyFirst = Date
End If

If MyFirst <= Date - 3 Then ' الوقت هنا تم تحديده بثلاثة ايام
MsgBox "مضى على تشغيل البرنامج 3 أيام وسيتم ايقاف البرنامج"
Call TableDelete
Else
If MyFirst > Date Then
MsgBox "تم التلاعب بتاريخ الجهاز وسيتم ايقاف تشغيل البرنامج"
Call TableDelete
End If
End If
Exit Sub

MyErr:
If Err.Number = 3078 Then
MsgBox " تم تعطيل البرنامج" & vbCrLf & vbCrLf & _
" مع السلامة " & vbCrLf & vbCrLf & _
" تعطيل", vbOKOnly + vbMsgBoxRight + vbExclamation
DoCmd.Quit
Else
MsgBox Err.Number & vbCrLf & Err.Description
End If

End Sub

[khalilfox]

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

[elgokr]

بخصوص كود بحث او باصح فلتر DataGridView 

كل ما عليك عمل التالى

كود :

DataView dv;
dv = new DataView(ds.Tables[0], "type = 'business' ", "type Desc", DataViewRowState.CurrentRows);
dataGridView1.DataSource = dv;

حيث ان الجزء التالى

كود :

new DataView(؟؟؟)

فى الجزء بدلاً من ؟؟ كما لو انك تقوم بعمل استعلام فى قاعدة البيانات

حيث ان الجزء التالى

كود :

type = 'business

كما لو انك تقوم بتطبيك جزء WHERE فى كود الاستعلام بقاعدة البيانات

وبما انك تريد عمل بحث بالتاريخ كل ما علك كتابة

كود :

data = #01-01-2018#

وعلى هذا النحو

وهذا الجزء

كود :

type Desc

هو ترتيب العمود غير كلمة type الى اسم العمود لديك الذى يتم جلبه من قاعدة البيانات

وليس العمود الذى قمت بتسميته او تعريبه فى الفورم

تحياتى لك

وتمنياتى لك التوفيق

[khalilfox]

لم أفهم الكود ....لو أنك تبسطو شو  لاني مبتدأ في هذا ....وأحاو قدر الامكان التعلم .....
يا ريت تعمل فييديو أو مشروع بسيط لأفهم عليه ....وجزاك الله خيراااا

[khalilfox]

(14-07-18, 07:23 AM)elgokr كتب :

اخي اشكرك كثيرا ....لكن لم أفهم .. لو تضع برنامج بسيط.......مع العلم اني استعمل vb.net 2010   وعندي قاعدة اكسس 2008    ....اتمنى ان ترد في قريب العاجل وشكرا

[mero5000]

كود :

Private Function GetExpirtProduct(ByVal sType As String) As Integer
        Try
            Dim CON As New SqlClient.SqlConnection
            Dim COM As New SqlClient.SqlCommand
            Dim DR As SqlClient.SqlDataReader = Nothing


            Dim strsql1 As String = "SELECT * FROM material  WHERE ( ProductName ='" & sType & "') AND  ( datex = '" & Date.Today.AddDays(-30).ToString("MM/dd/yyyy") & "')"
            CON.ConnectionString = constring3
            CON.Open()
            COM.Connection = CON
            COM.CommandType = CommandType.Text
            COM.CommandText = strsql1
            COM.Parameters.Clear()

            Dim Result As Integer = COM.ExecuteScalar

            CON.Close()

            Return Result
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

هذا الفنكشن من مكتبتى القديمة للفيجول بيسك بيجيب الى قربت على الانتهاء عدل عليه زى ما تحب
لو تحب تحذف اسم المنتج براحتك

[khalilfox]

خي اسف ....ولاكن لم افهم ارجو اني لم ازعجك كثيرا ...هل يمكنك ان تصنع مثال تطبيقي
ساعطيك ملف قاعدة البانات وانت اصنعلي مثال ...وشكرا ...وسامحني على ازعاجك يا غالي  
قاعدةبيانات من نوع اكسس ...باسورد دخول :

كود :

key:khalilfox

كود :

Imports System.IO
Imports System.Data.OleDb


Public Class FormMain
   Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DB.mdb;JeC:\Users\LENOVO\Desktop\khalil\khalil\SalesSystem\ApplicationEvents.vbt OLEDB:Database Password=key:khalilfox"
   Dim Conn As New OleDbConnection(ConStr)
   Dim DataSetMaterials As New DataSet
   Dim SQLMaterials As String = "Select * from Materials"

[mero5000]

عندى بس برنامج وموقع هسلمهم واعمله لك يااخى خلال يومين

[khalilfox]

(07-08-18, 01:58 PM)mero5000 كتب : عندى بس برنامج وموقع هسلمهم واعمله لك يااخى خلال ش

شكرا اخي لردك ....اتمنى ان يكون في القريب العاجل .....