24-09-19, 05:12 AM
تقييم الموضوع :
هل هناك خطأ فى هذا الكود
|
تم الشكر بواسطة: baha , asemshahen5
24-09-19, 05:26 AM
(آخر تعديل لهذه المشاركة : 24-09-19, 05:29 AM {2} بواسطة خالد كامل1.)
(24-09-19, 05:15 AM)حريف برمجة كتب : ضع اسم العميل بعد where مباشرة ثم التاريخ انا استخدمت هذا الكود فى الصب كود : Public Sub SEARCH2DATE(ByVal order_date As DateTime, ByVal order_date2 As DateTime, ByVal mo_name As String) وهذا الكود عند حدث الكليك فى زر البحث كود : SEARCH2DATE(DateTimePicker1.Value, DateTimePicker2.Value, mo_name.Text) تم الشكر بواسطة: asemshahen5
24-09-19, 05:29 AM
(آخر تعديل لهذه المشاركة : 24-09-19, 05:29 AM {2} بواسطة حريف برمجة.)
تأكد من الديت تايم بيكر انها تاريخ فقط وليس تاريخ ووقت .
يا رحمن الدنيا والآخرة ورحيمهما
تم الشكر بواسطة: خالد كامل1 , خالد كامل1 , baha , asemshahen5
24-09-19, 05:34 AM
حضراتكم سيبكم من الكود ده خلاص
انا معايا تاريخبن datetimepaker1 وdatetimepaker2 و اسم العميل mo_name فى جدول واحد اسمه orders اريد البحث باسم العميل عن الفواتير بين التاريخين دول ولكم منى جزيل الشكر تم الشكر بواسطة: asemshahen5
24-09-19, 05:38 AM
(24-09-19, 05:34 AM)خالد كامل1 كتب : حضراتكم سيبكم من الكود ده خلاص الأول اعمل مسج يظهر لك محتوى الديت تايم بيكر وشوف نفس تنسيق البيانات الموجوده في حقل التاريخ .
يا رحمن الدنيا والآخرة ورحيمهما
تم الشكر بواسطة: baha , baha , asemshahen5
أعتذر منك أخي خالد كامل1 لقد كانت هناك أخطاء إملائية في بعض الأكواد السابقة
جرب الكود التالي كود : Public Sub SEARCH2DATE(ByVal order_date As Date, ByVal order_date2 As Date, ByVal mo_name As String) مثلاً الخطأ في الكود الأول: كود : Public Sub SEARCH2DATE(ByVal order_date As DateTime, ByVal order_date2 As DateTime, ByVal mo_name As String) الخطأ الأول هو CMDSEARCH.Parameters.Add("@mo_name", OleDbType.VarChar).Value = mo_name
CMDSEARCH.Parameters.Add("@order_date", OleDbType.Date).Value = "#" & order_date & "#"
CMDSEARCH.Parameters.Add("@order_date2", OleDbType.Date).Value = "#" & order_date2 & "#"
CMDSEARCH.Parameters.Add("@mo_name", OleDbType.VarChar).Value = mo_name
الجملة مكررة
يظهر أيضاً في الكود التالي اعطاء قيمة للاسم مباشرة
Public Sub SEARCH2DATE(ByVal order_date As DateTime, ByVal order_date2 As DateTime, ByVal mo_name As String)
DT_SEARCH.Clear()
Dim CMDSEARCH As New OleDbCommand(" SELECT * FROM ORDERS WHERE mo_name = '" & mo_name & "'and order_date >= @order_date AND order_date <= @order_date2 ", con)
CMDSEARCH.Parameters.Clear()
اسناد قيمة لباراميتر غير موجود في جملة sql
CMDSEARCH.Parameters.Add("@mo_name", OleDbType.VarChar).Value = mo_name
CMDSEARCH.Parameters.Add("@order_date", OleDbType.Date).Value = "#" & order_date & "#"
CMDSEARCH.Parameters.Add("@order_date2", OleDbType.Date).Value = "#" & order_date2 & "#"
Try
If con.State = 1 Then con.Close()
con.Open()
DT_SEARCH.Load(CMDSEARCH.ExecuteReader)
con.Close()
CMDSEARCH = Nothing
Catch ex As Exception
con.Close()
MsgBox(Err.Description, MsgBoxStyle.Information)
Finally
If con.State = ConnectionState.Open Then con.Close()
End Try
End Sub
تم الشكر بواسطة: asemshahen5 , asemshahen5
|
|
يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم