[hatem555]

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

[hatem555]

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

كود :

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

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

[alma2]

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

[hatem555]

"[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"
محتاج طباعة اخر اخر تاريخ موجود
وايضا عدد اسطر الداتا جريد فيو

[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

[hatem555]

(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

تسلم ايدك