تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طلب : كود إيجاد أقل قيمة في عمود معين بجدول من قاعدة بيانات أكسس
#1
السلام عليكم ورحمة الله وبركاته

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


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

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد
تم الشكر بواسطة:
#2
سواء تتعامل مع 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
لا يشكر الله من لا يشكر الناس
وخير الشكر : أن تجعل الملائكة تلهج لك بالدعاء
كلما لهجت بالدعاء لأخيك المسلم بظهر الغيب.
الرد
تم الشكر بواسطة: asemshahen5 , hamada salah90 , مصمم هاوي
#3
(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
شكرا جزيلا أخي الحبيب
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 2 100 01-01-22, 01:17 AM
آخر رد: hamada salah90
Smile [vb6.0] كيف تلون البيانات المكررة في العمود وتلوين اكبر قيمة في العمود في mshflexgrid1 Mhqom 11 565 27-11-21, 02:55 AM
آخر رد: Mhqom
  التعديل على كود جلب بيانات من جدولين مصمم هاوي 8 310 24-11-21, 10:51 PM
آخر رد: مصمم هاوي
  سؤال بحث بعددة قواعد بيانات دفعة واحدة وإظهار النتيجة؟؟؟ KamelArab 4 396 23-11-21, 05:13 PM
آخر رد: ahmedabdelaliem
Wink هل يمكن تحديث بيانات من استعلام لجدول مصمم هاوي 10 555 04-11-21, 01:33 PM
آخر رد: مصمم هاوي
  [vb6.0] أريد تنفيذ أمر معين يتم تنفيذه عند الضغط على مفتاح معين من لوحة المفاتيح hamada salah90 0 294 28-07-21, 11:32 PM
آخر رد: hamada salah90
  (تم التعديل) تعديل كود حذف بيانات طالب مصمم هاوي 1 397 24-06-21, 12:13 PM
آخر رد: مصمم هاوي
  كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير mido790006 4 452 20-06-21, 03:24 AM
آخر رد: mido790006
  كيف يمكن نقل بيانات من جدول في قاعدة بيانات الى قاعدة بيانات مثلها تماما gonm64 2 593 11-06-21, 04:55 PM
آخر رد: gonm64
  استفسار عن ربط قاعدة بيانات gadr 2 443 23-05-21, 02:02 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم