[خالد كامل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

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