تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل هناك خطأ فى هذا الكود
#11
(24-09-19, 04:39 AM)baha كتب : هل جملة sql شغالة في قاعدة البيانات؟

نعم
الرد }}}
تم الشكر بواسطة:
#12
ضع اسم العميل بعد where مباشرة ثم التاريخ
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: baha , asemshahen5
#13
(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)
       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()
       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

وهذا الكود عند حدث الكليك فى زر البحث 

كود :
  SEARCH2DATE(DateTimePicker1.Value, DateTimePicker2.Value, mo_name.Text)
       DGV_ORDERSM.DataSource = DT_SEARCH
ولم اجد فائده
الرد }}}
تم الشكر بواسطة: asemshahen5
#14
تأكد من الديت تايم بيكر انها تاريخ فقط وليس تاريخ ووقت .
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: خالد كامل1 , خالد كامل1 , baha , asemshahen5
#15
حضراتكم سيبكم من الكود ده خلاص
انا معايا تاريخبن
datetimepaker1 وdatetimepaker2 و اسم العميل mo_name فى جدول واحد اسمه orders
اريد البحث باسم العميل عن الفواتير بين التاريخين دول ولكم منى جزيل الشكر
الرد }}}
تم الشكر بواسطة: asemshahen5
#16
(24-09-19, 05:34 AM)خالد كامل1 كتب : حضراتكم سيبكم من الكود ده خلاص
انا معايا تاريخبن
datetimepaker1 وdatetimepaker2 و اسم العميل mo_name فى جدول واحد اسمه orders
اريد البحث باسم العميل عن الفواتير بين التاريخين دول ولكم منى جزيل الشكر

الأول اعمل مسج يظهر لك محتوى الديت تايم بيكر وشوف نفس تنسيق البيانات الموجوده في حقل التاريخ .
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: baha , baha , asemshahen5
#17
أعتذر منك أخي خالد كامل1  لقد كانت هناك أخطاء إملائية في بعض الأكواد السابقة

جرب الكود التالي
كود :
Public Sub SEARCH2DATE(ByVal order_date As Date, ByVal order_date2 As Date, ByVal mo_name As String)
       Try
           DT_SEARCH = New DataTable
           DT_SEARCH.Clear()
           Dim da As New OledbDataAdapter(" SELECT * FROM ORDERS WHERE mo_name = '" & mo_name & "' and  order_date >='" & order_date & "' AND order_date <= '" & order_date2 & "'", con)

           da.Fill(DT_SEARCH)
           '
           DataGridView1.DataSource = DT_SEARCH

       Catch ex As Exception
           MsgBox(Err.Description, MsgBoxStyle.Information)
       Finally
           con.Close()
       End Try

   End Sub


مثلاً الخطأ في الكود الأول:

كود :
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 order_date >= @order_date AND order_date <= @order_date2 and  mo_name = @mo_name ", con)
      CMDSEARCH.Parameters.Clear()
      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
      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

الخطأ الأول هو 

      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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 517 03-08-23, 03:41 PM
آخر رد: moh61
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم

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


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