(30-05-17, 05:56 AM)حريف برمجة كتب : وعليكم السلام ،،

بالنسبة لرقم 1 هذا حله :

كود :

 dt.Clear()
        da = New OleDbDataAdapter("Select * from SIR where Site_ID=" & ComboBox3.Text & " ", con)
        da.Fill(dt)
        DGVSearch.DataSource = dt

ورقم 2 هذا حله :

كود :

 Dim dtp1 As Date = Start1.Value
        Dim dtp2 As Date = Start1.Value.AddDays(1)

        dt.Clear()
        da = New OleDbDataAdapter("Select * from SIR where Start BETWEEN @dFrom AND @dTo ", con)

        da.SelectCommand.Parameters.AddWithValue("@dFrom", dtp1)
        da.SelectCommand.Parameters.AddWithValue("@dTo", dtp2)

        da.Fill(dt)
        DGVSearch.DataSource = dt

        If dt.Rows.Count = 0 Then
            MsgBox("No match found")
            Load_Data()
        End If

(30-05-17, 04:34 PM)alma2 كتب : اذا كان Site_ID نوعه نص وليس رقم فيكون التعديل على كود الاخ حريف برمجة
[code]        da = New OleDbDataAdapter("Select * from SIR where Site_ID='" & ComboBox3.Text.Trim & "' ", con)[code]

(30-05-17, 08:52 PM)حريف برمجة كتب : جربته قبل ارسل الكود لك وشغال تمام التمام ،، انا فتحت جدول القاعدة ووجدته رقمي لذلك عملته على اساس رقم ،، ماهي الرسالة اللي ظهرت لك ؟؟؟

(30-05-17, 10:22 PM)alma2 كتب :

كود :

Dim dtp1 As Date = Start1.Value.Date
Dim dtp2 As Date = Start1.Value.Date.AddDays(1)