[essawq]

السلام عليكم ورحمة الله وبركاتة

انا متوسط في البرمجة ومن محبي البرمجة 

واعمل على برنامج الامور تماام عندي لكن كود البحث بالتاريخ لم ينجح معي طبعا من الشروحات بالانترنت

انا عندي فورم بحث :-

زر بتن

اداة داتا تايم بيكر 

اداة داتا جريد فيو لعرض البيانات

وتكست بكس ايضا تعرص البيانات

هذا الكود الذي استخدمتة من احدي الشروحات ولم ينجح معي

ويظهر لي الخطا التالي

Incorrect syntax near '#'.

تحياتي لكم

كود :

Try
   Dim dtp As Date = DTP_pur.Value
       myconn.dt.Clear()
       myconn.da = New SqlDataAdapter("Select * from woork1 where alyowm = #" & dtp.Year & "/" & dtp.Month & "/" & dtp.Day & "#", myconn.conn)
       myconn.da.Fill(myconn.dt)
       DgvPrent.DataSource = myconn.dt
       If myconn.dt.Rows.Count = 0 Then
           MsgBox("لا يوجد بيانات", MsgBoxStyle.Information, "البحث")
       End If
       myconn.load_data()
   Catch ex As Exception
   MsgBox(ex.Message)
   End Try

[aljzazy]

تفضل يا عزيزي هذا كود للبحث
ما عليك الا تعديل اسم ادارة الديت تايم بيكر عندك
واستدعاء searchDate()

PHP كود :

Sub searchdate()

        Try
            Con.Open()
            Dim Cmd As New SqlCommand
            With Cmd
                .Connection = Con
                .CommandType = CommandType.Text
                .CommandText = " Select * from woork1 where alyowm =  '" & DateTimePicker1.Text & "'"

            End With

            Dim myDA As SqlDataAdapter = New SqlDataAdapter(Cmd)
            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "woork1")

            DgvPrent.DataSource = myDataSet.Tables("woork1").DefaultView

            Con.Close()


        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub 


[essawq]

السلام عليكم ورحمة الله وبركاتة

مشكور اخي على ردك وبارك الله فيك وبميزان حسناتك

الكود يعمل  100% ب 100%

انا حطيت الكود بالكلاس واعطيتة ببلك واستدعيتة داخل الفورم ويعمل  تمااام التمااام

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

وبارك الله فيك اخي الكريم 

تحياتي لك

[aljzazy]

PHP كود :

Dim dt As New DataTable()
        Dim cmd As New SqlCommand("SELECT * FROM `woork1` WHERE `alyowm` BETWEEN @d1 AND @d2", connection)

        command.Parameters.Add("@d1", SqlDbType.Date).Value = DateTimePicker1.Value
        command.Parameters.Add("@d2", SqlDbType.Date).Value = DateTimePicker2.Value

        Dim adp As New SqlDataAdapter(cmd)

        adapter.Fill(dt)

        DgvPrent.DataSource = dt