تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود البحث بالتاريخ عقدني هل من مساعدة بكود البحث بالتاريخ vb.net and sql
#1
السلام عليكم ورحمة الله وبركاتة

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

انا عندي فورم بحث :-
زر بتن
اداة داتا تايم بيكر 
اداة داتا جريد فيو لعرض البيانات
وتكست بكس ايضا تعرص البيانات

هذا الكود الذي استخدمتة من احدي الشروحات ولم ينجح معي
ويظهر لي الخطا التالي
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
الرد }}
تم الشكر بواسطة:
#2
تفضل يا عزيزي هذا كود للبحث
ما عليك الا تعديل اسم ادارة الديت تايم بيكر عندك
واستدعاء 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.OKMessageBoxIcon.Error)
 
       End Try
 
   End Sub 
الرد }}
تم الشكر بواسطة: essawq , essawq , elgokr , princelovelorn
#3
السلام عليكم ورحمة الله وبركاتة
مشكور اخي على ردك وبارك الله فيك وبميزان حسناتك
الكود يعمل  100% ب 100%
انا حطيت الكود بالكلاس واعطيتة ببلك واستدعيتة داخل الفورم ويعمل  تمااام التمااام
بعد اذنك اخي الكريم واذا وقتك يسمح بكود البحث بين تاريخين بنفس القاعدة ونفس الجدول
وبارك الله فيك اخي الكريم 
تحياتي لك
الرد }}
تم الشكر بواسطة: elgokr
#4
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 
الرد }}
تم الشكر بواسطة: essawq , essawq , sendbad100 , elgokr , elgokr , princelovelorn



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم