منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اخخوانى فى جمله 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

وعند فتح الفورم وتشغيله يكرر البيانات
مع ان كنت استخدمه فى فورم اخر كان يعمل جيدا فما هو الخطأ فى ذلك

يجب اضافة شرط بحث حسب العامود المشترك بين الجدولين .

(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

ما الخطا فى ذلك

لماذا لا تجلب كل جدول وحدة بدون تثقيل علي الكود.

(01-09-19, 03:39 PM)اسامه الهرماوي كتب : [ -> ]لماذا لا تجلب كل جدول وحدة بدون تثقيل علي الكود.

اختصارا للوقت اخى الكريم وتجربه شئ جديد بالنسبه لى

ارجو من اخوانى المساعد ه فى ايجاد الخطا فى الكود

(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)