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

هاذا كود لالاستعلام اريد ان يضهر في الداتا جريد  
هاذا الكود ولاكن يضهر لي خطاء

Imports System.Data.OleDb
Public Class Form7
    Dim con As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0; data source=database.accdb")
    Dim da As New OleDbDataAdapter()
    Dim dt As New DataTable
    Dim pos As String = dt.Rows.Count - 1
    Sub load_date()
        dt.Clear()
        da = New OleDbDataAdapter("SELECT table2.[اسم المشترك], table2.[تاريخ تعين الدرس], table2.[الساعه] FROM table2 WHERE (((table2.[تاريخ تعين الدرس])=Day(Date()) & " / " & Month(Date())));", con)
        da.Fill(dt)
    End Sub
    Sub save_date()
        Dim save As New OleDbCommandBuilder(da)
        save.QuotePrefix = "["
        save.QuoteSuffix = "]"
        da.Update(dt)
        dt.AcceptChanges()
    End Sub

    Private Sub Form7_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        load_date()
        DataGridView1.DataSource = dt
    End Sub
End Class

مرحبا صديقي .... 
نصيحتي لك لا تستخدم اللغة العريبة لبناء الجداول لانة ستواجهك الكصير من المشاكل.

لم افهم لما وضعت

where date= Date() هكذا تجلب سجلات اليوم الحالي.

السلام عليكم

عند التعامل مع تاريخ في قاعدة البيانات يتم التعامل معه كنص باضافة علامات التنصيص المفردة '30-09-2019'

إلاّ في حالة كان التاريخ في متغير من متغيرات sql لأن نوع المتغير يعبر محتواه

أرجو أن أكون قد أفدت