21-05-17, 04:09 PM
تريد البحث في قاعدة بيانات اكسس عن تاريخ اخر زيارة
ما هو عمود تاريخ الزيارة
ما هو عمود تاريخ الزيارة
كود :
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