تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اخوانى الكود ينفذ الامر خطا
#1
اخخوانى فى جمله select استخدمت هذا الكود
كود :
 dt_kama.Clear()
       Dim da_ = New OleDbDataAdapter("select buykama.buykamacode, buydetkama.KAMANAME, buydetkama.KAMAQTY,buykama.buykamadate, buykama.buytype from buykama,buydetkama", con)
       da_.Fill(dt_kama)
       DGVSEARCH.DataSource = dt_kama
وعند فتح الفورم وتشغيله يكرر البيانات 
مع ان كنت استخدمه فى فورم اخر كان يعمل جيدا فما هو الخطأ فى ذلك
الرد
تم الشكر بواسطة:
#2
يجب اضافة شرط بحث حسب العامود المشترك بين الجدولين .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
#3
(01-09-19, 06:25 AM)asemshahen5 كتب : يجب اضافة شرط بحث حسب العامود المشترك بين الجدولين .

وهنا ايضا فى هذا الكود للبحث بين تاريخين والاستعلام يستمد بياناته من جدولين 
لا ينفذ الامر  
كود :
dt_kama.Clear()
       Dim CMDSEARCH As New OleDbCommand("select buykama.buykamacode, buydetkama.KAMANAME, buydetkama.KAMAQTY,buykama.buykamadate, buykama.buytype from buykama,buydetkama WHERE buykama.buykamacode= BUYDETKAMA.buykamacode and buykama.buykamadate >= @buykama.buykamadate AND buykama.buykamadate <= @buykama.buykamadate  ", con)
       CMDSEARCH.Parameters.Clear()
       CMDSEARCH.Parameters.Add("@buykama.buykamadate", OleDbType.Date).Value = "#" & D1.Value & "#"
       CMDSEARCH.Parameters.Add("@buykama.buykamadate", OleDbType.Date).Value = "#" & D2.Value & "#"
       Try
       If con.State = 1 Then con.Close()
       con.Open()
       dt_kama.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
ما الخطا فى ذلك
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
لماذا لا تجلب كل جدول وحدة بدون تثقيل علي الكود.
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة: خالد كامل1
#5
(01-09-19, 03:39 PM)اسامه الهرماوي كتب : لماذا لا تجلب كل جدول وحدة بدون تثقيل علي الكود.

اختصارا للوقت اخى الكريم وتجربه شئ جديد بالنسبه لى
الرد
تم الشكر بواسطة:
#6
ارجو من اخوانى المساعد ه فى ايجاد الخطا فى الكود
الرد
تم الشكر بواسطة:
#7
(01-09-19, 05:53 AM)خالد كامل1 كتب : اخخوانى فى جمله select استخدمت هذا الكود
كود :
 dt_kama.Clear()
       Dim da_ = New OleDbDataAdapter("select buykama.buykamacode, buydetkama.KAMANAME, buydetkama.KAMAQTY,buykama.buykamadate, buykama.buytype from buykama,buydetkama", con)
       da_.Fill(dt_kama)
       DGVSEARCH.DataSource = dt_kama
وعند فتح الفورم وتشغيله يكرر البيانات 
مع ان كنت استخدمه فى فورم اخر كان يعمل جيدا فما هو الخطأ فى ذلك

كود :
dt_kama.Clear()
Dim da=New OleDbDataAdapter("SELECT BuyKamaCode,BuykamaDate,BuyType,KamaName,KamaQty FROM BuyKama INNER JOIN BuyDetKama ON BuyDetKama.BuyKamaCode=BuyKama.BuyKamaCode",con)
da.Fill(dt_kama)
DGVSEARCH.DataSource=dt_kama

(01-09-19, 03:34 PM)خالد كامل1 كتب :
(01-09-19, 06:25 AM)asemshahen5 كتب : يجب اضافة شرط بحث حسب العامود المشترك بين الجدولين .

وهنا ايضا فى هذا الكود للبحث بين تاريخين والاستعلام يستمد بياناته من جدولين 
لا ينفذ الامر  
كود :
dt_kama.Clear()
       Dim CMDSEARCH As New OleDbCommand("select buykama.buykamacode, buydetkama.KAMANAME, buydetkama.KAMAQTY,buykama.buykamadate, buykama.buytype from buykama,buydetkama WHERE buykama.buykamacode= BUYDETKAMA.buykamacode and buykama.buykamadate >= @buykama.buykamadate AND buykama.buykamadate <= @buykama.buykamadate  ", con)
       CMDSEARCH.Parameters.Clear()
       CMDSEARCH.Parameters.Add("@buykama.buykamadate", OleDbType.Date).Value = "#" & D1.Value & "#"
       CMDSEARCH.Parameters.Add("@buykama.buykamadate", OleDbType.Date).Value = "#" & D2.Value & "#"
       Try
       If con.State = 1 Then con.Close()
       con.Open()
       dt_kama.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
ما الخطا فى ذلك

كود :
dt_kama.Clear()
Dim da=New OleDbDataAdapter("SELECT BuyKamaCode,BuykamaDate,BuyType,KamaName,KamaQty FROM BuyKama INNER JOIN BuyDetKama ON BuyDetKama.BuyKamaCode=BuyKama.BuyKamaCode WHERE AND (BuykamaDate BETWEEN @d1 AND @d2)",con)
da.SelectCommand.Parameters.AddWithValue("@d1",D1.Value.Date)
da.SelectCommand.Parameters.AddWithValue("@d2",D2.Value.Date)
da.Fill(dt_kama)
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  من فضلكم نوع الخطأ في الكود sofiane-phy 4 100 26-09-20, 08:57 PM
آخر رد: sofiane-phy
Rainbow [كود] ماهو الخطا في الكود الموضح لكم محمد مسافر 2 104 23-09-20, 01:09 AM
آخر رد: محمد مسافر
  عندي مشكلة بخصوص الكود هدا The program '[13020] MainProj.exe' has exited with code 0 ٍOfelas 1 83 21-09-20, 12:27 AM
آخر رد: Anas Mahmoud
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 137 09-09-20, 01:33 PM
آخر رد: momani33
  ماهو الخطاء في هذا الكود عمور2016 1 178 06-09-20, 06:33 PM
آخر رد: حريف برمجة
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 11 976 05-09-20, 03:36 PM
آخر رد: معاند الحظ
  [سؤال] خطأ في التنفيذ الكود بعد فلترة dataGridView محمد العامر 2 248 20-08-20, 01:38 PM
آخر رد: محمد العامر
  [مشروع] هلا ساعدتموني في اكتشاف الخطأ في الكود gharib 6 337 18-08-20, 03:45 PM
آخر رد: gharib
  سؤال بسيط اخوانى خالد كامل1 0 174 14-08-20, 10:48 PM
آخر رد: خالد كامل1
  [VB.NET] استفسار اخوانى احبكم الله خالد كامل1 5 341 26-07-20, 01:33 AM
آخر رد: asemshahen5

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


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