منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

البحث في قاعدة بيانات اكسس عن تاريخ اخر زيارة
يعني اكبر تاريخ او اخر تاريخ

(21-05-17, 01:24 PM)Amir_alzubidy كتب : [ -> ]

كود :

SELECT MAX (Date_Column) AS "Max Date"
FROM Table_Name;

ياريت الكود كامل ولو في مثال عليه عشان احفظ التاريخ في صندوق نص

ضع مشروعك ليتم التعديل عليه

"[quote='alma2' pid='99760' dateline='1495362427']\r\n\u0636\u0639 \u0645\u0634\u0631\u0648\u0639\u0643 \u0644\u064a\u062a\u0645 \u0627\u0644\u062a\u0639\u062f\u064a\u0644 \u0639\u0644\u064a\u0647\r\n[\/quote]\r\n\r\n\u0627\u0644\u0645\u0634\u0631\u0648\u0639"
محتاج طباعة اخر اخر تاريخ موجود
وايضا عدد اسطر الداتا جريد فيو

تريد البحث في قاعدة بيانات اكسس عن تاريخ اخر زيارة
ما هو عمود تاريخ الزيارة

(21-05-17, 04:09 PM)alma2 كتب : [ -> ]تريد البحث في قاعدة بيانات اكسس عن تاريخ اخر زيارة
ما هو عمود تاريخ الزيارة

كود :

Imports System.Data.OleDb

Public Class Form1

   Dim today As Date = Date.Today   ' تعريف متغير التاريخ

   Dim Conn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data.mdb;user id=admin;jet oledb:database password=987")
   Dim dt As New DataTable

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.CenterToScreen()
       'Me.RightToLeftLayout = True

       Dim SQLstr As String = "SELECT TOP 1 * FROM [t] ORDER BY [time] DESC "
       Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
       dt.Clear()
       DataAdapter1.Fill(dt)

       DataGridView1.DataSource = dt

       ' كود معرفة عدد الصفوف داخل اداة الجريد فيو
       Label1.Text = dt.Rows.Count

   End Sub

End Class

تسلم ايدك