المشاركات : 271
المواضيع 70
الإنتساب : Sep 2018
السمعة :
5
الشكر: 224
تم شكره 325 مرات في 179 مشاركات
السلام عليكم
عندي استعلام بين تاريخين شغال كويس خالص علي قاعدة بيانات اكسيس ولكن عند استخامه علي قاعدة بيانات سيكوال سيرفر
يظهر لي خطأ .
ارجو المساعده وبارك الله فيكم
مرفق الكود وصوره من الخطأ
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)
المشاركات : 2,329
المواضيع 81
الإنتساب : May 2018
السمعة :
522
الشكر: 14039
تم شكره 5671 مرات في 2269 مشاركات
الغ المسافات الموجودة قبل و بعد /
PHP كود :
WHERE (AccountDate >= '2019,04,07') AND (AccountDate <= '2019,05,09')
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
المشاركات : 10
المواضيع 0
الإنتساب : Jul 2019
السمعة :
9
الشكر: 0
تم شكره 58 مرات في 21 مشاركات
29-07-19, 09:46 PM
(آخر تعديل لهذه المشاركة : 29-07-19, 10:10 PM {2} بواسطة AAAAAAAAA.)
كود :
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)
المشاركات : 271
المواضيع 70
الإنتساب : Sep 2018
السمعة :
5
الشكر: 224
تم شكره 325 مرات في 179 مشاركات
29-07-19, 10:02 PM
(آخر تعديل لهذه المشاركة : 29-07-19, 10:04 PM {2} بواسطة Emam emam.)
(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)
اشكرك اخي شكرا جزيلا
ولكن اعطاني خطأ أخر
كما بالصوره
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5323 مرات في 2095 مشاركات
29-07-19, 11:39 PM
(آخر تعديل لهذه المشاركة : 29-07-19, 11:40 PM {2} بواسطة ابراهيم ايبو.)
السلام عليكم اخي الكريم
تفضل عسى تحل مشكلتك بفضل الله
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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
المشاركات : 271
المواضيع 70
الإنتساب : Sep 2018
السمعة :
5
الشكر: 224
تم شكره 325 مرات في 179 مشاركات
(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)
|