[WaeLx]

(19-07-20, 09:37 PM)NABILWARSAW كتب : الكود ده ممكن يساعدنى مع احترامى الكامل لارائكم 

بس غلط ممكن تعديله

كود :

     sqlstr = "Select min(date_ex),sanf_kem from store where ID_sanf =@pass"


           cmd = New OleDbCommand(sqlstr, con)
           cmd.Parameters.Add(New OleDbParameter("@pass", ad))
           con.Open()
           Dim dr As OleDb.OleDbDataReader = cmd.ExecuteScalar()
           If dr.Read() Then
               DateTimePicker1.Value = dr.Item(0)
               TextBox5.Text = dr.Item(1)
           End If

السلام عليكم و رحمة الله و بركاته

تحياتي لكل الاساتذة الذين شاركوا في هذا الموضوع

أخي الحبيب NABILWARSAW اعتقد ان هذا الكود ينفذ ما تريد في تحديد اقدم تاريخ للصنف

كود :

Dim cmd As OleDbCommand = New OleDbCommand("SELECT date_ex, sanf_kem from store WHERE ID_sanf =@pass ORDER BY ID date_ex", con)
       If con.State = ConnectionState.Open Then
           con.Close()
       End If
       con.Open()
       Dim dr As OleDbDataReader = cmd.ExecuteReader
       While dr.Read()
           DateTimePicker1.Value = dr2(0)
           TextBox1.Text = dr2(1)
           Exit While
       End While