منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] طلب : كود إيجاد أقل قيمة في عمود معين بجدول من قاعدة بيانات أكسس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] طلب : كود إيجاد أقل قيمة في عمود معين بجدول من قاعدة بيانات أكسس (/showthread.php?tid=40229)

طلب : كود إيجاد أقل قيمة في عمود معين بجدول من قاعدة بيانات أكسس - hamada salah90 - 11-12-21

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

أساتذتي الكبار


أريد كود عرض أقل قيمة من جدول بقاعدة البيانات في تيكست بوكس

RE: طلب : كود إيجاد أقل قيمة في عمود معين بجدول من قاعدة بيانات أكسس - Taha Okla - 12-12-21

سواء تتعامل مع ADO  أو  DAO   ـ فإن طريفة المعالجة واحدة ..

كود :
Private Sub Form_Load()

  Text1.Text = MinNo
End Sub

Private Function MinNo()
  Dim db1 As DAO.Database, Rs1 As DAO.Recordset, nMin As New DAO.Field
  Set db1 = DBEngine.OpenDatabase("compny.mdb", False, False)
  Set Rs1 = db1.OpenRecordset("Select Min(IDnum) As nMin From tbl1")

  If Rs1!nMin <> "" Then
      MinNo = Rs1!nMin
  Else
      MinNo = 0   ' على فرض أنها أصغر قيمة ممكنة
  End If

  Rs1.Close
  db1.Close
End Function


RE: طلب : كود إيجاد أقل قيمة في عمود معين بجدول من قاعدة بيانات أكسس - hamada salah90 - 12-12-21

(12-12-21, 05:27 AM)Taha Okla كتب : سواء تتعامل مع ADO  أو  DAO   ـ فإن طريفة المعالجة واحدة ..

كود :
Private Sub Form_Load()

  Text1.Text = MinNo
End Sub

Private Function MinNo()
  Dim db1 As DAO.Database, Rs1 As DAO.Recordset, nMin As New DAO.Field
  Set db1 = DBEngine.OpenDatabase("compny.mdb", False, False)
  Set Rs1 = db1.OpenRecordset("Select Min(IDnum) As nMin From tbl1")

  If Rs1!nMin <> "" Then
      MinNo = Rs1!nMin
  Else
      MinNo = 0   ' على فرض أنها أصغر قيمة ممكنة
  End If

  Rs1.Close
  db1.Close
End Function
شكرا جزيلا أخي الحبيب