يا جماع انا اعمل على برنامج تسيير مخزون سلعة والبيع وأريد ان ينبهني البرنامج عن قرب انتهاء تاريخ السلعة مع العلم أني اعمل على قاعدة بيانات اكسس 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
بخصوص كود بحث او باصح فلتر DataGridView
كل ما عليك عمل التالى
كود :
DataView dv;
dv = new DataView(ds.Tables[0], "type = 'business' ", "type Desc", DataViewRowState.CurrentRows);
dataGridView1.DataSource = dv;
حيث ان الجزء التالى
فى الجزء بدلاً من ؟؟ كما لو انك تقوم بعمل استعلام فى قاعدة البيانات
حيث ان الجزء التالى
كما لو انك تقوم بتطبيك جزء WHERE فى كود الاستعلام بقاعدة البيانات
وبما انك تريد عمل بحث بالتاريخ كل ما علك كتابة
كود :
data = #01-01-2018#
وعلى هذا النحو
وهذا الجزء
هو ترتيب العمود غير كلمة type الى اسم العمود لديك الذى يتم جلبه من قاعدة البيانات
وليس العمود الذى قمت بتسميته او تعريبه فى الفورم
تحياتى لك
وتمنياتى لك التوفيق
لم أفهم الكود ....لو أنك تبسطو شو لاني مبتدأ في هذا ....وأحاو قدر الامكان التعلم .....
يا ريت تعمل فييديو أو مشروع بسيط لأفهم عليه ....وجزاك الله خيراااا
كود :
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
هذا الفنكشن من مكتبتى القديمة للفيجول بيسك بيجيب الى قربت على الانتهاء عدل عليه زى ما تحب
لو تحب تحذف اسم المنتج براحتك
خي اسف ....ولاكن لم افهم ارجو اني لم ازعجك كثيرا ...هل يمكنك ان تصنع مثال تطبيقي
ساعطيك ملف قاعدة البانات وانت اصنعلي مثال ...وشكرا ...وسامحني على ازعاجك يا غالي
قاعدةبيانات من نوع اكسس ...باسورد دخول :
كود :
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"
عندى بس برنامج وموقع هسلمهم واعمله لك يااخى خلال يومين
