منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
خطأفي استعلام بين تاريخين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطأفي استعلام بين تاريخين (/showthread.php?tid=30601)

خطأفي استعلام بين تاريخين - Emam emam - 29-07-19

السلام عليكم
عندي استعلام بين تاريخين شغال كويس خالص علي قاعدة بيانات اكسيس ولكن عند استخامه علي قاعدة بيانات سيكوال سيرفر
يظهر لي خطأ .
ارجو المساعده وبارك الله فيكم
مرفق الكود وصوره من الخطأ
PHP كود :
Dim searchDate1 As Date = DateTimePicker1.Value
            Dim searchDate2 As Date = DateTimePicker2.Value.AddDays(1)
            Dim dt As New DataTable
            Dim da As New SqlDataAdapter
            dt.Clear()
            da = New SqlDataAdapter("select * from Analysis_Table WHERE ResultDate >= # " & searchDate1.Year & " / " & searchDate1.Month & " / " & searchDate1.Day & "# and ResultDate <= # " & searchDate2.Year & " / " & searchDate2.Month & " / " & searchDate2.Day & "# and Authinticated  =  True and Printed  =  False", connSQL)
            da.Fill(dt)
            DataGridView1.DataSource = (dt) 
[attachment=22265]

RE: خطأفي استعلام بين تاريخين - asemshahen5 - 29-07-19

الغ المسافات الموجودة قبل و بعد / 

PHP كود :
WHERE (AccountDate >= '2019,04,07') AND (AccountDate <= '2019,05,09') 


RE: خطأفي استعلام بين تاريخين - AAAAAAAAA - 29-07-19

كود :
            da = New SqlDataAdapter("SELECT * FROM [Analysis_Table] WHERE ([ResultDate] BETWEEN @d1 AND @d2) AND ([Authinticated]=True) AND ([Printed]=False)", connSQL)
           da.SelectCommand.Parameters.AddWithValue("@d1", searchDate1)
           da.SelectCommand.Parameters.AddWithValue("@d2", searchDate2)


RE: خطأفي استعلام بين تاريخين - Emam emam - 29-07-19

(29-07-19, 09:19 PM)asemshahen5 كتب : الغ المسافات الموجودة قبل و بعد / 

PHP كود :
WHERE (AccountDate >= '2019,04,07') AND (AccountDate <= '2019,05,09') 

شكرا علي اهتمامك اخي عاصم
ولكن اعطاني نفس الخطأ
(29-07-19, 09:46 PM)AAAAAAAAA كتب :
كود :
            da = New SqlDataAdapter("SELECT * FROM [Analysis_Table] WHERE ([ResultDate] BETEEN @d1 AND @d2) AND ([Authinticated]=True) AND ([Printed]=False)", connSQL)
           da.SelectCommand.Parameters.AddWithValue("@d1", searchDate1)
           da.SelectCommand.Parameters.AddWithValue("@d2", searchDate2)
اشكرك اخي شكرا جزيلا 
ولكن اعطاني خطأ أخر
كما بالصوره

[attachment=22270]

RE: خطأفي استعلام بين تاريخين - ابراهيم ايبو - 29-07-19

السلام عليكم اخي الكريم 
تفضل عسى تحل مشكلتك بفضل الله
PHP كود :
'    انشئ هذا الصب وضع اسم حقل التاريخ الذي في الجدول عندك  
    Public Sub SearhBetween(ByVal DD1 As Date, ByVal DD2 As Date)
        Try
            Dim dt As New DataTable()
            Dim cmd As New SqlCommand()
            dt.Clear()
            cmd = New SqlCommand("select * from Analysis_Table Where [حقل التاريخ في الجدول]>= @DD1  And  [حقل التاريخ في الجدول]<= @DD2 AND ([Authinticated]=True) AND ([Printed]=False)", connSQL)
            cmd.Parameters.Add("@DD1", SqlDbType.Date).Value = DD1
            cmd.Parameters.Add("@DD2", SqlDbType.Date).Value = DD2
            If connSQL.State = ConnectionState.Open Then
                connSQL.Close()
            End If
            connSQL.Open()
            dt.Load(cmd.ExecuteReader())
            connSQL.Close()
            dgv_table.DataSource = dt
        Catch ex As Exception
        End Try
    End Sub

    ' ثم قم ياستدعاء هذا الصب في زر البحث بين تاريخين
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'DateTimePicker1 ,DateTimePicker2   يحتاج الى باراميترين هما  
        SearhBetween(DateTimePicker1.Value, DateTimePicker2.Value)
    End Sub 



RE: خطأفي استعلام بين تاريخين - Emam emam - 30-07-19

(29-07-19, 11:39 PM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم 
تفضل عسى تحل مشكلتك بفضل الله
PHP كود :
'    انشئ هذا الصب وضع اسم حقل التاريخ الذي في الجدول عندك  
    Public Sub SearhBetween(ByVal DD1 As Date, ByVal DD2 As Date)
        Try
            Dim dt As New DataTable()
            Dim cmd As New SqlCommand()
            dt.Clear()
            cmd = New SqlCommand("select * from Analysis_Table Where [حقل التاريخ في الجدول]>= @DD1  And  [حقل التاريخ في الجدول]<= @DD2 AND ([Authinticated]=True) AND ([Printed]=False)", connSQL)
            cmd.Parameters.Add("@DD1", SqlDbType.Date).Value = DD1
            cmd.Parameters.Add("@DD2", SqlDbType.Date).Value = DD2
            If connSQL.State = ConnectionState.Open Then
                connSQL.Close()
            End If
            connSQL.Open()
            dt.Load(cmd.ExecuteReader())
            connSQL.Close()
            dgv_table.DataSource = dt
        Catch ex As Exception
        End Try
    End Sub

    ' ثم قم ياستدعاء هذا الصب في زر البحث بين تاريخين
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'DateTimePicker1 ,DateTimePicker2   يحتاج الى باراميترين هما  
        SearhBetween(DateTimePicker1.Value, DateTimePicker2.Value)
    End Sub 

اشكرك اخي ابراهيم ايبو علي مجهودك معي
تم الحل بفضل الله
فقد قمت ببعض التعديلات علي الكود الخاص بالاخ AAAAAAAAA
وهدا هو الكود للاستفاده

PHP كود :
Dt.Clear()
            Da = New SqlDataAdapter("SELECT * FROM [Analysis_Table] WHERE ([ResultDate]>= # " & searchDate1.Year & " / " & searchDate1.Month & " / " & searchDate1.Day & "#) and ([ResultDate] <= # " & searchDate2.Year & " / " & searchDate2.Month & " / " & searchDate2.Day & "#) AND ([Authinticated]=True) AND ([Printed]=False)", connSQL)
            Da.Fill(Dt)
            DataGridView1.DataSource = (Dt)