تقييم الموضوع :
  • 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
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] خطأ في ضغط وإصلاح قاعدة البيانات مصمم هاوي 3 230 11-07-22, 03:06 AM
آخر رد: سعود
  حل مشكلة امتلأ قاعدة بيانات أكسس مصمم هاوي 9 296 03-07-22, 12:19 PM
آخر رد: ahmedabdelaliem
  [سؤال] نسخ جدول داخل قاعدة اكسس gharib 3 318 03-06-22, 06:06 AM
آخر رد: gharib
  مشكلة في بيانات تقرير اكتيف ريبورت مصمم هاوي 2 558 26-02-22, 07:35 PM
آخر رد: مصمم هاوي
Wink [vb6.0] قراءة بيانات من AUTOMATE bobsa 0 284 08-02-22, 07:16 PM
آخر رد: bobsa
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 2 579 01-01-22, 01:17 AM
آخر رد: hamada salah90
Smile [vb6.0] كيف تلون البيانات المكررة في العمود وتلوين اكبر قيمة في العمود في mshflexgrid1 Mhqom 11 1,214 27-11-21, 02:55 AM
آخر رد: Mhqom
  التعديل على كود جلب بيانات من جدولين مصمم هاوي 8 817 24-11-21, 10:51 PM
آخر رد: مصمم هاوي
  سؤال بحث بعددة قواعد بيانات دفعة واحدة وإظهار النتيجة؟؟؟ KamelArab 4 830 23-11-21, 05:13 PM
آخر رد: ahmedabdelaliem
Wink هل يمكن تحديث بيانات من استعلام لجدول مصمم هاوي 10 1,145 04-11-21, 01:33 PM
آخر رد: مصمم هاوي

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


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