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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 419 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
  [vb6.0] تغيير نوع الخط فى عمود معين داخل الdatagrid haitham Muhammed 6 363 20-12-23, 01:11 PM
آخر رد: mhareek
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 387 19-11-23, 10:49 PM
آخر رد: Microformt
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
  [vb6.0] سؤال حول كيفية عمل زر كوماند داخل عمود Msflexgrid جلال اليمني 5 551 14-09-23, 05:12 AM
آخر رد: جلال اليمني
Lightbulb [سؤال] إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 أبو خالد الشكري 4 326 13-09-23, 09:52 PM
آخر رد: أبو خالد الشكري
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 358 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem

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


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