28-09-17, 12:55 AM
استخدمت الكود التالي للحصول على أعلى قيمة في عمود مقابل عمود اخر فهل يوجد طريقة اخترافية اخرى لتنفيذ الكود
Sub ser()
Dim da As New OleDbDataAdapter("SELECT Tab_course.num, Tab_course.barcode_deploma, Tab_course.barcode_course, Tab_course.[year of course], Tab_course.start_date, Tab_course.end_date FROM Tab_course WHERE Tab_course.barcode_deploma='" & course_list.TextBox1.Text & "'", con)
Dim dt As New DataTable
da.Fill(dt)
course_list.data_course_view.DataSource = dt
End Sub
Sub ex()
Dim number As String
Dim cmd As New OleDbCommand("select max(barcode_course) from Tab_course", con)
con.Open()
number = cmd.ExecuteScalar
con.Close()
MsgBox(number)
Dim da As New OleDbDataAdapter("SELECT Tab_course.num, Tab_course.barcode_deploma, Tab_course.barcode_course, Tab_course.[year of course], Tab_course.start_date, Tab_course.end_date FROM Tab_course WHERE Tab_course.barcode_course='" & number & "'", con)
Dim dt As New DataTable
da.Fill(dt)
course_list.data_course_view.DataSource = dt
Sub ser()
Dim da As New OleDbDataAdapter("SELECT Tab_course.num, Tab_course.barcode_deploma, Tab_course.barcode_course, Tab_course.[year of course], Tab_course.start_date, Tab_course.end_date FROM Tab_course WHERE Tab_course.barcode_deploma='" & course_list.TextBox1.Text & "'", con)
Dim dt As New DataTable
da.Fill(dt)
course_list.data_course_view.DataSource = dt
End Sub
Sub ex()
Dim number As String
Dim cmd As New OleDbCommand("select max(barcode_course) from Tab_course", con)
con.Open()
number = cmd.ExecuteScalar
con.Close()
MsgBox(number)
Dim da As New OleDbDataAdapter("SELECT Tab_course.num, Tab_course.barcode_deploma, Tab_course.barcode_course, Tab_course.[year of course], Tab_course.start_date, Tab_course.end_date FROM Tab_course WHERE Tab_course.barcode_course='" & number & "'", con)
Dim dt As New DataTable
da.Fill(dt)
course_list.data_course_view.DataSource = dt