المشاركات : 418
المواضيع 147
الإنتساب : May 2018
السمعة :
4
الشكر: 261
تم شكره 272 مرات في 163 مشاركات
اخخوانى فى جمله 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,329
المواضيع 81
الإنتساب : May 2018
السمعة :
522
الشكر: 14039
تم شكره 5671 مرات في 2269 مشاركات
يجب اضافة شرط بحث حسب العامود المشترك بين الجدولين .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
المشاركات : 418
المواضيع 147
الإنتساب : May 2018
السمعة :
4
الشكر: 261
تم شكره 272 مرات في 163 مشاركات
(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
ما الخطا فى ذلك
المشاركات : 769
المواضيع 133
الإنتساب : Feb 2018
السمعة :
64
الشكر: 1636
تم شكره 1073 مرات في 528 مشاركات
لماذا لا تجلب كل جدول وحدة بدون تثقيل علي الكود.
المبرمج لا يفكر في المشكلة بل في الحل!!
المشاركات : 418
المواضيع 147
الإنتساب : May 2018
السمعة :
4
الشكر: 261
تم شكره 272 مرات في 163 مشاركات
(01-09-19, 03:39 PM)اسامه الهرماوي كتب : لماذا لا تجلب كل جدول وحدة بدون تثقيل علي الكود.
اختصارا للوقت اخى الكريم وتجربه شئ جديد بالنسبه لى
المشاركات : 418
المواضيع 147
الإنتساب : May 2018
السمعة :
4
الشكر: 261
تم شكره 272 مرات في 163 مشاركات
ارجو من اخوانى المساعد ه فى ايجاد الخطا فى الكود
المشاركات : 10
المواضيع 0
الإنتساب : Jul 2019
السمعة :
9
الشكر: 0
تم شكره 58 مرات في 21 مشاركات
02-09-19, 02:22 AM
(آخر تعديل لهذه المشاركة : 02-09-19, 02:36 AM {2} بواسطة AAAAAAAAA.)
(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)
|